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

ifeelhard

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

这段语句执行不出来

alin

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

77077

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

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

ysq101

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

很详细。。。好师父