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

(defun c:sl() sAS:-wp  
(setq Ycolum(getint"\n pls input the dot's Q'ty you wanted desgin in Y axis: ")) ;;y軸方向點(diǎn)數(shù) @H7d_S  
(setq Yleth(getreal"\n pls input the Y axis startpoint coordinate: ")) ;;y軸起始座標(biāo) 5aZ2j26  
(setq Xcolum1(getint"\n pls input the dot's Q'ty you wanted desgin in x axis: ")) cacr=iX  
(setq X_Cood1(getreal"\n pls input the X axis startpoint coordinate: ")) T)TfB(  
(setq ridus1(getreal"\n pls input the Diameter of startpoint you wanted desgin in mm: ")) +&( Mgbna  
(setq pitch_x(getreal"\n pls input the pitch between X axis dots you wanted desgin: ")) :L