[求助]怎样实现直线和圆弧之间的倒圆角?

xiexiaohua

这是我编的测试的一个小程,可就是执行不了,这与图元的选择有关吗?是图元就到不了圆角吗?

 请知道的朋友帮帮忙!!!!!!!!!!!!

(defun c:cc()
(setq p1 (getpoint"\nqqqq:"))
(setq p3 (polar p1 (/ pi 4) 35))
(setq p4 (polar p1 (/ pi 4) 45))
(setq p5 (polar p1 0 20)) 
 (command "circle" p1 20 "")
(setq a1 (list (entlast) p5))

(command "pline" p1 p4 "")
(setq a2 (list (entlast) p3))

(command "fillet" "r" 4 "fillet" a1 a2))

 

ljpnb

(command "pline" p1 p4 "")
改成(command "line" p1 p4 "")就可以了

xiexiaohua

谢谢ljpnb了,昨天想好几个小时都没想明白,找不出错在哪了......

隽轩2013

(command “circle” p1 20)

前生

少用COMMAND,多用entmake等通过计算来生成实体。

下文没句号。

楼主改好了没呢？