这篇文章给我带来了麻烦:
- (if (= tipodepeca "V")
- (progn
- (prin1 "peca V confirmada")
- (if (= _angle 0)
- (progn
- (prin1 "angulo 0 confirmado")
-
- (setq
- correcaoalturav (/ (- 20 conversaodim) 2)
- contas (- 25.308 correcaoalturav)
- )
- [b](if (<= conversaodim contas) (progn (setq contas (25.308))))[/b]
- (setq
- newposition (cons 10 (list (- (cadr position) 15) (- (caddr position) contas )))
- substituteposition (subst newposition position enty)
- )
- (entmod substituteposition)
- )
|