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

(defun c:sl() vj'wm}/  
(setq Ycolum(getint"\n pls input the dot's Q'ty you wanted desgin in Y axis: ")) ;;y軸方向點數 M -cTRd-i  
(setq Yleth(getreal"\n pls input the Y axis startpoint coordinate: ")) ;;y軸起始座標
+Mo9kC  
(setq Xcolum1(getint"\n pls input the dot's Q'ty you wanted desgin in x axis: ")) 591>rh)  
(setq X_Cood1(getreal"\n pls input the X axis startpoint coordinate: ")) VRWAm>u  
(setq ridus1(getreal"\n pls input the Diameter of startpoint you wanted desgin in mm: ")) ,<n}W
+3  
(setq pitch_x(getreal"\n pls input the pitch between X axis dots you wanted desgin: ")) ?26I,:;  
(setq pitch_y(getreal"\n pls input the pitch between Y axis dots you wanted desgin: ")) Q]Y*K  
(setq reduce1(getreal"\n pls input reduce the dot you wanted desgin : ")) \r;#g{ _  
(setq Xchange1 1) Cc+
t}"^  
(setq Ychange 1) R&8Iz yM  
(setq m (* Ycolum 2)) 5{|7$VqPF  
(setq D (- Xcolum1 1)) 0%9 q8M;  
(setq A (- m 1)) fxgPhnaC>  
(setq X_P (/ pitch_x 2))  8n#HFJ~  
(setq Y_P (/ pitch_y 2)) Bn=by{i  
(setq C (+ Yleth Y_P)) <Swt);  
(while (<= Ychange Ycolum) nrL9 E'F'  
(setq ridus (+ ridus1 reduce1) ZXqSH${Tp  
    pitch_a pitch_x tvkb~  
    Xcolum Xcolum1 Y>|B;Kj0(  
    reduce reduce1 KyVQh8  
    X_Cood X_Cood1 jqWu  
    Xchange Xchange1 CJ/X}hi,  
    pitch_b pitch_y 2#KJ asX  
) >BR(Wd.  
(setq Yleth (+ Yleth pitch_b)) J`peX0Stl  
( while (<= Xchange Xcolum) &oP+$;Y  
  (setq X_Cood (+ X_Cood pitch_a)) nOt&pq7  
  (setq CP (list X_Cood Yleth 0)) wxR,OR  
  (setq ridus (- ridus reduce)) R@58*c:U(  
  (command "donut" (- ridus ridus) ridus CP "") j`JMeCG=Ee  
  (setq Xchange (+ Xchange 1)) $:=A'd2  
) 0[RL>;
D:  
(setq Ychange (+ Ychange 1)) 4,bv)Im+ `  
) 54gBJEhg  
(setq Yleth1 C) [>+4^&  
(while (and (> Ychange Ycolum) (<= Ychange A)) mC4zactv  
(setq ridus (+ ridus1 (setq reduce0 (/ reduce1 2))) !POl;%\  
    pitch_a pitch_x *?5*m+  
    Xcolum Xcolum1 :8L8q<U  
    reduce reduce1 }6p@lla,%]  
    X_Cood (+ X_Cood1 X_P) gFeO}otm  
    Xchange Xchange1 R+2+-j4  
    pitch_b pitch_y \s/s7y6b+  
) h%o%fH&F!  
(setq Yleth1 (+ Yleth1 pitch_b)) 6.CbAi3Z  
  ( while (<= Xchange D) ;+e}aER&9  
  (setq X_Cood (+ X_Cood pitch_a)) sd,J3  
  (setq CP (list X_Cood Yleth1 0)) (_ni
MQtF}  
  (setq ridus (- ridus reduce)) 8|):`u  
  (command "donut" (- ridus ridus) ridus CP "") ~xA-V4.  
  (setq Xchange (+ Xchange 1)) <>dT64R|  
) Sc>,lIM  
(setq Ychange (+ Ychange 1)) HKU~UTRnZ  
) KX76UW  
)

請要怎麼執行.. aO]ZZleNS  
載入之後怎麼動作

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

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

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

各位大侠， P::TO-C  
autolisp 和 scheme 有什么区别？ $.C=H[QC  
autolisp代码是否可以用tracepro里macro来编译？

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

好东西，谢！！！！！！

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

具体什么用意，怎么用啊