[yêu cầu] lisp truy xuất vào từng đối tượng con (theo tên tag) trong block thuộc tính

[huunhantvxdts 195]

Mình đang viết lisp để cập nhật các cao độ vào block thuộc tính 

Block có nhiều tag bao gồm ( caodotk, caodotn, caododaycong, caododhga, lytrinh,.....)

Bây giờ mình muốn truy xuất vào 1 tag nào đó 

cách làm của mình thì cứ (entnext (entnext (entnext ......))) (mỏi cả tay ) cách này quá mất thời gian mà lại khó kiểm soát

bây giờ nhờ mọi người giúp (viết hàm con) cách nào truy xuất vào từng tag

cám ơn trước cái đã 

hehehehe

 

[NguyenNgocSon 43]

Tôi ko rành lisp lắm. Nhưng với VBA tôi làm như sau:

duyet qua tung thuoc tinh va dung select case

[Doan Van Ha 3202]

Tặng bạn 2 hàm Set và Get Attributes. Hy vọng bạn tự áp dụng được.

 

; Arguments [Type]:
; Obj = Object [VLA-OBJECT]
; Lst = Dotted pair list '(("Tag1" . "Val1")...) [list]
 
(defun SetAtts (Obj Lst / AttVal)
 (mapcar '(lambda (Att) (if (setq AttVal (cdr (assoc (vla-get-TagString Att) Lst))) (vla-put-TextString Att AttVal))) (vlax-invoke Obj 'GetAttributes))
 (vla-update Obj)
 
(defun GetAtts (Obj)
 (mapcar '(lambda (Att) (cons (vla-get-TagString Att) (vla-get-TextString Att))) (vlax-invoke Obj 'GetAttributes)))
 

[huunhantvxdts 195]

Tặng bạn 2 hàm Set và Get Attributes. Hy vọng bạn tự áp dụng được.

 

; Arguments [Type]:
; Obj = Object [VLA-OBJECT]
; Lst = Dotted pair list '(("Tag1" . "Val1")...) [list]
 
(defun SetAtts (Obj Lst / AttVal)
 (mapcar '(lambda (Att) (if (setq AttVal (cdr (assoc (vla-get-TagString Att) Lst))) (vla-put-TextString Att AttVal))) (vlax-invoke Obj 'GetAttributes))
 (vla-update Obj)
 
(defun GetAtts (Obj)
 (mapcar '(lambda (Att) (cons (vla-get-TagString Att) (vla-get-TextString Att))) (vlax-invoke Obj 'GetAttributes)))
 

Cám ơn Bác nhiều lắm đang lay hoay hoài mà chưa làm được. hi vọng là cái này đáp ứng được yêu cầu của tôi

[phamthanhbinh 3146]

 

Tặng bạn 2 hàm Set và Get Attributes. Hy vọng bạn tự áp dụng được.

 

; Arguments [Type]:
; Obj = Object [VLA-OBJECT]
; Lst = Dotted pair list '(("Tag1" . "Val1")...) [list]
 
(defun SetAtts (Obj Lst / AttVal)
 (mapcar '(lambda (Att) (if (setq AttVal (cdr (assoc (vla-get-TagString Att) Lst))) (vla-put-TextString Att AttVal))) (vlax-invoke Obj 'GetAttributes))
 (vla-update Obj)
 
(defun GetAtts (Obj)
 (mapcar '(lambda (Att) (cons (vla-get-TagString Att) (vla-get-TextString Att))) (vlax-invoke Obj 'GetAttributes)))
 

Cám ơn Bác nhiều lắm đang lay hoay hoài mà chưa làm được. hi vọng là cái này đáp ứng được yêu cầu của tôi

Hề hề hề,

Theo thiển ý của mình thì để truy xuất các thuộc tính của một bock, bạn có thễ sử dụng vòng lặp while với hàm entnext cho tới khi tag của att trùng với yêu cầu của bạn.

Sau đó sử lý thuộc tính này theo như ý bạn mong muốn.

đại khái vòng lặp này như sau:

