yang686526

[求助]请教高手,这段程序错在哪里了呢?
www.dimcax.com
[求助]请教高手,这段程序错在哪里了呢?
(if (= (cdr (assoc 0 (setq ent (cdr (entget (setq en (car en))))))) "insert")
(setq a1 (cdr (assoc 41 ent))
a2 (cdr (assoc 42 ent))
a3 (cdr (assoc 43 ent)))
(if (or (/ = a1 a2) (/ = a2 a3))
(progn
(setq ent (subst (cons 42 (cdr (assoc 41 ent))) (assoc 41 ent) ent))
(setq ent (subst (cons 43 (cdr (assoc 41 ent))) (assoc 41 ent) ent))
(entmod e)
)
))
这段程序错在哪里了呢?
d
(setq ent (subst (cons 42 (cdr (assoc 41 ent))) (assoc 41 ent) ent))
(setq ent (subst (cons 43 (cdr (assoc 41 ent))) (assoc 41 ent) ent))
这两句中 组码还能换吗?
change your life style.
d

yang686526

[求助]龙龙仔和各位高手,挑战一下你们,能不能做出这样的功能?
www.dimcax.com

那个按钮可以画出来。所以用dcl就可以了
d