更改标注文字

Mike55 · 发表于 2022-7-6 06:58:21

我可以使用lisp例程输入尺寸，但我可以返回并使用lisp例程将尺寸文本（例如6英寸）更改为字母吗？就像在AutoCad中使用ddedit更改文字一样。我理解entget-entlast和assoc命令，但似乎无法改变它，有什么建议吗？

谢谢你，迈克

Lee Mac · 发表于 2022-7-6 07:32:03

下面是一个非常简单的示例：

copy

(defun c:dimt ( / ds en )
   (if
       (and
           (setq en (car (entsel "\nSelect Dimension: ")))
           (wcmatch (cdr (assoc 0 (setq en (entget en)))) "*DIMENSION")
       )
       (if (/= "" (setq ds (getstring t "\nSpecify Text for Dimension: ")))
           (entmod (subst (cons 1 ds) (assoc 1 en) en))
       )
       (princ "\nNothing selected or object is not a Dimension.")
   )
   (princ)
)

Mike55 · 发表于 2022-7-6 07:41:16

这就是我要找的那条线
（entmod（subst（cons 1 ds）（assoc 1 en）en））
谢谢，这有助于迈克：D

Lee Mac · 发表于 2022-7-6 08:01:08

不客气，迈克

[编程交流] 更改标注文字

发表回复

精选推荐