[原创]：材质号标注程序lsp

梦断江南

2. 
   
3. ;cz;;;;;;材质标注---------------lxx.2001.4
   
4. (defun c:cz (/ os czn pt1 ptss pt2 ang)
   
5. (princ "\n材质标注---------------lxx.2001.4")
   
6. (setq os (getvar "osmode"))
   
7. (setvar "osmode" 0)
   
8. (setq czn (getstring "\n材质号:")
   
9.       pt1 (getpoint "\n第一点:")
   
10.       ptss '()
    
11.       ptss (cons pt1 ptss)
    
12. )
    
13. (command "pline" pt1 "w" "0" "0")
    
14. (while (setq pt2 (getpoint pt1 "\n下一点:"))
    
15. (setq ptss (cons pt2 ptss)
    
16.         pt1 pt2
    
17. )
    
18. (command pt2)
    
19. )
    
20. (while (setq pt2 (getpoint pt1 "\n引出线:"))
    
21.   (setq ang (angle pt1 pt2)
    
22.         pt1 pt2)
    
23.   (command pt2)
    
24. )
    
25. (command)(command "donut" "0" "60")
    
26. (foreach n ptss (command n))
    
27. (command "")
    
28. (if (/= "" czn)
    
29. (progn (setq inspt (polar pt1 ang 300))
    
30. (command "insert" "axi" inspt "600" "600" "0" czn)
    
31. ))
    
32. (setvar "osmode" os)
    
33. (princ)
    
34. )
    
35. (princ "\n=======cz=======材质标注---------------lxx.2001.4")(princ)
    
36.       
    

<br /> ;cz;;;;;;材质标注---------------lxx.2001.4<br /> (defun c:cz (/ os czn pt1 ptss pt2 ang)<br /> (princ "\n材质标注---------------lxx.2001.4")<br /> (setq os (getvar "osmode"))<br /> (setvar "osmode" 0)<br /> (setq czn (getstring "\n材质号:")<br />       pt1 (getpoint "\n第一点:")<br />       ptss '()<br />       ptss (cons pt1 ptss)<br /> )<br /> (command "pline" pt1 "w" "0" "0")<br /> (while (setq pt2 (getpoint pt1 "\n下一点:"))<br /> (setq ptss (cons pt2 ptss)<br />         pt1 pt2<br /> )<br /> (command pt2)<br /> )<br /> (while (setq pt2 (getpoint pt1 "\n引出线:"))<br />   (setq ang (angle pt1 pt2)<br />         pt1 pt2)<br />   (command pt2)<br /> )<br /> (command)(command "donut" "0" "60")<br /> (foreach n ptss (command n))<br /> (command "")<br /> (if (/= "" czn)<br /> (progn (setq inspt (polar pt1 ang 300)) <br /> (command "insert" "axi" inspt "600" "600" "0" czn)<br /> ))<br /> (setvar "osmode" os)<br /> (princ)<br /> )<br /> (princ "\n=======cz=======材质标注---------------lxx.2001.4")(princ)<br />        <br />

注：所用的axi块为天正的轴号块。

li809

是天正3还是天正6的轴号块呢

1365252869

vncn

gyc2001

如果能控制绘图比例就完美了！！