生成法兰的原代码

~希望

2. (defun  c:fl ()
   
3.   (setvar "cmdecho" 0)
   
4.   (if (< (getvar "osmode") 16384)
   
5.    (setvar "osmode" (+ (getvar "osmode") 16384)))     ; F3关
   
6.    ;;输入参数
   
7.    (setq zx( getpoint "\n 输入中心点:"))              
   
8.    (setq d1( getdist "\n 输入钢管外径:"))              
   
9.    (setq d3( getdist "\n 输入法兰外径:"))
   
10.    ;;判断螺栓分布直径
    
11.    (while(not (and (setq
    
12.    d2 (getdist zx"\n 输入螺栓分布直径:"))(< d1 d2 d3)))
    
13.        (princ "\n错误！螺栓分布直径应在内外圆之间！"))
    
14.    ;;判断螺栓孔径
    
15.    (while (not (and (setq d4 (getdist "\n 输入螺栓孔径:"))
    
16.            (< d4 (/ (- d3 d1) 2))))
    
17.     (princ "\n错误！螺栓孔径过大！"))
    
18.    (setq n ( getint "\n 输入螺栓数量:"))
    
19.    (setvar "dimcen" ( / d1 8));;;数值自定
    
20.    (command"circle"  zx (/ d1 2))
    
21.    (command "_.dimcenter" (nentselp (polar zx Pi ( / d1 2))))
    
22.    (command "layer" "m" "zx" "c" "r" "zx" "")  ;建新图层
    
23.    (command"circle"  zx (/ d2 2))
    
24.    (command "layer" "s" 0 "")     ;恢复原图层
    
25.    (command"circle"  zx (/ d3 2))
    
26.    (setq sa (/ pi n))
    
27.    (setq p2 (polar zx sa (/ d2 2)))
    
28.    (command"circle"  p2 (/ d4 2))          ;;p2为螺栓孔中心
    
29.    (command "_.array" (entlast) "" "p" zx n 360.0 "N")
    
30.    (setq k1 (polar p2 (/ pi n) (- (/ d4 3 ))))
    
31.    (setq k2 (polar p2 (/ pi n) (+ (/ d4 3 ))))
    
32.    (command "pline" k1 k2 "" )
    
33.    (command "_.array" (entlast) "" "p" zx n 360.0 "Y")
    
34.    (setq jh (getdist"\n 请输入加强筋厚度:"))  ;;虽然加强筋宽度可以输入，但是不想要那么多参数，加强筋可以另外去画。
    
35.    (setq sb (- pi pi))    ;;此处加强筋开始角度是0度，但是测试参数不能写0，不知道还有别的表达方法么。
    
36.    (setq s (/ jh 2))
    
37.    (setq s2 (/ d1 2))
    
38.    (setq c ( - (/ (- d3 d1) 2) 5))
    
39.    (setq p3 (polar zx sb s2))
    
40.    (setq j1 (polar p3 (* 0.5 pi) s))   
    
41.    (setq j2 (polar p3 (* -0.5 pi) s))   
    
42.    (setq j3 (polar j1 sb c))
    
43.    (setq j4 (polar j2 sb c))
    
44.    (command "pline" j1 j2 j4 j3 "c" )
    
45.    (command "_.array" (entlast) "" "p" zx n 360.0 "Y")
    
46.    (setvar "osmode" (- (getvar "osmode") 16384)) ; F3开
    
47.    (setvar "cmdecho" 1)
    
48.    (Princ)
    
49.   )

(defun  c:fl ()<br />   (setvar "cmdecho" 0)<br />   (if (< (getvar "osmode") 16384)<br />    (setvar "osmode" (+ (getvar "osmode") 16384)))     ; F3关<br />    ;;输入参数<br />    (setq zx( getpoint "\n 输入中心点:"))              <br />    (setq d1( getdist "\n 输入钢管外径:"))              <br />    (setq d3( getdist "\n 输入法兰外径:"))<br />    ;;判断螺栓分布直径<br />    (while(not (and (setq<br />    d2 (getdist zx"\n 输入螺栓分布直径:"))(< d1 d2 d3)))<br />        (princ "\n错误！螺栓分布直径应在内外圆之间！"))<br />    ;;判断螺栓孔径<br />    (while (not (and (setq d4 (getdist "\n 输入螺栓孔径:"))<br />            (< d4 (/ (- d3 d1) 2))))<br />     (princ "\n错误！螺栓孔径过大！"))<br />    (setq n ( getint "\n 输入螺栓数量:"))<br />    (setvar "dimcen" ( / d1 8));;;数值自定<br />    (command"circle"  zx (/ d1 2))<br />    (command "_.dimcenter" (nentselp (polar zx Pi ( / d1 2))))<br />    (command "layer" "m" "zx" "c" "r" "zx" "")  ;建新图层<br />    (command"circle"  zx (/ d2 2))<br />    (command "layer" "s" 0 "")     ;恢复原图层<br />    (command"circle"  zx (/ d3 2))<br />    (setq sa (/ pi n))<br />    (setq p2 (polar zx sa (/ d2 2)))<br />    (command"circle"  p2 (/ d4 2))          ;;p2为螺栓孔中心<br />    (command "_.array" (entlast) "" "p" zx n 360.0 "N")<br />    (setq k1 (polar p2 (/ pi n) (- (/ d4 3 ))))<br />    (setq k2 (polar p2 (/ pi n) (+ (/ d4 3 ))))<br />    (command "pline" k1 k2 "" )<br />    (command "_.array" (entlast) "" "p" zx n 360.0 "Y")<br />    (setq jh (getdist"\n 请输入加强筋厚度:"))  ;;虽然加强筋宽度可以输入，但是不想要那么多参数，加强筋可以另外去画。<br />    (setq sb (- pi pi))    ;;此处加强筋开始角度是0度，但是测试参数不能写0，不知道还有别的表达方法么。<br />    (setq s (/ jh 2))<br />    (setq s2 (/ d1 2))<br />    (setq c ( - (/ (- d3 d1) 2) 5))<br />    (setq p3 (polar zx sb s2))<br />    (setq j1 (polar p3 (* 0.5 pi) s))   <br />    (setq j2 (polar p3 (* -0.5 pi) s))   <br />    (setq j3 (polar j1 sb c))<br />    (setq j4 (polar j2 sb c))<br />    (command "pline" j1 j2 j4 j3 "c" )<br />    (command "_.array" (entlast) "" "p" zx n 360.0 "Y") <br />    (setvar "osmode" (- (getvar "osmode") 16384)) ; F3开<br />    (setvar "cmdecho" 1)<br />    (Princ)<br />   )

感谢这几天论坛里朋友的帮助，完成了一个小程序，用来生成法兰的，因为才学，所以我感觉代码中应该有能简化的地方，欢迎高手来指点，不过这段代码已经测试过，使用是没有问题的，现在把代码贴出来，目的是相互学习，让大家指出不妥之处，另外这个程序写完了，计划另外再写一个新的，有好多地方也要请教大家，希望各位不要保留，指点一下，新程序另外开贴请教吧。

669423907

支持一下源码！建议添加加强筋选择，程序会更通用些