将文本附加到属性ta

plackowski · 发表于 2022-7-5 16:54:56

不确定这是否是发布此消息的正确位置，但现在开始。我经常编辑一个区块。其中一个标记以英寸为单位，因此每次编辑值时，我都必须为英寸添加一个引号。我可以将其添加到标记中，这样就不必每次都更改它吗？我曾想过为引号创建第二个文本对象，但属性需要居中，并且值可以从1位更改为2位，这样它就不会始终正确对齐。

Tharwat · 发表于 2022-7-5 18:51:48

你好

试试看。

copy


(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)
 )

[编程交流] 将文本附加到属性ta

发表回复

精选推荐