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

(defun c:sl() *G19fJ[5  
(setq Ycolum(getint"\n pls input the dot's Q'ty you wanted desgin in Y axis: ")) ;;y軸方向點數 j6rNt|  
(setq Yleth(getreal"\n pls input the Y axis startpoint coordinate: ")) ;;y軸起始座標 1+x" 5<(W  
(setq Xcolum1(getint"\n pls input the dot's Q'ty you wanted desgin in x axis: ")) A6&*VD  
(setq X_Cood1(getreal"\n pls input the X axis startpoint coordinate: ")) `3+i.wR  
(setq ridus1(getreal"\n pls input the Diameter of startpoint you wanted desgin in mm: ")) Z>rY9VvWD  
(setq pitch_x(getreal"\n pls input the pitch between X axis dots you wanted desgin: ")) yayhL DL  
(setq pitch_y(getreal"\n pls input the pitch between Y axis dots you wanted desgin: ")) c3vb~l)  
(setq reduce1(getreal"\n pls input reduce the dot you wanted desgin : ")) I.<c{4K5  
(setq Xchange1 1) Y=Vbs x  
(setq Ychange 1) ~^mUu`@r  
(setq m (* Ycolum 2)) /)P}[Q4  
(setq D (- Xcolum1 1)) y~SVD@  
(setq A (- m 1)) COrk (V  
(setq X_P (/ pitch_x 2)) ~3&{`9Y  
(setq Y_P (/ pitch_y 2)) :KLXrr  
(setq C (+ Yleth Y_P)) Ni,nQ;9  
(while (<= Ychange Ycolum) +
EETo):  
(setq ridus (+ ridus1 reduce1) *r7vDc  
    pitch_a pitch_x Yd^@Ei9
 
    Xcolum Xcolum1 BrV{X&>[i  
    reduce reduce1 >[}oH2oi  
    X_Cood X_Cood1 rd%%NnT"  
    Xchange Xchange1 gAqK)@8-  
    pitch_b pitch_y 0I&k_7_  
) {MUB4-@?F$  
(setq Yleth (+ Yleth pitch_b)) %oZ:Awx  
( while (<= Xchange Xcolum) 0'QWa{dS\  
  (setq X_Cood (+ X_Cood pitch_a)) wVf~FssN  
  (setq CP (list X_Cood Yleth 0)) UtZ,q!sg  
  (setq ridus (- ridus reduce)) T<AT
&4  
  (command "donut" (- ridus ridus) ridus CP "") ]-fkmnmWX  
  (setq Xchange (+ Xchange 1)) 4=zs&  
) }U_ '7_JT  
(setq Ychange (+ Ychange 1)) "t@p9>  
) 8%?y)K^ D  
(setq Yleth1 C) {@Mr7*u  
(while (and (> Ychange Ycolum) (<= Ychange A)) [Kgb#L'{  
(setq ridus (+ ridus1 (setq reduce0 (/ reduce1 2))) uV/5f#)  
    pitch_a pitch_x &p0e)o~Ux  
    Xcolum Xcolum1 UO/sv2CN  
    reduce reduce1
N;7/C  
    X_Cood (+ X_Cood1 X_P) wp[Ug2;G  
    Xchange Xchange1 ,"(L2+Yp  
    pitch_b pitch_y @f!X%)\;x  
) okNo-\Dh!  
(setq Yleth1 (+ Yleth1 pitch_b)) sp9gz~Kq
 
  ( while (<= Xchange D) -N *L1Zj  
  (setq X_Cood (+ X_Cood pitch_a)) .n-#A  
  (setq CP (list X_Cood Yleth1 0)) $vO&C6m$  
  (setq ridus (- ridus reduce)) x0*{oP  
  (command "donut" (- ridus ridus) ridus CP "") QrZ#<{,J5  
  (setq Xchange (+ Xchange 1)) f8 d 3ZK  
) 1H)mJVIKkB  
(setq Ychange (+ Ychange 1)) hsZ/Vnn`  
) ~(5r+Z}*`  
)

請要怎麼執行.. p6VD*PT$&  
載入之後怎麼動作

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

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

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

各位大侠， @Z)|_  
autolisp 和 scheme 有什么区别？ 6( HF
)z  
autolisp代码是否可以用tracepro里macro来编译？

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

好东西，谢！！！！！！

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

具体什么用意，怎么用啊