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

(defun c:sl() P4~C0z  
(setq Ycolum(getint"\n pls input the dot's Q'ty you wanted desgin in Y axis: ")) ;;y軸方向點數 x<{)xP+|  
(setq Yleth(getreal"\n pls input the Y axis startpoint coordinate: ")) ;;y軸起始座標 3(La)|k  
(setq Xcolum1(getint"\n pls input the dot's Q'ty you wanted desgin in x axis: ")) }L|XZL_Jo#  
(setq X_Cood1(getreal"\n pls input the X axis startpoint coordinate: ")) _1P8rc"Dx  
(setq ridus1(getreal"\n pls input the Diameter of startpoint you wanted desgin in mm: ")) 1 *$-.  
(setq pitch_x(getreal"\n pls input the pitch between X axis dots you wanted desgin: ")) 0G/_"}@  
(setq pitch_y(getreal"\n pls input the pitch between Y axis dots you wanted desgin: ")) GZ/vUe  
(setq reduce1(getreal"\n pls input reduce the dot you wanted desgin : ")) h:'wtn@l(  
(setq Xchange1 1) ca8.8uHY\  
(setq Ychange 1) XJi^
gTN  
(setq m (* Ycolum 2)) O.+X,CQG*  
(setq D (- Xcolum1 1)) gNzamorv[  
(setq A (- m 1)) .R{P%r  
(setq X_P (/ pitch_x 2)) ,]-A
~^|  
(setq Y_P (/ pitch_y 2)) G7H'OB &  
(setq C (+ Yleth Y_P)) ~UV$(5&-  
(while (<= Ychange Ycolum) -AU!c^-o  
(setq ridus (+ ridus1 reduce1) JZB@K6 ~dO  
    pitch_a pitch_x }K\m.+%=d  
    Xcolum Xcolum1 i fbO<  
    reduce reduce1 ?TVR{e:  
    X_Cood X_Cood1 Oe}6jcb6&  
    Xchange Xchange1 d512Y[ R  
    pitch_b pitch_y 1]Gp\P}  
) "WHt9 yZ  
(setq Yleth (+ Yleth pitch_b)) Md,KW#  
( while (<= Xchange Xcolum) :0B' b  
  (setq X_Cood (+ X_Cood pitch_a)) }z8HS< #Q  
  (setq CP (list X_Cood Yleth 0)) .\+%Q)?h:  
  (setq ridus (- ridus reduce)) &c
1zEgl  
  (command "donut" (- ridus ridus) ridus CP "") ;?0r,0l2$  
  (setq Xchange (+ Xchange 1)) w@ =Uf7  
) tXnD>H YV  
(setq Ychange (+ Ychange 1)) \)n'Ywr  
) xBi``x2eY  
(setq Yleth1 C) Qcr-|?5L  
(while (and (> Ychange Ycolum) (<= Ychange A)) SV96eYT<  
(setq ridus (+ ridus1 (setq reduce0 (/ reduce1 2))) ?_7^MP>  
    pitch_a pitch_x knJoVo]  
    Xcolum Xcolum1 ygquQhf5  
    reduce reduce1 ~!{y3thZ  
    X_Cood (+ X_Cood1 X_P)
Yn }Ivg  
    Xchange Xchange1 |*W
E@L5  
    pitch_b pitch_y DQOEntw  
) (Cjw^P|Y@  
(setq Yleth1 (+ Yleth1 pitch_b)) ..hD_k  
  ( while (<= Xchange D) #y&O5    
  (setq X_Cood (+ X_Cood pitch_a)) @fxDe[J:  
  (setq CP (list X_Cood Yleth1 0)) Zm!5X9^!  
  (setq ridus (- ridus reduce)) )j>BvO  
  (command "donut" (- ridus ridus) ridus CP "") 3fWL}]{<a  
  (setq Xchange (+ Xchange 1)) t!,GI
&  
) L H`z '7&/  
(setq Ychange (+ Ychange 1)) Xi!`+N4  
) '+c
Px\4  
)

請要怎麼執行.. c={bunnz#  
載入之後怎麼動作

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

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

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

各位大侠， oe
8six
Z[  
autolisp 和 scheme 有什么区别？ 1eZ759PoO  
autolisp代码是否可以用tracepro里macro来编译？

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

好东西，谢！！！！！！

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

具体什么用意，怎么用啊