xjjy 发表于 2004-9-21 21:51:00

[求助] Attribute Definition 问题

请教一个问题：<BR>如图：


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

meflying 发表于 2004-9-22 08:40:00

表达式?


value=tag1*tag2


如果是程序,这样:


(defun c:test( / ent1 ent2 ent3 val ents)<BR>       (setq ent1 (car (entsel "选择属性1..."))<BR>        ent2 (car (entsel "选择属性2..."))<BR>        ent3 (car (entsel "选择属性3..."))<BR>       )<BR>       (setq val (* (atof (cdr (assoc 2 (entget ent2))))<BR>                                                       (atof (cdr (assoc 2 (entget ent3))))<BR>                               ))<BR>       (setq ents (entget ent1))<BR>       (setq ents (subst (cons 1 (rtos val)) (assoc 1 ents) ents))<BR>       (entmod ents)<BR>)

xjjy 发表于 2004-9-22 10:06:00

谢谢！


我时试试！
页: [1]
查看完整版本: [求助] Attribute Definition 问题