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

(defun c:sl() #?~G\Ux0/  
(setq Ycolum(getint"\n pls input the dot's Q'ty you wanted desgin in Y axis: ")) ;;y軸方向點數(shù) =HMuAUa.  
(setq Yleth(getreal"\n pls input the Y axis startpoint coordinate: ")) ;;y軸起始座標(biāo) OO;I^`Yn  
(setq Xcolum1(getint"\n pls input the dot's Q'ty you wanted desgin in x axis: ")) >jc17BJq
 
(setq X_Cood1(getreal"\n pls input the X axis startpoint coordinate: ")) O\