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

(defun c:sl() L1:}bH\y  
(setq Ycolum(getint"\n pls input the dot's Q'ty you wanted desgin in Y axis: ")) ;;y軸方向點數 ap{{(y&R  
(setq Yleth(getreal"\n pls input the Y axis startpoint coordinate: ")) ;;y軸起始座標 +-",2d+g  
(setq Xcolum1(getint"\n pls input the dot's Q'ty you wanted desgin in x axis: ")) #d$d&W~gE  
(setq X_Cood1(getreal"\n pls input the X axis startpoint coordinate: ")) ^>t-v  
(setq ridus1(getreal"\n pls input the Diameter of startpoint you wanted desgin in mm: ")) Dt (:u,%  
(setq pitch_x(getreal"\n pls input the pitch between X axis dots you wanted desgin: ")) &<#/&Pq/i  
(setq pitch_y(getreal"\n pls input the pitch between Y axis dots you wanted desgin: ")) kKNk2!z`M  
(setq reduce1(getreal"\n pls input reduce the dot you wanted desgin : ")) /XbY<pj  
(setq Xchange1 1) 8o%E&Jg:  
(setq Ychange 1) ,2E`:#$  
(setq m (* Ycolum 2)) +q4W0  
(setq D (- Xcolum1 1)) ~4}*D
hsh  
(setq A (- m 1)) B/:>{2cm  
(setq X_P (/ pitch_x 2)) 01UqDdoj  
(setq Y_P (/ pitch_y 2)) o&*1U"6D  
(setq C (+ Yleth Y_P)) IZzhJK M1V  
(while (<= Ychange Ycolum) .[]{
 Q  
(setq ridus (+ ridus1 reduce1) |~Htj4K/  
    pitch_a pitch_x X*43!\  
    Xcolum Xcolum1 CvgPIrl  
    reduce reduce1 F<H`8*q9  
    X_Cood X_Cood1 ZY~zpC_  
    Xchange Xchange1 FA<Z37:  
    pitch_b pitch_y Cj`pw2.  
) 4UkP:Vz:  
(setq Yleth (+ Yleth pitch_b)) U1OLI]P  
( while (<= Xchange Xcolum) Y*h`),  
  (setq X_Cood (+ X_Cood pitch_a)) j&o/X7I=  
  (setq CP (list X_Cood Yleth 0)) D>,$c  
  (setq ridus (- ridus reduce)) ghE?8&@ iq  
  (command "donut" (- ridus ridus) ridus CP "") 4Xa.r6T_N=  
  (setq Xchange (+ Xchange 1)) 1gf/#+$\  
) mkKRC;  
(setq Ychange (+ Ychange 1)) !W(/Y9g#  
) &h_d|8  
(setq Yleth1 C) PxdJOtI"  
(while (and (> Ychange Ycolum) (<= Ychange A)) oxxE'cx{g  
(setq ridus (+ ridus1 (setq reduce0 (/ reduce1 2))) dn:|m^<)  
    pitch_a pitch_x mmh nw(/  
    Xcolum Xcolum1 ;+aDjO2(  
    reduce reduce1 btr x?k(  
    X_Cood (+ X_Cood1 X_P) bw<~R2[  
    Xchange Xchange1 ]JhDRJ\  
    pitch_b pitch_y )x9nED{  
) Y2ah zB  
(setq Yleth1 (+ Yleth1 pitch_b)) ?];~N5<'  
  ( while (<= Xchange D) ;[;S_|vZ=)  
  (setq X_Cood (+ X_Cood pitch_a)) m bB\~n  
  (setq CP (list X_Cood Yleth1 0)) +dPE!:  
  (setq ridus (- ridus reduce)) Vj9`[1}1Z  
  (command "donut" (- ridus ridus) ridus CP "") r!-L`
GUm  
  (setq Xchange (+ Xchange 1)) XACEt~y  
) J~nJpUyP*  
(setq Ychange (+ Ychange 1)) p~k`Z^xY$  
) C {H'  
)

請要怎麼執行.. RvgAI`T7$  
載入之後怎麼動作

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

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

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

各位大侠， sMe~C>RD  
autolisp 和 scheme 有什么区别？ e+=G-u5}-  
autolisp代码是否可以用tracepro里macro来编译？

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

好东西，谢！！！！！！

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

具体什么用意，怎么用啊