[原创]也提供一段AUTOLISP语言编写自动PATTERN生成代码供各位参考 [复制链接]

(defun c:sl() f\sxx!kt  
(setq Ycolum(getint"\n pls input the dot's Q'ty you wanted desgin in Y axis: ")) ;;y軸方向點數 6fvzTd},  
(setq Yleth(getreal"\n pls input the Y axis startpoint coordinate: ")) ;;y軸起始座標 l MCoc'ae  
(setq Xcolum1(getint"\n pls input the dot's Q'ty you wanted desgin in x axis: ")) W+ tI(JZ  
(setq X_Cood1(getreal"\n pls input the X axis startpoint coordinate: ")) Z^i=51  
(setq ridus1(getreal"\n pls input the Diameter of startpoint you wanted desgin in mm: ")) G=lcKtMdg  
(setq pitch_x(getreal"\n pls input the pitch between X axis dots you wanted desgin: ")) Qp{gV Ys  
(setq pitch_y(getreal"\n pls input the pitch between Y axis dots you wanted desgin: ")) v\Zni4  
(setq reduce1(getreal"\n pls input reduce the dot you wanted desgin : ")) M)Iu'  
(setq Xchange1 1) k!e \O>+  
(setq Ychange 1) s#,~Zb=  
(setq m (* Ycolum 2)) wB6ILTu1  
(setq D (- Xcolum1 1)) X {,OP/  
(setq A (- m 1)) V[f-Nj Kf  
(setq X_P (/ pitch_x 2)) $x,?+
N  
(setq Y_P (/ pitch_y 2)) %G6ml,  
(setq C (+ Yleth Y_P)) rn^7B-V  
(while (<= Ychange Ycolum) oQgd]|v  
(setq ridus (+ ridus1 reduce1) b#U nE  
    pitch_a pitch_x v)|[=  
    Xcolum Xcolum1 z?$F2+f&  
    reduce reduce1 zzsQfI#  
    X_Cood X_Cood1 FLI\SF<  
    Xchange Xchange1 WVc3C-h
,  
    pitch_b pitch_y "(y",!U@  
) >C"f'!oM,j  
(setq Yleth (+ Yleth pitch_b)) Zh
qrN]x  
( while (<= Xchange Xcolum) zk8 o[4  
  (setq X_Cood (+ X_Cood pitch_a)) k0IW,z%  
  (setq CP (list X_Cood Yleth 0)) %c%0pGn8-  
  (setq ridus (- ridus reduce)) s`* 'JM<  
  (command "donut" (- ridus ridus) ridus CP "") ?Xm!;sS0  
  (setq Xchange (+ Xchange 1)) iOpMU  
) W:q79u yX  
(setq Ychange (+ Ychange 1)) J&4QI( b.  
) *"V5j#F_  
(setq Yleth1 C) Dm=t`_DL8  
(while (and (> Ychange Ycolum) (<= Ychange A)) 
#L}YZ  
(setq ridus (+ ridus1 (setq reduce0 (/ reduce1 2))) mA|&K8H  
    pitch_a pitch_x %4#,y(dO  
    Xcolum Xcolum1 NvH9?Ek"  
    reduce reduce1 wjk-$p  
    X_Cood (+ X_Cood1 X_P) hzIP ?0^E  
    Xchange Xchange1 7.fpGzUM  
    pitch_b pitch_y 4`lt 4L  
) * z|i{=W F  
(setq Yleth1 (+ Yleth1 pitch_b)) 5b X*8H D  
  ( while (<= Xchange D) "dfq
  
  (setq X_Cood (+ X_Cood pitch_a)) H.EgL@;mb  
  (setq CP (list X_Cood Yleth1 0)) [Nb0&:$ay  
  (setq ridus (- ridus reduce)) K8NoY6  
  (command "donut" (- ridus ridus) ridus CP "") }qy,/<R  
  (setq Xchange (+ Xchange 1)) cU8Rm\?  
) Y1a[HF^-  
(setq Ychange (+ Ychange 1)) }:u" ?v=|j  
) E"!I[  
)

請要怎麼執行.. / fBi9=}+  
載入之後怎麼動作

這真是好東西呀,謝謝哦!顶~~~

載入後,在COMMAND狀態下鍵入SL一要求一步一步來

好象很多参数还是要自己确定啊，这些参数就是所谓的经验吧？

各位大侠， m80e^  
autolisp 和 scheme 有什么区别？ yo\R[i(  
autolisp代码是否可以用tracepro里macro来编译？

有没有直接写好的CAD外挂,可否发给小弟一个  lifei820715@163.com

好东西，谢！！！！！！

楼主应该有个小小的说明才是，比如系数代表的意义。。。

具体什么用意，怎么用啊