将图形另存为属性值

cabltv1 · 发表于 2022-7-6 12:15:30

大家好，

我正在寻找一个Lisp例程，它将用属性值中的名称保存图形。
块名为“MAP_NUM”。
标签名为“MAP”。
例子：
图纸名称为25-25。标签值为“500-500”。
将图纸25-25另存为500-500。

任何帮助都将不胜感激。

SteveK · 发表于 2022-7-6 12:38:46

看看这是怎么回事。将文件保存到当前文件夹（因为未指定），如果有多个块，则只查找找到的第一个块：

copy

(defun c:savePerAtt (/ blkname attTag ss txtStr subEn)
 (vl-load-com)
 
 ; Get Text String
 (setq blkname "PLD Border 07");"MAP_NUM")
 (setq attTag "TITLE1");"MAP")
 (if (setq ss (ssget "_X" (list '(0 . "INSERT") (cons 2 blkname))))
   (progn
     (setq subEn (ssname ss 0))
     (while (AND (not txtStr)
         (setq subEn (entnext subEn))
         (eq (cdr (assoc 0 (entget subEn))) "ATTRIB"))
   (If (eq (cdr (assoc 2 (entget subEn))) attTag)
     (setq txtStr (cdr (assoc 1 (entget subEn))))
     )
   )
     )
   )
 ; Save Drawing
 (If txtStr
   (vla-saveas
     (vla-get-activedocument
   (vlax-get-acad-object))
     txtStr)
   (princ "\nAttribute Not Found.")
   )
 
 (princ)
 )

cabltv1 · 发表于 2022-7-6 13:08:35

完美的
非常感谢你。这个例行公事会节省我很多时间。

SteveK · 发表于 2022-7-6 13:22:59

别担心

[编程交流] 将图形另存为属性值

发表回复

精选推荐