求助螺纹该如何编程
该如何用Autolisp编写梯形、矩形以及管螺纹的程序。如知道请把程序发到我邮箱<A href="mailto:tonlu@126.com" target="_blank" >tonlu@126.com</A>。万分感谢！ 我需要一个自动编写程序的lisp程序，如果知道的话发到我的邮箱，谢谢了。 我需要一个lisp解密程序，如果知道的话发到我的邮箱，谢谢了。http://
回复
;上传一个绘制罗纹的LISP程序：在程序中，作为刀具的实体不断旋转、移动，;并从料棒上切削下材料。螺旋槽的截面线需要另外绘制。
(defun c:luowen()
(setq i 0 ;循环量<BR> v (/ -1 (* 2 pi))<BR> step 0.05<BR> )
;---------------------------选择作为料棒的圆柱体
(setq e1 (entsel "\n 选择螺杆： "))<BR>(command "ucs" "w" "") ;使用通用坐标系<BR>(command "ucs" "x" "") ;旋转坐标系
;(setq r 5)<BR> ;(command "ucs" "w" "")<BR> ;(command "cylinder" "0,0,1" "d" 10 20)<BR> ;(setq e1 (entlast))
;-----------------------------选择截面线，并拉伸成三维实体
(setq eg1 (entsel "\n 选择截面线："))<BR>(command "extrude" eg1 "" 1 "")<BR>(command "ucs" "w" "")<BR>(command "move" 1 "" "0,0,0" "0,0.5,0")<BR>(setq e2 (entlast))
;;---------------------------------------使用循环函数，不断复制、旋转、移动螺旋槽减去实体，并从料棒上切削下材料
(while (>= i (* -6 2 pi))<BR> (setq pt1 (list 0 0 (* v i -1))) ;求取实体旋转后的位置点<BR> (command "rotate" e1 "" "0,0,0" (/ (* step -180) pi)) ;旋转实体<BR> (setq i (- i step))<BR> (setq pt2 (list 0 0 (* v i -1)))<BR> (command "copy" e2 "" "0,0,0" "0,0,0")<BR> (setq eg2 (entlast))<BR> (command "move" e1 "" pt1 pt2) ;移动实体<BR> (command "subtract" e1 "" eg2 "") ;切割料棒<BR> )<BR>)<BR>(princ "\n 程序加载完成，请输入 luowen 命令执行： ")<BR>
页:
[1]