rlx 发表于 2022-7-5 16:59:25

dober 发表于 2022-7-5 17:03:27

Hier die dwg auf 2010
Testblock - 2010.zip

rlx 发表于 2022-7-5 17:07:32

quickly written :
 
 

; Dober.lsp written for Dober on CadTutor - rlx 27-jun-2017; blockname = "Schriftkopf mit Rahmen"; tag 1 = EBENE , tag 2 = BAUTEIL(defun C:Dober ( / bn att-list layout obj) (vl-load-com) (setq bn "Schriftkopf mit Rahmen" att-list '( ("EBENE" . "rlx1") ("BAUTEIL" . "rlx2"))) (vlax-for layout (vla-get-layouts (vla-get-ActiveDocument (vlax-get-acad-object)))   (vlax-for obj (vla-get-block layout)   (if (and (eq (vla-get-objectname obj) "AcDbBlockReference")       (vlax-property-available-p obj 'effectivename)       (eq (strcase (vla-Get-EffectiveName obj)) (strcase bn))       (eq (vla-get-hasattributes obj) :vlax-true))(update_attributes obj)   )   ) ))(defun update_attributes (%obj / ) (mapcar   (function   (lambda ( att / tag)(if (setq tag (assoc (vla-get-TagString att) att-list))(vlax-put-property att 'TextString (cdr tag)))))   (vlax-invoke %obj 'GetAttributes) ))
 
 
gr. Rlx

dober 发表于 2022-7-5 17:13:11

Perfect 1000 times thank you
:)

rlx 发表于 2022-7-5 17:18:57

 
 
Sie sind willkommen
 
 
gr. Rlx
页: 1 [2]
查看完整版本: Dynamische Blöcke和布局