将文本附加到属性ta
不确定这是否是发布此消息的正确位置，但现在开始。我经常编辑一个区块。其中一个标记以英寸为单位，因此每次编辑值时，我都必须为英寸添加一个引号。我可以将其添加到标记中，这样就不必每次都更改它吗？我曾想过为引号创建第二个文本对象，但属性需要居中，并且值可以从1位更改为2位，这样它就不会始终正确对齐。 你好试试看。
(defun c:Test (/ st s e)
(and (/= "" (setq st (getstring t "\nEnter text value without Inch quotes :")))
(setq s (car (nentsel "\nPick on Attribute :")))
(= (cdr (assoc 0 (setq e (entget s)))) "ATTRIB")
(entmod (subst (cons 1 (strcat st "\"")) (assoc 1 e) e))
)
(princ)
)
页:
[1]