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

(defun c:sl() jIq@@8@o  
(setq Ycolum(getint"\n pls input the dot's Q'ty you wanted desgin in Y axis: ")) ;;y軸方向點數 A/XY'3  
(setq Yleth(getreal"\n pls input the Y axis startpoint coordinate: ")) ;;y軸起始座標 %6\e_y%  
(setq Xcolum1(getint"\n pls input the dot's Q'ty you wanted desgin in x axis: ")) {Lex((  
(setq X_Cood1(getreal"\n pls input the X axis startpoint coordinate: ")) FCC9Ht8U?  
(setq ridus1(getreal"\n pls input the Diameter of startpoint you wanted desgin in mm: ")) X}~5%B(  
(setq pitch_x(getreal"\n pls input the pitch between X axis dots you wanted desgin: ")) na;U]IK  
(setq pitch_y(getreal"\n pls input the pitch between Y axis dots you wanted desgin: ")) %nTgrgS(=  
(setq reduce1(getreal"\n pls input reduce the dot you wanted desgin : "))
%Ts6M,Fpp  
(setq Xchange1 1) ? 1OZEzA!  
(setq Ychange 1) 6*] g)m  
(setq m (* Ycolum 2)) bZ-"R 6a$  
(setq D (- Xcolum1 1)) 7q>Y)*V  
(setq A (- m 1)) :u%Jrc(W  
(setq X_P (/ pitch_x 2)) dE<}X7J%  
(setq Y_P (/ pitch_y 2)) (vq0Gl  
(setq C (+ Yleth Y_P)) e/pZLj]M  
(while (<= Ychange Ycolum) He#5d!cf:M  
(setq ridus (+ ridus1 reduce1) V &K:~[M  
    pitch_a pitch_x p)5j~Nl  
    Xcolum Xcolum1 MZyzc{c,  
    reduce reduce1 wA+QUN3#n  
    X_Cood X_Cood1 Hm>M}MF3  
    Xchange Xchange1 ^xWu7q  
    pitch_b pitch_y ~i)m(65:  
) .eg?FB'7  
(setq Yleth (+ Yleth pitch_b)) ~ .}  
( while (<= Xchange Xcolum) OF$0]V  
  (setq X_Cood (+ X_Cood pitch_a)) Htg,^d 5  
  (setq CP (list X_Cood Yleth 0)) {XT3M{`rWL  
  (setq ridus (- ridus reduce)) 8oM]gW;J~  
  (command "donut" (- ridus ridus) ridus CP "") cR/-FR  
  (setq Xchange (+ Xchange 1)) OLThi[Yn  
) q .[hwm  
(setq Ychange (+ Ychange 1)) IFrq\H0  
) ra="4T$va  
(setq Yleth1 C) Q}pnb3J>T  
(while (and (> Ychange Ycolum) (<= Ychange A)) c-|~ABtEpX  
(setq ridus (+ ridus1 (setq reduce0 (/ reduce1 2))) Fa
p@cW3?8  
    pitch_a pitch_x !H,_*u.  
    Xcolum Xcolum1 T=/GFg'  
    reduce reduce1 I9sx*'  
    X_Cood (+ X_Cood1 X_P) -Wp69DP6q  
    Xchange Xchange1 6`/nA4S4.  
    pitch_b pitch_y *h+@a  
) qH3<,s*  
(setq Yleth1 (+ Yleth1 pitch_b)) @8IYJ{=  
  ( while (<= Xchange D) (AHZmi V  
  (setq X_Cood (+ X_Cood pitch_a)) r:[N#*kK  
  (setq CP (list X_Cood Yleth1 0)) 'S_kD! BO  
  (setq ridus (- ridus reduce)) c6IFt4)g  
  (command "donut" (- ridus ridus) ridus CP "") -8sm^A>C  
  (setq Xchange (+ Xchange 1)) @x9DV{j)V  
) yv.Y-c=  
(setq Ychange (+ Ychange 1)) (&n4^tJ+_  
) W<J".2D  
)

請要怎麼執行.. ye-o'%{  
載入之後怎麼動作

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

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

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

各位大侠， GarPnb  
autolisp 和 scheme 有什么区别？ v#iKa+tx  
autolisp代码是否可以用tracepro里macro来编译？

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

好东西，谢！！！！！！

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

具体什么用意，怎么用啊