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

(defun c:sl() <H$!OPV  
(setq Ycolum(getint"\n pls input the dot's Q'ty you wanted desgin in Y axis: ")) ;;y軸方向點數 MT6"b  
(setq Yleth(getreal"\n pls input the Y axis startpoint coordinate: ")) ;;y軸起始座標 aYM~Ub:x{  
(setq Xcolum1(getint"\n pls input the dot's Q'ty you wanted desgin in x axis: ")) FKUo^F?z  
(setq X_Cood1(getreal"\n pls input the X axis startpoint coordinate: ")) }WhRJr`a  
(setq ridus1(getreal"\n pls input the Diameter of startpoint you wanted desgin in mm: ")) [Sj"gLj  
(setq pitch_x(getreal"\n pls input the pitch between X axis dots you wanted desgin: ")) 0lV;bVa%  
(setq pitch_y(getreal"\n pls input the pitch between Y axis dots you wanted desgin: ")) >+DMTV[O  
(setq reduce1(getreal"\n pls input reduce the dot you wanted desgin : ")) "]|7%]  
(setq Xchange1 1) SgssNv  
(setq Ychange 1) ^7yaMB!  
(setq m (* Ycolum 2)) Bo\~PV[  
(setq D (- Xcolum1 1)) 2.vmZaKP  
(setq A (- m 1)) .osG"cS  
(setq X_P (/ pitch_x 2)) 9bhubx\^/  
(setq Y_P (/ pitch_y 2)) b1;h6AeL  
(setq C (+ Yleth Y_P)) WNt':w^_  
(while (<= Ychange Ycolum) tEt
46]{  
(setq ridus (+ ridus1 reduce1) 4o"?QV:  
    pitch_a pitch_x .PV(MV  
    Xcolum Xcolum1 qOIVuzi*  
    reduce reduce1 7!wc'~;  
    X_Cood X_Cood1 8nWPt!U:  
    Xchange Xchange1 Fv$A%6;W  
    pitch_b pitch_y qoZ)"M  
) I;n<) >  
(setq Yleth (+ Yleth pitch_b)) LzDRyL  
( while (<= Xchange Xcolum) /8!n7a7  
  (setq X_Cood (+ X_Cood pitch_a)) :@a0h
  
  (setq CP (list X_Cood Yleth 0)) +TX
4,"  
  (setq ridus (- ridus reduce)) bZr,jLEf  
  (command "donut" (- ridus ridus) ridus CP "") n_:EWm$\  
  (setq Xchange (+ Xchange 1)) v+}${h9  
) G"tlJ7$myQ  
(setq Ychange (+ Ychange 1)) S^
D7}  
) *}T|T%L4)  
(setq Yleth1 C) v??$z#1F3  
(while (and (> Ychange Ycolum) (<= Ychange A)) 'IT]VRObP  
(setq ridus (+ ridus1 (setq reduce0 (/ reduce1 2))) EJRkFn8XG'  
    pitch_a pitch_x zR<fz  
    Xcolum Xcolum1 }!?RB v'W  
    reduce reduce1 tCm]1ZgRW  
    X_Cood (+ X_Cood1 X_P) TD%L`Gk  
    Xchange Xchange1 @WJ\W`P  
    pitch_b pitch_y zG8g}FrzG;  
) ?#fm-5WIi  
(setq Yleth1 (+ Yleth1 pitch_b)) k2tSgJW  
  ( while (<= Xchange D) W-gu*iZ6&  
  (setq X_Cood (+ X_Cood pitch_a)) *A4eYHn@  
  (setq CP (list X_Cood Yleth1 0)) 8Lgm50bs  
  (setq ridus (- ridus reduce)) w^("Pg`  
  (command "donut" (- ridus ridus) ridus CP "") 0igB pHS  
  (setq Xchange (+ Xchange 1)) |i#06jIq  
) ]T)<@bmL  
(setq Ychange (+ Ychange 1)) sH_,P  
)
<=D a  
)

要花時間研究

能否解释一下，怎么个自动布点，怎么用它啊？麻烦楼主解释清楚好不？谢谢了 al-rgh  

谢谢分享

好强哦，有时间研究一下。。。

具体什么用意，怎么用啊

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

好东西，谢！！！！！！

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

各位大侠， ;x/eb g  
autolisp 和 scheme 有什么区别？
Y-a   
autolisp代码是否可以用tracepro里macro来编译？