AutoLisp中的Fillet命令所需参数

eachy · 发表于 2013-6-23 12:28:12

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

一直没有注意过Autolisp中使用 Fillet 的用法，今天偶尔用了一次，有点心得记录一下
1 对 Line 可以使用 Entsel 返回值作为 fillet 的参数
2 对LWpolyline 用 Entsel 返回值作为 Fillet 的参数，执行失败

经过 Google 搜索，找到一个解决办法 http://www.cadtutor.net/forum/sh ... Problem-with-fillet

下面是一个测试程序

(defun c:tt (/ getpt ss pts)
(defun getpt (e1 e2 / sp1 ep1 sp2 ep2 p p1 p2)
(setq sp1 (vlax-curve-getstartpoint e1)
ep1 (vlax-curve-getendpoint e1)
sp2 (vlax-curve-getstartpoint e2)
ep2 (vlax-curve-getendpoint e2)
p (inters sp1 ep1 sp2 ep2 nil)
)
(if (> (distance p sp1) (distance p ep1))
(setq p1 ep1)
(setq p1 sp1)
)
(if (> (distance p sp2)
(distance p ep2))
(setq p2 ep2)
(setq p2 sp2)
)
(list p1 p2)
)
(while (and (setq ss (ssget '((0 . "line,lwpolyline"))))
(= (sslength ss) 2)
)
(setq pts (getpt (ssname ss 0) (ssname ss 1)))
(vl-cmdf ".fillet" (car pts) (cadr pts));_ 需要点，不是entsel返回值，对 Line可以用 entsel，pline 用点
)
(princ)
)

总结：用点作参数对 Line 、Pline 均有效，其他未测试

crazylsp · 发表于 2013-6-24 00:13:25

；；是有楼上各大师说的问题,修改成如下{:soso_e189:}
(defun c:tt()
  (defun tt()
(setq s(ssget ":S"))
(if(=(length(ssnamex s 0))1)
(progn
   (alert "换成用entsel")
   (setq p(cadr(entsel"拾取")))
)
(progn
   (setq xy (last(ssnamex s 0)))
   (setq xx (last(cadr xy)))
   (setq o (vlax-ename->vla-object(ssname s 0)))
   (setq p (vlax-curve-getClosestPointTo o xx))
)
  )
)
(command "fillet" (tt) (tt))
)

HLCAD · 发表于 2013-6-23 16:19:01

对LWPOYLINE、开口的，采用（ENAME PT）有效，我在程序中使用过的。
我的系统XP+CAD2012

Free-Lancer · 发表于 2013-6-23 17:07:29

两个单段pline, windows 7+ 2014cad 32位，用 entsel 返回值无效来自: Android客户端

--@----- · 发表于 2013-6-23 21:32:31

对十字形T字形的线倒角，框选还是点选结果还不是自己想要的那一部分，希望大侠完善下框选或者点选的那部分保留，另外的就自动裁剪了。

--@----- · 发表于 2013-6-23 21:33:54

很期待有这样的:)

--@----- · 发表于 2013-6-23 22:09:16

大家有时间继续完善下面这个代码
(defun c:1 (/ getpt ss pts)
 (defun getpt (e1 e2 / sp1 ep1 sp2 ep2 p p1 p2)
(setq sp1 (vlax-curve-getstartpoint e1)
 ep1 (vlax-curve-getendpoint e1)
 sp2 (vlax-curve-getstartpoint e2)
 ep2 (vlax-curve-getendpoint e2)
 p (inters sp1 ep1 sp2 ep2 nil)
)
(if (> (distance p sp1) (distance p ep1))
 (setq p1 ep1)
 (setq p1 sp1)
)
(if (> (distance p sp2)
 (distance p ep2))
 (setq p2 ep2)
 (setq p2 sp2)
)
(list p1 p2)
 )
 (while (and (setq ss (ssget '((0 . "line,lwpolyline"))))
 (= (sslength ss) 2)
 )
(setq pts (getpt (ssname ss 0) (ssname ss 1)))
(vl-cmdf ".fillet" (car pts) (cadr pts));_ 需要点，不是entsel返回值，对 Line可以用 entsel，pline 用点
 )
 (princ)
)(defun c:tt (/ getpt ss pts) 
 (defun getpt (e1 e2 / sp1 ep1 sp2 ep2 p p1 p2) 
(setq sp1 (vlax-curve-getstartpoint e1) 
 ep1 (vlax-curve-getendpoint e1) 
 sp2 (vlax-curve-getstartpoint e2) 
 ep2 (vlax-curve-getendpoint e2) 
 p (inters sp1 ep1 sp2 ep2 nil) 
) 
(if (> (distance p sp1) (distance p ep1)) 
 (setq p1 ep1) 
 (setq p1 sp1) 
) 
(if (> (distance p sp2) 
 (distance p ep2)) 
 (setq p2 ep2) 
 (setq p2 sp2) 
) 
(list p1 p2) 
 ) 
 (while (and (setq ss (ssget '((0 . "line,lwpolyline")))) 
 (= (sslength ss) 2) 
 ) 
(setq pts (getpt (ssname ss 0) (ssname ss 1))) 
(vl-cmdf ".fillet" (car pts) (cadr pts));_ 需要点，不是entsel返回值，对 Line可以用 entsel，pline 用点 
 ) 
 (princ) 
)

crazylsp · 发表于 2013-6-23 23:22:02

好像(command "fillet" (ssget ":S") (ssget ":S"))可以，但我也不确定你试试。:loveliness:

eachy · 发表于 2013-6-23 23:26:53

crazylsp 发表于 2013-6-23 23:22
好像(command "fillet" (ssget ":S") (ssget ":S"))可以，但我也不确定你试试。

这个对 Pline 可以，但是用到 Line 上就有 Bug 了，Fillet 认长不认短

crazylsp · 发表于 2013-6-24 14:47:16

eachy 发表于 2013-6-23 23:26
这个对 Pline 可以，但是用到 Line 上就有 Bug 了，Fillet 认长不认短

认长不认短

原来CAD很智能

账号		自动登录	找回密码
密码			立即注册

[教学] AutoLisp中的Fillet命令所需参数

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

相关帖子

评分

点评

点评