老程序转换问题

rakezhao

以前公司有NN多的.r12程序,lisp写的...现在要改成.2002版本.里面有太多东东要改了.问问.要怎么样才会快.我改了一个月了.才改了十来个.头大了.

meflying

没有你的程序，怎么改？

CADghost

me版，说说2000和2004以及R14的程序之间有什么不一样的，


我也老是遇到楼主所说的问题。

meflying

要系统地说，我还真说不出来，给到程序，估计能改出来，


我觉得主要是使用上的区别导致程序的有所改动，就语言方面来说，应该没什么改动

rakezhao

;比如下面程序.此程序已在meflying上次的说明中我已改过来了.可是还好多此程问题 ;如一个一个去核对改.好烦.这个还只是Poly (defun c:of(/ cl dis np entn entd sd entnn ovp ovp1 vf vfd nvp nvp1 angd nly)
(setvar "cmdecho" 0)
(setq cl (getvar "CLAYER"))
(if (= diso nil) (setq diso 1))
(initget 6)
(setq dis (getint (strcat "\nOffset distance:<" (itoa diso) ">:" )))
(if (= dis nil)(setq dis ( / diso 25.4 ))(setq diso dis))
(setq dis_org dis)
(setq np nil)
(while (= np nil)
(setq np (entsel))
(if (/= np nil)
(progn
(setq entn (car np))
(setq entd (entget entn))
(setq entd (subst (cons 8 "3") (assoc 8 entd) entd))
(if (/= (assoc '62 entd) nil)(setq entd (subst '(62 . 256) (assoc '62 entd) entd)))
(entmod entd)
(setq sd (getpoint "\nSide to offset:"))
(command "offset" dis np sd "")
(setq entnn (entlast))
(setq ovp (cdr (assoc '10 (entget (setq entn (entnext entn))))))
(setq vf (cdr (assoc '70 (setq vfd (entget (setq entn (entnext entn)))))))
(if (/= vf 0)
(setq ovp1 (cdr (assoc '10 (entget (entnext entn)))))
(setq ovp1 (cdr (assoc '10 vfd)))
);end if
(setq nvp (cdr (assoc '10 (entget (entnext entnn)))))
(setq angd (angle ovp ovp1))
(setq nvp1 (polar ovp (+ angd (/ pi 2)) dis))
(if (equal nvp nvp1 0.005)
(setq angd "A")
(progn
(setq nvp1 (polar ovp (- angd (/ pi 2)) dis))
(if (equal nvp nvp1 0.005) (setq angd "B"))
);progn
);if
(setq entd (subst (cons 8 (setq nly (strcat (rtos dis_org 2 0) angd)))
(assoc 8 (setq entd (entget entnn))) entd))
(entmod entd)
(setvar "CLAYER" nly)
(command "layer" "c" 10 "" "")
(setvar "CLAYER" cl)
(setq np nil)
);progn
(setq np t)
);if
);while
(princ)
);

rakezhao

顶顶..

spring

呵呵，重新写过，顺便练练手啊

rakezhao

重新写新.是好多呢.不是一个.怎么办.我要想个转换思路