[求助] Attribute Definition 问题

xjjy

请教一个问题：
如图： 我要定义一TAG
其值(Value)为另两个TAG的乘积，请问表达式要如何写？
谢谢！

meflying

表达式? value=tag1*tag2 如果是程序,这样: (defun c:test( / ent1 ent2 ent3 val ents)
(setq ent1 (car (entsel "选择属性1..."))
ent2 (car (entsel "选择属性2..."))
ent3 (car (entsel "选择属性3..."))
)
(setq val (* (atof (cdr (assoc 2 (entget ent2))))
(atof (cdr (assoc 2 (entget ent3))))
))
(setq ents (entget ent1))
(setq ents (subst (cons 1 (rtos val)) (assoc 1 ents) ents))
(entmod ents)
)

xjjy

谢谢！


我时试试！