倒角函数
嗨，伙计们我写了一个Lisp程序的，它的工作只有50%。
有人能让它100%起作用吗？
非常感谢。
(defun c:chrec()
(setq a (getint "\nEnter x Length: "))
(setq b (getint "\nEnter Y length: "))
(setq c 1500)
(setq d 100)
(setq p1 '(0 0))
(setq p2 (polar p1 0 a))
(setq p3 (polar p2 (/ pi 2) b))
(setq p4 (polar p3 (/ pi 1) a))
(setq p5 (polar p4 (/(* pi 3) 2) b))
(command "Line" p1 p2 "")
(setq et1 (ssget "L" ))
(command "Line" p2 p3 "")
(setq et2 (ssget "L" ))
(command "Line" p3 p4 "")
(setq et3 (ssget "L" ))
(command "Line" p4 p5 "")
(setq et4 (ssget "L" ))
(command "Chamfer" "distance" c d et1et2 "")
(command "Chamfer" "" et4 et1 "")
(princ)
)
通过AutoLISP向命令提供点输入时，需要考虑活动对象捕捉模式。为此，请暂时禁用对象捕捉或在点输入前加上“非”命令修饰符，以指示命令忽略下一个点输入的所有活动对象捕捉模式，例如：
(command "_.line" "_non" p1 "_non" p2 "")
要了解其他命令前缀的效果，请阅读我的教程的第一节。
页:
[1]