(while (and ent (/= enttag "abcd")

      (setq ent (entnext ent))

      (setq enttag (cdr (assoc 2 (entget ent))))

)

ở đây chuỗi "abcd" là tên tag của thuộc tính mà bạn cần tìm. ent ban đầu là ename của block đang xét.

việc kiểm tra block có chứa thuộc tính hay không chắc bạn đã rành nên mìng nghĩ bạn có thể làm được việc này.

[huunhantvxdts 195]

 

Tặng bạn 2 hàm Set và Get Attributes. Hy vọng bạn tự áp dụng được.

 

; Arguments [Type]:
; Obj = Object [VLA-OBJECT]
; Lst = Dotted pair list '(("Tag1" . "Val1")...) [list]
 
(defun SetAtts (Obj Lst / AttVal)
 (mapcar '(lambda (Att) (if (setq AttVal (cdr (assoc (vla-get-TagString Att) Lst))) (vla-put-TextString Att AttVal))) (vlax-invoke Obj 'GetAttributes))
 (vla-update Obj)
 
(defun GetAtts (Obj)
 (mapcar '(lambda (Att) (cons (vla-get-TagString Att) (vla-get-TextString Att))) (vlax-invoke Obj 'GetAttributes)))
 

Đã sử dụng nhưng không được theo ý muốn. ở đây tôi muốn là

(setq ttin (GetAtts obj tentag))

lấy toàn bộ thông tin của tag đó

mong Bác sửa lại giùm

[huunhantvxdts 195]

hề hề hề,

Theo thiển ý của mình thì để truy xuất các thuộc tính của một bock, bạn có thễ sử dụng vòng lặp while với hàm entnext cho tới khi tag của att trùng với yêu cầu của bạn.

Sau đó sử lý thuộc tính này theo như ý bạn mong muốn.

đại khái vòng lặp này như sau:

(while (and ent (/= enttag "abcd")

      (setq ent (entnext ent))

      (setq enttag (cdr (assoc 2 (entget ent))))

)

ở đây chuỗi "abcd" là tên tag của thuộc tính mà bạn cần tìm. ent ban đầu là ename của block đang xét.

việc kiểm tra block có chứa thuộc tính hay không chắc bạn đã rành nên mìng nghĩ bạn có thể làm được việc này.

 

Đúng như vậy đó 

Nhờ Bác viết luôn hàm con đó có được không???Bởi mình sử dụng nó nhiều lần

Cám ơn Bác nhiều

[gia_bach 1553]

Hàm lấy và gán giá trị theo tên Tag của block Att :

(defun GetTagVal (obj tagName)
  (foreach att (vlax-invoke obj 'GetAttributes)
    (if (= tagName (vla-get-tagstring att))
      (setq str (vla-get-TextString att) ) ) )
  str)
(defun ChangeTagVal (obj tagName val)
  (foreach att (vlax-invoke obj 'GetAttributes)
    (if (= tagName (vla-get-tagstring att))
      (progn
	(vla-put-textstring att val)
	(vla-update att)  ) ) ) )

[tien2005 242]

Nhân tiện topic này giúp mình cài tạo cái list như sau:

 

- đầu vào là block att có các số lượng và tên tag không cố định. VD: tag1, tga2, ....tagn

- đầu ra là list dạng (setq lst (list(cons tag1 "value1")(cons tag2 "value2")....(cons tagn "valuen")))

thanks

[Doan Van Ha 3202]

Hàm GetAtts ở bài #3 đó bạn.

[tien2005 242]

thanks.

mình down về rồi nhưng ko có thgian test, nhân tiện đọc bài này thì yêu cầu luôn ^^

[tien2005 242]

mình đã test hàm GetAtts chạy tốt. Tuy nhiên với text unicode tiếng Việt có dấu thì khi ghi text ra màn hình bị lỗi font. Nếu dùng thuần lisp thì không bị

[phuong44e1 2]

Cảm ơn bài viết rất nhiều. Nhờ bài viết mà mình đã làm dc lisp của mình. Mình muốn bình chọn mà ko biết làm nhw thế  nào