用于块布局名称的Lisp

gamulj · 发表于 2022-7-5 16:56:30

大家好！

我正在构建标题栏（带有属性的块），我需要一个例程，该例程将自动读取多布局dwg中的布局名称，并将其写入每个布局的块属性“布局”。带有Ctab的字段不适合我的需要。。。

这样的事情可能吗？
谢谢

Tharwat · 发表于 2022-7-5 17:01:27

是的，这是可能的。

您的属性标题栏的名称是什么？

gamulj · 发表于 2022-7-5 17:05:49

嗨Tharwat！

块的名称为TITLEBLOCK。

Tharwat · 发表于 2022-7-5 17:10:00

我们开始吧，试试这个程序。

copy


(defun c:Test  nil
 ;;------------------------------------;;
 ;;    Tharwat 20.05.2015        ;;
 ;;    Modify Title Blocks that have     ;;
 ;;    Tag name "LAYOUT" wiht its    ;;
 ;;    location is each Layout's Name    ;;
 ;;------------------------------------;;
 (vlax-for x  (vla-get-layouts (vla-get-ActiveDocument (vlax-get-acad-object)))
   (if (/= (vla-get-name x) "Model")
     (vlax-for b  (vla-get-block x)
       (and (eq (vla-get-objectname b) "AcDbBlockReference")
            (eq (vla-get-effectivename b) "TILTEBLOCK")
            (vl-some
              '(lambda (a)
                 (if
                   (eq "LAYOUT" (strcase (vla-get-tagstring a)))
                    (vla-put-textstring a (vla-get-name x))
                    )
                 )
              (vlax-invoke b 'getattributes)
              )
            )
       )
     )
   )
 (princ)
 )(vl-load-com)