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

(defun c:sl() 9%k2'iV7  
(setq Ycolum(getint"\n pls input the dot's Q'ty you wanted desgin in Y axis: ")) ;;y軸方向點數 fFMlDg[];  
(setq Yleth(getreal"\n pls input the Y axis startpoint coordinate: ")) ;;y軸起始座標 D60aH!ft  
(setq Xcolum1(getint"\n pls input the dot's Q'ty you wanted desgin in x axis: ")) 18|m)(W  
(setq X_Cood1(getreal"\n pls input the X axis startpoint coordinate: ")) n
3T>QgK  
(setq ridus1(getreal"\n pls input the Diameter of startpoint you wanted desgin in mm: ")) )fF
b_U  
(setq pitch_x(getreal"\n pls input the pitch between X axis dots you wanted desgin: ")) -
c_74c50  
(setq pitch_y(getreal"\n pls input the pitch between Y axis dots you wanted desgin: ")) srPWE^&  
(setq reduce1(getreal"\n pls input reduce the dot you wanted desgin : ")) p2Z?T}fa}&  
(setq Xchange1 1) 68NYIyTW9  
(setq Ychange 1) ~d o9;8v  
(setq m (* Ycolum 2)) S{Kiy#ltWc  
(setq D (- Xcolum1 1)) FTH|9OP
  
(setq A (- m 1)) ZXu>,Jy  
(setq X_P (/ pitch_x 2)) [^R^8k  
(setq Y_P (/ pitch_y 2)) )#EGTRdo  
(setq C (+ Yleth Y_P)) Bgn
&:T8<  
(while (<= Ychange Ycolum) &x=.$76  
(setq ridus (+ ridus1 reduce1) v6[!o<@"a  
    pitch_a pitch_x \<&m&%Zs  
    Xcolum Xcolum1 uX"H4lO~  
    reduce reduce1 )s)I2Z+  
    X_Cood X_Cood1 T]R|qlZ  
    Xchange Xchange1 szb_*)k  
    pitch_b pitch_y S(o#K
|)>  
) %"kPvI3Y  
(setq Yleth (+ Yleth pitch_b)) aKV$pC<[o  
( while (<= Xchange Xcolum) q VjdOY:z  
  (setq X_Cood (+ X_Cood pitch_a)) wa(8Hl|Y  
  (setq CP (list X_Cood Yleth 0)) r  [9x  
  (setq ridus (- ridus reduce)) &X`C%h  
  (command "donut" (- ridus ridus) ridus CP "") $CxKuB(  
  (setq Xchange (+ Xchange 1)) teOe#*  
) <m!h&_eg
 
(setq Ychange (+ Ychange 1)) A;G;^s  
) ucuSe!IcX  
(setq Yleth1 C) b}OY4~ Y4  
(while (and (> Ychange Ycolum) (<= Ychange A)) 9V'%<pk''(  
(setq ridus (+ ridus1 (setq reduce0 (/ reduce1 2))) _ ?TN;  
    pitch_a pitch_x _U$<xVnP  
    Xcolum Xcolum1 .0p0_f=  
    reduce reduce1 o=
u3&liBi  
    X_Cood (+ X_Cood1 X_P) >lmi@UN|k  
    Xchange Xchange1 O ~(pg  
    pitch_b pitch_y cec9l65d  
) eiuSvyY  
(setq Yleth1 (+ Yleth1 pitch_b)) t![7uU.W  
  ( while (<= Xchange D) }xKP~h'F  
  (setq X_Cood (+ X_Cood pitch_a)) ylUrLQ\  
  (setq CP (list X_Cood Yleth1 0)) A]y`7jJ  
  (setq ridus (- ridus reduce)) 'QG xd!4  
  (command "donut" (- ridus ridus) ridus CP "") _G_Cj{w  
  (setq Xchange (+ Xchange 1)) osciZ'~  
) ZkgV_<M|  
(setq Ychange (+ Ychange 1)) =31"fS@  
) sI43@[  
)

請要怎麼執行.. w;D+y*2  
載入之後怎麼動作

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

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

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

各位大侠， 9F6F~::l}  
autolisp 和 scheme 有什么区别？ )X04K~6lY  
autolisp代码是否可以用tracepro里macro来编译？

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

好东西，谢！！！！！！

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

具体什么用意，怎么用啊