[编程交流] Dynamische Blöcke和布局

; 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) ))