锥形，倒锥形，柱形，螺旋线的生成

miaqi

我 自己琢磨吧

ljcgq

因为有很多的朋友都问立体螺纹怎么实现，我自己写了个面螺纹的程序（很不完善），希望能和大家共同探讨，望大家多多指教j。;=============================
;[原创]立体螺纹的生成
; ljc 2004 . 5 . 9
;=============================
(defun C:lw(/)
(setq r(getreal "小径的半径r1："))
(setq dr(getreal "大径的半径dr："))
(setq t(getreal "节距"))
(setq n(getint "每圈分段数"))
(setq nn(getint "圈数"))
(setq dfjd (/ 360.0 n)) ;等分角度
(setq delt (/ (* 2.0 pi) n )) ; 等分弧度
(setq j( / t n))
(setq bb(caddr b1))
(setq ang 0 jd 0 jj 0)
(setq osmode(getvar "osmode")) (SETVAR "OSMODE" 0) (setvar "cmdecho" 0)
(chx t (- dr r) )
(chr (list r 0 0 ) 0 )
(setq m1 (entlast))
(repeat nn
(repeat n
(setq jj(+ jj 1))
(setq ang (+ delt ang) jd (+ dfjd jd) )
(setq pt2(list (* r (cos ang))(* r (sin ang))(+ 0(* j jj))))
(chr pt2 jd)
(setq m2 (entlast) )
(command "_rulesurf" m1 m2)
(command "erase" m1 "")
(setq m1 m2)

)
(print)
)
(command "erase" m1 "")
(command "-purge" "b" "ljcgq" "n") (SETVAR "OSMODE" osmode)
) (defun chx( chk chg / p1 p2 p3 p4) ;chx--齿形 chk齿宽 齿高 chg
(command "ucs" "w" )
(command "ucs" "x" "90" )
(setq p1 (list 0 0 ) p2 (polar p1 (/ pi 2) (/ chk 2) ) p3 (polar p1 0 chg) p4 (polar p1 (/ pi -2) (/ chk 2) ))
(command "pline" p1 p2 p3 p4 "c" )
(command "ucs" "w" )
(command "-block" "ljcgq" p1 (entlast) "")
) (defun chr( pr ang / ) ;chr插入 pr--插入点 ang--角度
(command "-insert" "ljcgq" pr "" "" ang )
(command "_explode" (entlast) )
)

ljcgq

ljcgq

这个程序，可以做些修改--做成实体的，就可以解决内螺纹的螺纹瓶颈，哈哈就留给大家一起来完成吧，恳pan跟贴，支持。。。。。。

cbzylg

我不会啊！救命

youlizhu

支持搂主，感谢你的工作，我一直以来都想解决这个问题。

tftundead

谢谢楼主,真是个好东西哦.

xyy_82216

谢谢啊，要是有圆管的程序就好了，呵呵~~

Feixu89

你好,画螺纹和弹簧怎么样去加载,我的QQ307303537.

ljcgq

由于工作忙,今天才看到大家的回贴,谢谢大家的支持!!

Feixu89,我qq是

2709611,有问题可以加我