Đến nội dung


Hình ảnh
- - - - -

[Hỏi] Giải thích gùm code lisp


  • Please log in to reply
9 replies to this topic

#1 t031285

t031285

    biết vẽ rectang

  • Members
  • PipPip
  • 89 Bài viết
Điểm đánh giá: 1 (bình thường)

Đã gửi 21 June 2011 - 06:51 PM

(cdr (assoc 3 taa))
Giải thích giùm mình dòng lệnh trên,số 3 được hiểu như thế nào?Thanks.
  • 0

#2 thanhduan2407

thanhduan2407

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 993 Bài viết
Điểm đánh giá: 223 (khá)

Đã gửi 21 June 2011 - 07:12 PM

(cdr (assoc 3 taa))
Giải thích giùm mình dòng lệnh trên,số 3 được hiểu như thế nào?Thanks.

Trong Visual Lisp bạn nhấn F1 và tìm chữ cái đầu là A và tìm đến khóa assoc là bạn hiểu nó ngay.
Mình tìm cho bạn xem nhé:

assoc


Searches an association list for an element and returns that association list entry

(assoc element alist)
Arguments

element
Key of an element in an association list.

alist
An association list to be searched.

Return Values

The alist entry, if successful. If assoc does not find element as a key in alist, it returns nil.

Examples

Command: (setq al '((name box) (width 3) (size 4.7263) (depth 5)))

((NAME BOX) (WIDTH 3) (SIZE 4.7263) (DEPTH 5))

Command: (assoc 'size al)

(SIZE 4.7263)

Command: (assoc 'weight al)

nil

Mình chỉ hướng dẫn để bạn sau này sẽ tự tìm ra cách hiểu thôi.
Đây là lisp mình dùng để xem thông tin một đối tượng, bạn tham khảo nhé.
(defun c:ii()
(setq ee (entsel "\nThong tin thuoc tinh cua doi tuong vua chon la: "))
(princ "\n")
(setq ent (entget (car ee)))
)


  • 0



Tôi là con kiến bò trên sa mạc kiến thức bao la. Biển học thật rộng lớn







#3 t031285

t031285

    biết vẽ rectang

  • Members
  • PipPip
  • 89 Bài viết
Điểm đánh giá: 1 (bình thường)

Đã gửi 21 June 2011 - 07:21 PM

Bạn hiểu thì giải thích cụ thể giùm mình với.Mình mới mày mò về lisp thôi.Thanks.
  • 0

#4 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5448 Bài viết
Điểm đánh giá: 2624 (tuyệt vời)

Đã gửi 21 June 2011 - 07:54 PM

(cdr (assoc 3 taa))
Giải thích giùm mình dòng lệnh trên,số 3 được hiểu như thế nào?Thanks.

Tùy theo đối tượng (VD: 3DSOLID, ATTDEF, BODY, DIMENSION... ) mà số 3 thể hiện là mã DXF của cái gì? Nếu bạn nói rõ kiểu đối tượng thì diễn đàn mới biết đường chỉ cho bạn.
  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#5 t031285

t031285

    biết vẽ rectang

  • Members
  • PipPip
  • 89 Bài viết
Điểm đánh giá: 1 (bình thường)

Đã gửi 21 June 2011 - 09:33 PM

STYLE bạn ah.Thanks.
  • 0

#6 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6009 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 21 June 2011 - 09:45 PM

STYLE bạn ah.Thanks.

Hề hề hề,
Nếu taa là elist của một Style thì (cdr (assoc 3 taa)) sẽ trả về cái tên font file ban đầu của style này.
  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#7 t031285

t031285

    biết vẽ rectang

  • Members
  • PipPip
  • 89 Bài viết
Điểm đánh giá: 1 (bình thường)

Đã gửi 21 June 2011 - 10:04 PM

Nếu số 3 đổi thành số 2 thì sao bác?
(cdr (assoc 2 taa))
  • 0

#8 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6009 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 21 June 2011 - 10:39 PM

Nếu số 3 đổi thành số 2 thì sao bác?
(cdr (assoc 2 taa))

Hề hề hề,
Nếu vẫn đối tượng như trên thì (cdr (assoc 2 taa)) sẽ trả về cái tên của Style.
  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#9 vbtxd06

vbtxd06

    biết vẽ ellipse

  • Members
  • PipPip
  • 53 Bài viết
Điểm đánh giá: 16 (tàm tạm)

Đã gửi 22 June 2011 - 04:42 PM

Mình cũng đang mới bắt đầu học lisp như bạn nè. Nếu bạn muốn rõ thêm về mấy mã DXF này có thể đọc Help hay sách Autolisp nào cũng có phần ghi này đó. Mình đang đọc sách thầy Nguyễn Hữu Lộc rất dễ hiểu đấy!
  • 0

#10 sekgreere

sekgreere

    Chưa sử dụng CAD

  • Members
  • Pip
  • 2 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 23 June 2011 - 05:21 AM

hi nice post we have going there! goarticles.com
  • 0