更改标注文字
我可以使用lisp例程输入尺寸，但我可以返回并使用lisp例程将尺寸文本（例如6英寸）更改为字母吗？就像在AutoCad中使用ddedit更改文字一样。我理解entget-entlast和assoc命令，但似乎无法改变它，有什么建议吗？谢谢你，迈克 下面是一个非常简单的示例：
(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)
) 这就是我要找的那条线
（entmod（subst（cons 1 ds）（assoc 1 en）en））
谢谢，这有助于迈克：D 不客气，迈克
页:
[1]