首页 -> 登录 -> 注册 -> 回复主题 -> 发表主题
光行天下 -> AutoCAD -> CAD的Autolisp生成与几个工具例子 [点此返回论坛查看本帖完整版本] [打印本页]

calon1982 2006-04-03 02:27

CAD的Autolisp生成与几个工具例子

转载 fh#:j[R4e  
使用方法是在Autolisp中加载后再使用命令:  ?K-4T  
如: GcM1*)$ 4  
;; HELIX .LSP 螺旋线生成 3.movkj  
(Defun C:Helix () @!;A^<{ka  
(SetQ p (GetPoint "\n中心点: ") x (Car p) y (Cadr p) z (Caddr p) = MByD&o`  
r (GetDist p "\n半径: ") 9O g  
b (GetDist p "\n总高度: ") 3MQHoxX  
a (GetAngle p "\n起始角: ") /&6{}n  
m (GetInt "\n圈数: ") ximVh}'a  
n (GetInt "\n每圈线段数: ") uc9h}QJ*  
da (/ (* m 2 Pi) (* m n)) 8UB2 du@?  
dz (/ b (* m n)) }$)~HmZw  
) _DR@P(0>_  
(Command "3dpoly") lhM5a \  
(Repeat (1+ (* m n)) o0Teect=  
(Command (Polar (List x y z) a r)) Y`g O:d8  
(SetQ a (+ a da) z (+ z dz)) UVDMYA0  
) 8P ]nO+  
(Command "") c@A.jc  
(PrinC) X#1WzWk '  
) UV(`.  
nscnG5'{+  
把这个复制到工具AutoLISP Visual LISP编辑器里另存为一个文件,再加载就可以了 #x 6/"Y2  
再对话框里输入HELIX 命令就可以了
calon1982 2006-04-03 03:24
另求齿轮画法: 0 Rb3| te  
D12-D20齿轮参数列表,近来画得都不太像
liuerbao 2006-11-08 20:56
Re:CAD的Autolisp生成与几个工具例子
ngeqt521 2006-12-08 16:41
好不好用呀,,,,我想有人喹枯燥  夺顶
dch 2007-03-25 20:22
[s:1] :海,我是以前在纸箱厂待过,我现在用AUTOLISP开发包装纸箱设计中尺寸图,相当节约设计时间。而且不会出错。
dch 2007-03-25 20:24
想要程序的朋友联系我qq:652086287
查看本帖完整版本: [-- CAD的Autolisp生成与几个工具例子 --] [-- top --]

Copyright © 2005-2025 光行天下 蜀ICP备06003254号-1 网站统计