没有理由启动新线程。
插入周围有太多paren。
如。
- ((command "_insert" "ssw1" '(0. 0. 0.) 1. 1. 0.)))
制造商:
- (command "_insert" "ssw1" '(0. 0. 0.) 1. 1. 0.))
漂亮干净:
- (defun C:prac6 (/ a b)
- (setq a 1)
- (setq b 1)
- (if (= a b)
- (command "_insert" "ssw1" '(0. 0. 0.) 1. 1. 0.)
- )
- (command "zoom" "e")
- )
|