使用实际$

kam1967 · 发表于 2022-7-6 15:09:53

您好，我想知道是否有人可以告诉我如何编写脚本或lisp来更新标题栏中名为DRAWINGNAME的属性。具有实际$FILENAME$的DWG。我正在尝试更新旧的标题栏，这些标题栏不是在考虑字段概念的情况下创建的。

提前感谢您，

卡梅隆

Lee Mac · 发表于 2022-7-6 15:15:21

我在这里可能有点离题，但我的理解是，您希望更新旧图形中的标题栏，以便名为“DRAWINGNAME”的属性包含图形的文件名。

我说得对吗？

kam1967 · 发表于 2022-7-6 15:19:00

是的，李。我需要DRAWINGNAME属性使用的实际文件名（无论其名称如何）。非常感谢。

Lee Mac · 发表于 2022-7-6 15:19:54

试一试{Untested}

copy


(defun c:dwgupd (/ ss eLst dNme aEnt aEntLst)
 (vl-load-com)
 (if (setq ss (ssget "X" (list (cons 0 "INSERT") (cons 2 "TITLE") (cons 66 1)
    (if (getvar "CTAB")
      (cons 410 (getvar "CTAB"))
      (cons 67 (- 1 (getvar "TILEMODE")))))))
   (progn
   (setq eLst (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
     dNme (vl-filename-base (getvar "DWGNAME")))
   (foreach e eLst
     (setq aEnt (entnext e))
     (while (not (eq "SEQEND" (cdadr (setq aEntLst (entget aEnt)))))
   (if (= "DRAWINGNAME" (cdr (assoc 2 aEntLst)))
     (entmod (subst (cons 1 dNme)(assoc 1 aEntLst) aEntLst)))
   (setq aEnt (entnext aEnt)))))
   (princ "\n<!> No Title Blocks Found <!> "))
 (princ))

dbroada · 发表于 2022-7-6 15:23:33

这听起来很熟悉，是不是李。

kam1967 · 发表于 2022-7-6 15:26:32

太好了，李！你真有学问。非常感谢。我现在只需要重新生成它，这样我就知道已经发生了变化。我会设法弄明白的。再次感谢！

Lee Mac · 发表于 2022-7-6 15:31:45

我已经花了很多时间练习编写块属性更新例程，现在我闭上眼睛就可以完成了

Lee Mac · 发表于 2022-7-6 15:33:56

啊，是的，我没有在里面放摄政王。。。只需在末尾加上这个（就在最后一个（普林斯）之前）：

copy


(command "_regenall")

Lee Mac · 发表于 2022-7-6 15:36:31

即

copy


(defun c:dwgupd (/ ss eLst dNme aEnt aEntLst)
 (vl-load-com)
 (if (setq ss (ssget "X" (list (cons 0 "INSERT") (cons 2 "TITLE") (cons 66 1)
    (if (getvar "CTAB")
      (cons 410 (getvar "CTAB"))
      (cons 67 (- 1 (getvar "TILEMODE")))))))
   (progn
   (setq eLst (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
     dNme (vl-filename-base (getvar "DWGNAME")))
   (foreach e eLst
     (setq aEnt (entnext e))
     (while (not (eq "SEQEND" (cdadr (setq aEntLst (entget aEnt)))))
   (if (= "DRAWINGNAME" (cdr (assoc 2 aEntLst)))
     (entmod (subst (cons 1 dNme)(assoc 1 aEntLst) aEntLst)))
   (setq aEnt (entnext aEnt)))))
   (princ "\n<!> No Title Blocks Found <!> "))
 (command "_regenall")
 (princ))

kam1967 · 发表于 2022-7-6 15:40:27

非常感谢。我最终也明白了，在你建议的位置使用这个命令。似乎也能做到，但我想我会用你的。。。那样更专业！

（princ“\n未找到标题栏”））
（普林斯）
（命令“REGEN”）
)

[编程交流] 使用实际$

发表回复

精选推荐