[求助]：大家看下这个lisp程序，是不是Autocad的一个BUG

Aixer

[求助]两条pline倒角的问题！急用！！请大家帮帮忙！谢谢了！！
我在编一个程序，用到了两条pline进行倒角，可是执行后，老是倒不出来，总实提示“圆角需要两条直线、圆弧或圆。
圆角需要两条直线、圆弧或圆。”
用的是AutoCAD2002

请大家帮帮忙！！！

谢谢了！！

(defun c:ft041();相交的两条pline线倒角?
  (setvar "cmdecho" 0)
  (setq pu (getvar "plinetype"))
  (setvar "plinetype" 0)
  (princ "\n相交的两条pline线倒角!(plinetype=0)")
  (command "pline" (list 100 100) (list 200 200) "")
  (setq enpl1 (entlast))
  (command "pline" (list 300 100) (list 100 200) "")
  (setq enpl2 (entlast))
  (f enpl1 enpl2)
  (command "zoom" "e")
  (command "erase" "all" "")
  (setvar "plinetype" pu)
  (setvar "cmdecho" 1)
  (princ)
  )

(defun f(e1 e2)
  (command "fillet" "r" 20  )
  (command "fillet" e1 e2  )
  (vl-cmdf)
  (princ)
   )

它山之石

楼主强啊，都发现CAD的BUG了。
俺只是觉得你在命令行能否实现对PLINE的FILLET。R14反正是不能的。2004能。2002不详。

netgiu

一用，图都被删了

aeo

我好像贴过:

直接用点(不用实体名)来fillet ,同时要(osnap "nea")
(command "fillet" (osnap pt "nea") ......)
自己想办法吧找那两个点吧.

xyp1964

用aeo的方法，行！
[php]  ;相交的两条pline线倒角
(defun c:test ()
  (setvar "cmdecho" 0)
  (setvar "plinetype" 0)
  (command "pline" (list 100 100) (list 200 200) "")
  (command "pline" (list 300 100) (list 100 200) "")
  (command "fillet" "r" 20)
  (command "fillet"
           (osnap (list 100 100) "nea")
           (osnap (list 300 100) "nea")
  )
  (setvar "cmdecho" 1)
  (princ)
)[/php]

狂刀

这不算是方法
fillet本来要求的就是“点”而不是实体

aeo

最初由 狂刀 发布
[B]这不算是方法
fillet本来要求的就是“点”而不是实体 [/B]

谁说的?那为什么可以是实体line呢.

狂刀

说错了，1.正确回应fillet的应该是同(entsel)返回值的表。
用2.getpoint，3.实体名回应也可以（刚刚测试，的确可以，但我想这不是fillet这个命令想要的，只不过是没多大意义的附带支持功能，因为fillet按照命令的解释，倒角结果是与点取的位置密切相关的）
推荐用第一种
用实体名虽然可以响应部分fillet，但是倒角的部位与选择的部位无关。因此可能倒出的结果不是想要的