分享一个画铆装螺母的小程序

王航

与大家分享一个画铆装螺母的小程序的小程序，在钣金设计过程中，经常需要画铆装螺母，画起来有点繁琐，该小程序一步生成铆装螺母，螺纹规格从M3-M8，程序执行前请先创建名字为“细实线”及“点划线”的图层。请高手指导！谢谢！

2. (defun c:mmm(/)
   
3. (setvar "CMDECHO" 0)
   
4. (setq M (getDIST "\n 请输入螺纹规格 M6输入6"))
   
5. (if (= M nil) (setq M 6))
   
6. (cond
   
7.   ((<= 2.6 M 3) (SETQ c 3.0 d 2.4 e 3))
   
8.   ((<= 3.1 M 4) (SETQ c 4.0 d 3.2 e 4))
   
9.   ((<= 4.1 m 5) (SETQ c 5.0 d 4 e 4.5))
   
10.   ((<= 5.1 m 6) (SETQ c 6.0 d 4.8 e 5.5))
    
11.   ((<= 6.1 M 8) (SETQ c 8.0 d 6.4 e 6.3))
    
12. 
    
13. )
    
14. (while (SETQ PT (GETPOINT "\n请选取插入点:"))
    
15.   (setq p1 (polar pt (* pi 1.5) (/ c 2))
    
16.         p2 (polar pt 0 (/ c 2))
    
17.         p3 (polar pt 0 (* e 1.2));比直径长1/5
    
18.         p4 (polar pt pi (* e 1.2))
    
19.         p5 (polar pt (/ pi 2) (* e 1.2))
    
20.         p6 (polar pt (/ pi -2) (* e 1.2)))
    
21.   (command "_.CIRCLE" "none" pt  e  p1)
    
22.   (command "change" "l" "" "p" "la" "0" "")
    
23.   (command "_.CIRCLE" "none" pt (/ d 2) p1)
    
24.   (command "change" "l" "" "p" "la" "0" "")
    
25.   (command "_.ARC" "none" p2 "C" "none" pt "none" p1)
    
26.   (command "change" "l" "" "p" "la" "细实线" "")
    
27.   (command "_.LINE" "none" p3 "none" p4 "" "_.CHPROP" "L" "" "lt" "bylayer" "lts" 1 "")
    
28.   (command "change" "l" "" "p" "la" "点划线" "")
    
29.   (command  "_.LINE" "none" p5 "none" p6 "" "_.CHPROP" "L" "" "lt" "bylayer" "lts" 1 "")
    
30.   (command "change" "l" "" "p" "la" "点划线" "")
    
31. )
    
32. (setvar "CMDECHO" 1)
    
33. (princ)
    
34. )
    
35. 
    

(defun c:mmm(/)<br /> (setvar "CMDECHO" 0)<br /> (setq M (getDIST "\n 请输入螺纹规格 M6输入6")) <br /> (if (= M nil) (setq M 6))<br /> (cond<br />   ((<= 2.6 M 3) (SETQ c 3.0 d 2.4 e 3))<br />   ((<= 3.1 M 4) (SETQ c 4.0 d 3.2 e 4))<br />   ((<= 4.1 m 5) (SETQ c 5.0 d 4 e 4.5))<br />   ((<= 5.1 m 6) (SETQ c 6.0 d 4.8 e 5.5))<br />   ((<= 6.1 M 8) (SETQ c 8.0 d 6.4 e 6.3))<br /> <br /> )<br /> (while (SETQ PT (GETPOINT "\n请选取插入点:"))<br />   (setq p1 (polar pt (* pi 1.5) (/ c 2))<br />         p2 (polar pt 0 (/ c 2))<br />         p3 (polar pt 0 (* e 1.2));比直径长1/5<br />         p4 (polar pt pi (* e 1.2))<br />         p5 (polar pt (/ pi 2) (* e 1.2))<br />         p6 (polar pt (/ pi -2) (* e 1.2)))<br />   (command "_.CIRCLE" "none" pt  e  p1)<br />   (command "change" "l" "" "p" "la" "0" "")<br />   (command "_.CIRCLE" "none" pt (/ d 2) p1)<br />   (command "change" "l" "" "p" "la" "0" "")<br />   (command "_.ARC" "none" p2 "C" "none" pt "none" p1)<br />   (command "change" "l" "" "p" "la" "细实线" "")<br />   (command "_.LINE" "none" p3 "none" p4 "" "_.CHPROP" "L" "" "lt" "bylayer" "lts" 1 "")<br />   (command "change" "l" "" "p" "la" "点划线" "")<br />   (command  "_.LINE" "none" p5 "none" p6 "" "_.CHPROP" "L" "" "lt" "bylayer" "lts" 1 "")<br />   (command "change" "l" "" "p" "la" "点划线" "")<br /> )<br /> (setvar "CMDECHO" 1)<br /> (princ)<br /> )<br /> <br />

springwillow

用了太多的command函数，兼容性会有问题，建议采用entmake，一是速度快，二是兼容性会好。

云中孤鹰

多谢分享！

lengxiaxi

还不错，要是能弄出侧视图，就更好点。我有个调用文件的程序，dwg事先画好所有的紧固件甚至其他元件，直接调用。螺钉螺母铆钉等，看你事先做多少图库，直接调用，更方便。

lengxiaxi

而且图层的问题在准备图库的时候，当时有什么图层，调用出来的图即使没有需要的图层，加载图库时会直接加载图层，你这个别人需要先按你lsp的图层设置事先建好才行，或者改lsp图层名字，通用性不太好。你可以搜索本站插入图框的lsp，按照那个思路修改（直接调用图库）。