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

(defun c:sl() Dw.J2>uj  
(setq Ycolum(getint"\n pls input the dot's Q'ty you wanted desgin in Y axis: ")) ;;y軸方向點數 194)QeoFw  
(setq Yleth(getreal"\n pls input the Y axis startpoint coordinate: ")) ;;y軸起始座標 F@KGj|  
(setq Xcolum1(getint"\n pls input the dot's Q'ty you wanted desgin in x axis: ")) A}9`S6@@  
(setq X_Cood1(getreal"\n pls input the X axis startpoint coordinate: ")) gPI ?C76  
(setq ridus1(getreal"\n pls input the Diameter of startpoint you wanted desgin in mm: ")) oJz^|dW  
(setq pitch_x(getreal"\n pls input the pitch between X axis dots you wanted desgin: ")) N:/D+L
 
(setq pitch_y(getreal"\n pls input the pitch between Y axis dots you wanted desgin: ")) +~$ ]}%  
(setq reduce1(getreal"\n pls input reduce the dot you wanted desgin : ")) 7>%8eEc  
(setq Xchange1 1) *L^,|   
(setq Ychange 1) .*Y
  
(setq m (* Ycolum 2)) %ntRG!  
(setq D (- Xcolum1 1)) I+!
0O  
(setq A (- m 1)) #=A)XlZMd  
(setq X_P (/ pitch_x 2)) G9cUD[GB  
(setq Y_P (/ pitch_y 2)) UB@+ck  
(setq C (+ Yleth Y_P)) 4Z&lYLq;  
(while (<= Ychange Ycolum) jV1.Yz(`  
(setq ridus (+ ridus1 reduce1) b]#AI qt  
    pitch_a pitch_x \~$#1D1f  
    Xcolum Xcolum1 yNBfUj -L  
    reduce reduce1 "<1{9  
    X_Cood X_Cood1 SY\ gXO8k  
    Xchange Xchange1 #q=Efn
'  
    pitch_b pitch_y FvjPdN/L?R  
) 0S!K{xyR  
(setq Yleth (+ Yleth pitch_b)) ;4|15S  
( while (<= Xchange Xcolum) q>+k@>bk@  
  (setq X_Cood (+ X_Cood pitch_a)) V**~m9f  
  (setq CP (list X_Cood Yleth 0)) _]H&,</  
  (setq ridus (- ridus reduce)) S2&4g/  
  (command "donut" (- ridus ridus) ridus CP "") sUQ@7sTj  
  (setq Xchange (+ Xchange 1)) bWU'cw  
) YNF k  
(setq Ychange (+ Ychange 1)) !pX>!&sb  
) on`3&0,.  
(setq Yleth1 C) gjDHo$  
(while (and (> Ychange Ycolum) (<= Ychange A)) 0aB;p7~&  
(setq ridus (+ ridus1 (setq reduce0 (/ reduce1 2))) H*CW1([  
    pitch_a pitch_x rjYJs*#  
    Xcolum Xcolum1 oap4rHk}  
    reduce reduce1 )Ql%r?(F+  
    X_Cood (+ X_Cood1 X_P) jQB9
j  
    Xchange Xchange1 H**Xu;/5@  
    pitch_b pitch_y lt8|9"9<  
) 4|DWOQ':  
(setq Yleth1 (+ Yleth1 pitch_b)) k5pN  
  ( while (<= Xchange D) D'Q\za  
  (setq X_Cood (+ X_Cood pitch_a)) @\#td5'  
  (setq CP (list X_Cood Yleth1 0)) %Q|Atgp  
  (setq ridus (- ridus reduce)) cVF"!.  
  (command "donut" (- ridus ridus) ridus CP "") (*iHf"=\  
  (setq Xchange (+ Xchange 1)) `b$.%S8uj=  
) N<}5A%  
(setq Ychange (+ Ychange 1)) MQ8J<A Pf-  
) |CRn c:  
)

請要怎麼執行.. PEZ!n.'S  
載入之後怎麼動作

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

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

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

各位大侠， 7zj{wp!  
autolisp 和 scheme 有什么区别？ 'Pbr v  
autolisp代码是否可以用tracepro里macro来编译？

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

好东西，谢！！！！！！

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

具体什么用意，怎么用啊