ifeelhard 发表于 2014-7-2 09:50:58

求助 建立椭圆并改变其颜色（求高手帮助修改）

(command "ellipse" "c" p0 p1 p2)
(setq ent (entlast)
(setq ent0 (Vlax-Ename->Vla-Object (car ent)))
(Vla-put-color ent0 3))

这段语句执行不出来

alin 发表于 2014-7-2 09:55:25

(command "ellipse" "c" p0 p1 p2)
(setq ent (entlast))
(setq ent0 (Vlax-Ename->Vla-Object ent))
(Vla-put-color ent0 3))

77077 发表于 2014-7-2 09:58:48


(command "ellipse" "c" p0 p1 p2)
(setq ent (entlast);此处少了个）
(setq ent0 (Vlax-Ename->Vla-Object (car ent)))；entlast获得的就是图元名，无需car
(Vla-put-color ent0 3))

ysq101 发表于 2014-7-2 10:46:28

77077 发表于 2014-7-2 09:58 static/image/common/back.gif


很详细。。。好师父
页: [1]
查看完整版本: 求助 建立椭圆并改变其颜色（求高手帮助修改）