[求助]谁能教教我怎么用LISP编写倒圆角的程序吖`？

kmzhkyo · 发表于 2006-3-29 15:36:00

谁能教教我怎么用LISP编写倒圆角的程序吖~？两条任意相交的直线用LISP怎么选取吖~？

ljpnb · 发表于 2006-3-29 15:52:00

(defun c:test ()
(setq ent1 (entsel "\n选择一个物体:"))
(setq ent2 (entsel "\n选择另一个物体:"))
(if (and ent1 ent2)
(command "fillet" "r" 10 "fillet" ent1 ent2);_这个10也可以用变量输入
)
(princ)
)

kmzhkyo · 发表于 2006-3-29 15:56:00

不能把选取的动作放在后台通过计算代替吗？

现在要倒p16-p17直线和p16-p13直线的圆角，怎么办呢？

ljpnb · 发表于 2006-3-29 16:01:00

(command "line" p12 p13 "")
(command "line" p13 p16 "")
(setq ent1(entlast))
(command "line" p16 p17 "")
(setq ent2(entlast))
........
........
(command "fillet" "r" 1 "fillet" ent1 ent2)

kmzhkyo · 发表于 2006-3-29 16:09:00

哇，试试先，谢谢老哥啦，真好

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

[求助]谁能教教我怎么用LISP编写倒圆角的程序吖`？

本帖子中包含更多资源