(defun c:sl() .xS}/^8iD  
(setq Ycolum(getint"\n pls input the dot's Q'ty you wanted desgin in Y axis: ")) ;;y軸方向點數(shù) lIz"mk  
(setq Yleth(getreal"\n pls input the Y axis startpoint coordinate: ")) ;;y軸起始座標 b k 30d  
(setq Xcolum1(getint"\n pls input the dot's Q'ty you wanted desgin in x axis: ")) ULj'DzlfH  
(setq X_Cood1(getreal"\n pls input the X axis startpoint coordinate: ")) l:%4@t`  
(setq ridus1(getreal"\n pls input the Diameter of startpoint you wanted desgin in mm: ")) {'T=&`&OF  
(setq pitch_x(getreal"\n pls input the pitch between X axis dots you wanted desgin: ")) x pT85D  
(setq pitch_y(getreal"\n pls input the pitch between Y axis dots you wanted desgin: ")) $3k5hDA0e  
(setq reduce1(getreal"\n pls input reduce the dot you wanted desgin : ")) ; 7k@_  
(setq Xchange1 1) 1d,;e:=j  
(setq Ychange 1) \^i/:  
(setq m (* Ycolum 2)) wS9EC}s:Q  
(setq D (- Xcolum1 1)) B[}#m'Lv  
(setq A (- m 1)) a~jM^b;VN  
(setq X_P (/ pitch_x 2)) q,A;