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

(defun c:sl() )e{aN+  
(setq Ycolum(getint"\n pls input the dot's Q'ty you wanted desgin in Y axis: ")) ;;y軸方向點(diǎn)數(shù) D~m*!w*  
(setq Yleth(getreal"\n pls input the Y axis startpoint coordinate: ")) ;;y軸起始座標(biāo) s AkdMo  
(setq Xcolum1(getint"\n pls input the dot's Q'ty you wanted desgin in x axis: ")) g#bRT*,L  
(setq X_Cood1(getreal"\n pls input the X axis startpoint coordinate: ")) iTwm3V P  
(setq ridus1(getreal"\n pls input the Diameter of startpoint you wanted desgin in mm: "))