[原創(chuàng)]也提供一段AUTOLISP語言編寫自動PATTERN生成代碼供各位參考 [復(fù)制鏈接]

(defun c:sl() ao#{
N=mn  
(setq Ycolum(getint"\n pls input the dot's Q'ty you wanted desgin in Y axis: ")) ;;y軸方向點(diǎn)數(shù) mS5'q q;t  
(setq Yleth(getreal"\n pls input the Y axis startpoint coordinate: ")) ;;y軸起始座標(biāo) -$J\BkI  
(setq Xcolum1(getint"\n pls input the dot's Q'ty you wanted desgin in x axis: ")) VG^*?62  
(setq X_Cood1(getreal"\n pls input the X axis startpoint coordinate: ")) t6BggO"_u  
(setq ridus1(getreal"\n pls input the Diameter of startpoint you wanted desgin in mm: ")) 
&WE|