嗨，伙计们
我写了一个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 et1 et2 "")
- (command "Chamfer" "" et4 et1 "")
- (princ)
- )
| 
置顶卡
