[Hỏi] Truy xuất tên thật của Dynamid Block

[LoveLisp 21]

DXF của block, trong trường hợp thông thường, tên block nằm ở code 2.

Tuy nhiên, đối với Dynamid Block, code 2 chỉ là bắt đầu bằng ký tự * và nó không phải là tên thật của block đó.

Nếu gọi lệnh List, ta sẽ thấy 2 dòng:

Block Name: "CrossStructure-CulvertBoxPlan"

Anonymous Name: "*U431"

Vậy đối với Dynamid Block, làm sau để truy xuất Block Name bằng AutoLisp?

Và liệu có thể chọn được tất cả các Dynamid Block xuất phát từ cùng một Block gốc hay không?

[soluuhuong2903 22]

bạn dùng (vla-get-effectivename block) thử xem. nhớ block ở đây là vla-object nhé.have fun :)

[ketxu 2.984]

Dùng Vl bạn ạ. Lấy nguyên 2 cái của Lee bạn tham khảo nhé :

 

(defun LM:EffectiveName ( blockobject )
 (vlax-get-property blockobject
(if (vlax-property-available-p blockobject 'EffectiveName) 'EffectiveName 'Name)
 )
)

 

VL k ưng Unicode lắm, nên mới có phiên bản Autolisp :

 

(defun LM:EffectiveName ( blockentity / name repbtag )
 (if (wcmatch (setq name (cdr (assoc 2 (entget blockentity)))) "`**")
(if
 	(and
   	(setq repbtag
     	(cdadr
       	(assoc -3
         	(entget
           	(cdr
             	(assoc 330
               	(entget (tblobjname "BLOCK" name))
             	)
           	)
          	'("AcDbBlockRepBTag")
         	)
       	)
     	)
   	)
   	(setq repbtag (handent (cdr (assoc 1005 repbtag))))
 	)
 	(setq name (cdr (assoc 2 (entget repbtag))))
)
 )
 name
)

[LoveLisp 21]

Cám ơn soluuhuong2903 và ketxu, mình đã tìm được tên chính xác rồi.

Vấn đề còn lại là làm sao chọn tất cả các dynamid block xuất phát từ cùng một block name?

Mong các bác chỉ giáo!

[ketxu 2.984]

lọc và kiểm tra thôi

[LoveLisp 21]

Cám ơn ketxu! Tốt rồi! :))