绘制三维电动机的程序

ocoipw

绘制Y系列三维电动机的程序

寒潮大冬瓜

电动机顺利绘出

p-3-ianlcc

谢谢楼主的分享
看来楼主的专业是电机方面
期待其他分享资料

自贡黄明儒

看起来不错，但运行出错了。

技术工作室

程序不错，但运行不了

null.

(defun sanjiao ()
        (if (null ang2)(setq ang2 0.0))
        (if (null ang3)(setq ang3 0.0))
        (if (null ang4)(setq ang4 0.0))
        (if (null ang1)(setq ang1 0.0))
)
(defun chushihua ()
        (princ)
)
(defun rtod (R )
        (* R 2.0)
)
补充程序这几个函数，程序就不出错了。

null.

2. (defun sanjiao();;ang1 ang2 ang3 ang4
   
3.     (setq ang1 0)
   
4.     (setq ang2 (/ PI 2))
   
5.     (setq ang3 PI)
   
6.     (setq ang4 (/ (* 3 PI) 2))
   
7. )
   
8. chushihua
   
9. 
   
10. 
    
11. (defun chushihua(/ pLw delobj_old clay clt osm orth tbL1 tbL2 tbL3 tbL4 tbL5 tbL6 tbL7 tbL8)
    
12.   (setvar "cmdecho" 0)
    
13.   (setvar "blipmode" 0)
    
14.   (setq plw (getvar "PLINEWID"))
    
15.   (setq delobj_old (getvar "delobj"))
    
16.   (setq clay (getvar "clayer"))
    
17.   (setq clt (getvar "CELTYPE"))
    
18.   (setq osm (getvar "osmode"))
    
19.   (setq orth (getvar "orthomode"))
    
20.   (setvar "delobj" 1)
    
21.   (setvar "orthomode" 1)
    
22.   (setvar "PLINEWID" 0)
    
23. ;;;  (setvar "3dosmode" 1)
    
24.   
    
25.   (vl-load-com)
    
26.   (setq tbL1 (tbLsearch "ltype" "center"))
    
27.   (if(= tbL1 nil) (command "-linetype" "L" "center" "acadiso" ""))
    
28.   (setq tbL2 (tbLsearch "ltype" "divide"))
    
29.   (if(= tbL2 nil) (command "-linetype" "L" "divide" "acadiso" ""))
    
30.   (setq tbL3 (tbLsearch "ltype" "hidden"))
    
31.   (if(= tbL3 nil) (command "-linetype" "L" "hidden" "acadiso" ""))
    
32.   (setq tbL4 (tbLsearch "layer" "cen_lay"))
    
33.   (if(= tbL4 nil) (command "-layer" "N" "cen_lay" "L" "center" "cen_lay" "C" 1 "cen_lay" ""))
    
34.   (setq tbL5 (tbLsearch "layer" "dim_lay"))
    
35.   (if(= tbL5 nil) (command "-layer" "N" "dim_lay" "L" "continuous" "dim_lay" "C" 6 "dim_lay" ""))
    
36.   (setq tbL6 (tbLsearch "layer" "suports_lay"))
    
37.   (if(= tbL6 nil) (command "-layer" "N" "suports_lay" "L" "continuous" "suports_lay" "C" 4 "suports_lay" ""))
    
38.   (setq tbL7 (tbLsearch "layer" "pipe_lay"))
    
39.   (if(= tbL7 nil) (command "-layer" "N" "pipe_lay" "L" "continuous" "pipe_lay" "C" 112 "pipe_lay" ""))
    
40.   (setq tbL8 (tbLsearch "layer" "equipment_lay"))
    
41.   (if(= tbL8 nil) (command "-layer" "N" "equipment_lay" "L" "continuous" "equipment_lay" "C" 4 "equipment_lay" ""))
    
42.   
    
43.     (command "VSCURRENT" 2 )
    
44.   
    
45. );;end chushihua
    
46. 
    
47. (defun rtod(val);;val
    
48.   (/ (* val 180.0) PI)  ; 弧度转十进位度
    
49. )

(defun sanjiao();;ang1 ang2 ang3 ang4<br />     (setq ang1 0)<br />     (setq ang2 (/ PI 2))<br />     (setq ang3 PI)<br />     (setq ang4 (/ (* 3 PI) 2))<br /> )<br /> chushihua <br /> <br /> <br /> (defun chushihua(/ pLw delobj_old clay clt osm orth tbL1 tbL2 tbL3 tbL4 tbL5 tbL6 tbL7 tbL8)<br />   (setvar "cmdecho" 0)<br />   (setvar "blipmode" 0)<br />   (setq plw (getvar "PLINEWID"))<br />   (setq delobj_old (getvar "delobj"))<br />   (setq clay (getvar "clayer"))<br />   (setq clt (getvar "CELTYPE"))<br />   (setq osm (getvar "osmode"))<br />   (setq orth (getvar "orthomode"))<br />   (setvar "delobj" 1)<br />   (setvar "orthomode" 1)<br />   (setvar "PLINEWID" 0)<br /> ;;;  (setvar "3dosmode" 1)<br />   <br />   (vl-load-com)<br />   (setq tbL1 (tbLsearch "ltype" "center"))<br />   (if(= tbL1 nil) (command "-linetype" "L" "center" "acadiso" ""))<br />   (setq tbL2 (tbLsearch "ltype" "divide"))<br />   (if(= tbL2 nil) (command "-linetype" "L" "divide" "acadiso" ""))<br />   (setq tbL3 (tbLsearch "ltype" "hidden"))<br />   (if(= tbL3 nil) (command "-linetype" "L" "hidden" "acadiso" ""))<br />   (setq tbL4 (tbLsearch "layer" "cen_lay"))<br />   (if(= tbL4 nil) (command "-layer" "N" "cen_lay" "L" "center" "cen_lay" "C" 1 "cen_lay" ""))<br />   (setq tbL5 (tbLsearch "layer" "dim_lay"))<br />   (if(= tbL5 nil) (command "-layer" "N" "dim_lay" "L" "continuous" "dim_lay" "C" 6 "dim_lay" ""))<br />   (setq tbL6 (tbLsearch "layer" "suports_lay"))<br />   (if(= tbL6 nil) (command "-layer" "N" "suports_lay" "L" "continuous" "suports_lay" "C" 4 "suports_lay" ""))<br />   (setq tbL7 (tbLsearch "layer" "pipe_lay"))<br />   (if(= tbL7 nil) (command "-layer" "N" "pipe_lay" "L" "continuous" "pipe_lay" "C" 112 "pipe_lay" ""))<br />   (setq tbL8 (tbLsearch "layer" "equipment_lay"))<br />   (if(= tbL8 nil) (command "-layer" "N" "equipment_lay" "L" "continuous" "equipment_lay" "C" 4 "equipment_lay" ""))<br />   <br />     (command "VSCURRENT" 2 )<br />   <br /> );;end chushihua<br /> <br /> (defun rtod(val);;val<br />   (/ (* val 180.0) PI)  ; 弧度转十进位度<br /> )

补充这几个函数，就正常了

ocoipw

请重新下载此文件。并解压到C盘上。然后加载C:\3wcad\main program\目录中的程序文件

ocoipw

又搞错了。