to ljcgq:这有个CAD题，<A href="http://www.mouldbbs.com/dispbbs.asp?BoardID=55&replyid=&id=69315&star=1&skin=0" target="_blank" >http://www.mouldbbs.com/dispbbs.asp?BoardID=55&replyid=&id=69315&star=1&skin=0</A> 我写了个LISP，是解四次方程序的。代码：
(defun c:wh(/ x xx y flx d1 d2 d3 d4 d5)<BR>(setq x 19.0)<BR>(setq FX (- (+ (* x x x x) 1225)(+ (* 14 x x x )(* 70 x x)(* 350 x))))<BR>(SETQ FLX (- (* 4 x x x)(+ (* 42 x x)(* 140 x) 350)))<BR>(setq xx (- x (/ fx flx)))<BR> (while (> (abs (- x xx)) 0.0000000000000000000000000000000000000000000000000000001)<BR> (setq x xx)<BR> (setq FX (- (+ (* x x x x) 1225)(+ (* 14 x x x )(* 70 x x)(* 350 x))))<BR> (SETQ FLX (- (* 4 x x x)(+ (* 42 x x)(* 140 x) 350)))<BR> (setq xx (- x (/ fx flx)))<BR> )<BR>(setq y (/ (- 35 (* 5 x)) x)) <BR>(setq oldos (getvar "osmode"))<BR>(setvar "osmode" 0)<BR>(setq d1 (list 0 0 0))<BR>(setq d2 (list 0 x 0))<BR>(setq d3 (list -5 0 0))<BR>(setq d4 (list 0 7 0))<BR> (setq d5 (list y 7 0)) <BR>(command "line" d1 d2 d3 "c")<BR>(command "line" d4 d5 "")<BR>(setvar "osmode" oldos)<BR>(princ) <BR> )
我VBA稍好一点，LISP水平很菜，向你学习！
谢谢！！我回去学习学习，
机械行业压力容器设计
俺类专业是装饰
现在做家具设计
制造业！
我怎么没有看见建筑工程设计的呢。
建筑电气设计，请同行有空切磋切磋。
我是纯电气设计的，一般用CAD画接线图，最近用CAD画整个变电所的三维图，很好画，就是文件大了点，10多兆，我的破机子运行起来太慢了，是否可以在画完后整个三维图纸进入3DMAX中渲染，材质在3DMAX中再加可以不？请高手指点一二。
制锁设计
3kd发表于2004-5-23 12:01:00static/image/common/back.gif我是纯电气设计的，一般用CAD画接线图，最近用CAD画整个变电所的三维图，很好画，就是文件大了点，10多兆，我的破机子运行起来太慢了，是否可以在画完后整个三维...俺也有你的问题想把三维直接做，只是不知道怎么下手请帮忙拉
电气设计还要做三维图啊，不知17楼和19楼做哪方面的电气设计呢？