[求助]：在lisp中执行Fillet命令的不同？

小菜

ACAD2002中，对两条轻多义线，直接用fillet命令是可以倒角的，但使用(command "fillet" (entsel) (entsel))则不行，是什么原因？怎么解决？

xfzzmzj

这样就可以了
(command "fillet" (car (entsel)) (car (entsel)))

小菜

楼上的也不行的，另，fillet需要传递带拾取点的实体表

xfzzmzj

你是不是用的版本有问题
我已经测试，可以的

小菜

我用2002，你是什么版本？

xfzzmzj

把你的qq给我，我给你发个图片

小菜

我试了2005也不行

xcajcj

最初由 小菜 发布
[B]ACAD2002中，对两条轻多义线，直接用fillet命令是可以倒角的，但使用(command "fillet" (entsel) (entsel))则不行，是什么原因？怎么解决？ [/B]

用“(command "fillet" (entsel) (entsel))”可以倒角。
怀疑是你的倒解半径设置为0或小值。默认是10。我在默认倒角半径为10的怀况下，用“(command "fillet" (entsel) (entsel))”可以对两条直线进行倒角操作。

fsxm

对于两个多义线:
1.试试把一条打散成line吧～
2.用pause
3.用point代替(entsel)再加(vlax-curve-getclosepoint en p)
　这样也可以很精确了，但是也不敢保证１００％正确性

xcajcj

编程时最好先按F1看看要用到的命令的参数。

小菜

最初由 fsxm 发布
[B]对于两个多义线:
3.用point代替(entsel)再加(vlax-curve-getclosepoint en p)
　这样也可以很精确了，但是也不敢保证１００％正确性 [/B]

这个3能不能说得清楚一些，应该怎么向fillet传递参数才能成功？

xshrimp

我也对filllet迷惑过.现在也没有很好的解决..
下面是搜索到的一些解决方法
[php]
fools
(vl-cmdf ".fillet" (cadr(entsel)) (cadr(entsel)))
这行命令在2004、06中测试成功.在2007中不知为什么不行??


xpy1964
;line
(defun c:test()
(setq s1 (entsel)
s2 (entsel)
)
(command "fillet" s1 s2)
)
;pline
(defun c:test()
(setq s1 (cadr(entsel))
s2 (cadr(entsel))
)
(command "fillet" s1 s2)
)


aeo
找到答案:
(command "_.FILLET"(osnap (cadr (entsel)) "_nea")(osnap(cadr (entsel)) "_nea"))
;;e1 e2是entsel得到的。（其实是选的同一条pl线的两条边)

[/php]

fsxm

我在9楼说的是说:用一个点参数p代替(en p)
作个简单的测试吧:
(command "fillet" (getpoint) (getpoint))这个却可以用程序实现
与12最后的思路"
(command "_.FILLET"(osnap (cadr (entsel)) "_nea")(osnap(cadr (entsel))差不多
不过我主张用(vlax-curve-getclosepoint en p)而非(osnap  p "_nea")
这样可以在程序中传递参数也相对很精确了

小菜

多谢楼上两位，CAD的有些特性非常奇怪，真搞不清是BUG还是有意为之