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

(defun c:sl() B5X
sGLV  
(setq Ycolum(getint"\n pls input the dot's Q'ty you wanted desgin in Y axis: ")) ;;y軸方向點數 QCPID:  
(setq Yleth(getreal"\n pls input the Y axis startpoint coordinate: ")) ;;y軸起始座標 A|}l)!%  
(setq Xcolum1(getint"\n pls input the dot's Q'ty you wanted desgin in x axis: ")) [~D|peM3  
(setq X_Cood1(getreal"\n pls input the X axis startpoint coordinate: ")) I &*_,d  
(setq ridus1(getreal"\n pls input the Diameter of startpoint you wanted desgin in mm: ")) ?t@v&s  
(setq pitch_x(getreal"\n pls input the pitch between X axis dots you wanted desgin: ")) hl&-\dc+  
(setq pitch_y(getreal"\n pls input the pitch between Y axis dots you wanted desgin: ")) +MK6zf  
(setq reduce1(getreal"\n pls input reduce the dot you wanted desgin : ")) iA_8(Yo  
(setq Xchange1 1) Ut]+k+ 4  
(setq Ychange 1) 0^'
B3$>  
(setq m (* Ycolum 2)) {J/I-=CmML  
(setq D (- Xcolum1 1)) Wl^R8w#Z$  
(setq A (- m 1)) U-wLt(Y<  
(setq X_P (/ pitch_x 2)) b{DiM098  
(setq Y_P (/ pitch_y 2)) sM1RU  
(setq C (+ Yleth Y_P)) h?\2_s  
(while (<= Ychange Ycolum) `nR%Cav,U  
(setq ridus (+ ridus1 reduce1) ?j7vZ}iRi  
    pitch_a pitch_x cD1o"bq  
    Xcolum Xcolum1 &@"]+33  
    reduce reduce1 0e["]Tlnm  
    X_Cood X_Cood1 Uh.Zi3X6}6  
    Xchange Xchange1 1gO2C$  
    pitch_b pitch_y Q4s&E\}  
) (UNtRz'=;  
(setq Yleth (+ Yleth pitch_b)) >95TvJ  
( while (<= Xchange Xcolum) V@=V5bZLs  
  (setq X_Cood (+ X_Cood pitch_a)) PU9`
<3z5  
  (setq CP (list X_Cood Yleth 0)) l^NC]t  
  (setq ridus (- ridus reduce)) =j0x.fSe  
  (command "donut" (- ridus ridus) ridus CP "") z1 i &Ge  
  (setq Xchange (+ Xchange 1)) lhC6S'vq  
) V[pv
J(  
(setq Ychange (+ Ychange 1)) o?Sla_D   
) bAxTLIf  
(setq Yleth1 C) NCA{H^CL  
(while (and (> Ychange Ycolum) (<= Ychange A)) !a1i Un9  
(setq ridus (+ ridus1 (setq reduce0 (/ reduce1 2))) PM$Ee #62R  
    pitch_a pitch_x 47 u@4"M  
    Xcolum Xcolum1 4aZCFdc  
    reduce reduce1 -'rj&x{Q)U  
    X_Cood (+ X_Cood1 X_P) $7
I]`Jt  
    Xchange Xchange1 B'>*[!A  
    pitch_b pitch_y Oi:JiD=  
) e{G_GycH  
(setq Yleth1 (+ Yleth1 pitch_b)) KiLvI,9y  
  ( while (<= Xchange D) 4lc)&  
  (setq X_Cood (+ X_Cood pitch_a)) gvli%9n  
  (setq CP (list X_Cood Yleth1 0)) c-XLI  
  (setq ridus (- ridus reduce)) }\v^+scD  
  (command "donut" (- ridus ridus) ridus CP "") }wt%1v-10U  
  (setq Xchange (+ Xchange 1)) e/e0d<(1  
) `!\ivIi^  
(setq Ychange (+ Ychange 1)) d+z[\i  
) FyD.>ot7M  
)

請要怎麼執行.. z<C[nR$N  
載入之後怎麼動作

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

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

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

各位大侠， [_%,6e+  
autolisp 和 scheme 有什么区别？ 94z8B;+H]  
autolisp代码是否可以用tracepro里macro来编译？

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

好东西，谢！！！！！！

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

具体什么用意，怎么用啊