[求助]关于在LISP里给圆弧倒圆角的问题?

vocabulary

ljpnb大侠:
    我记得您在论坛里回答过一个人关于在LISP里倒圆角的贴子
语句为:
(command "line" p1 p2)
(setq ent1 (entlast))
(command "line" p2 p3)
(setq ent2 (entlast))
(command "fillet" "r" 1 "fillet" ent1 ent2)

但为什么下面其中ent2为圆弧时倒出来的圆角是不对的?该如何来解决这一问题,能不能给讲一讲?谢谢!
(command "line" p1 p2)
(setq ent1 (entlast))
(command "arc" p2 p3 p4)  ;;三点画弧
(setq ent2 (entlast))
(command "fillet" "r" 1 "fillet" ent1 ent2)

ljpnb

就是倒的方向不对吧，最后一句(command "fillet" "r" 1 "fillet" ent1 ent2)最好改成

(command "fillet" "r" 1 "fillet" (list ent1 point1) (list ent2 point2));_其中point1和

point2可以是物体的端点

yshf

试一试如下：

   (command "line" p1 p2 "")
   (setq ent1 (entlast))
   (command "arc" p2 p3 p4)  ;;三点画弧
   (setq ent2 (entlast))
   (command "fillet" "r" 1 "fillet" (list ent1 p2) (list ent2 p2))

vocabulary

谢谢两位大侠!我再消化消化.

fenger520

   (command "line" p1 p2 "")
   (setq ent1 (entlast))
   (command "arc" p2 p3 p4)  ;;三点画弧
   (setq ent2 (entlast))
   (command "fillet" "r" 1 "fillet" (list ent1 p2) (list ent2 p2))

请问一下上楼的大哥，这里面的list这是什么意思啊，，，还有你在这里输P2又是什么意思啊，，谢谢啊，