(defun c:sl() \fA{ sehdL
(setq Ycolum(getint"\n pls input the dot's Q'ty you wanted desgin in Y axis: ")) ;;y軸方向點數 [oLV,O|s|j
(setq Yleth(getreal"\n pls input the Y axis startpoint coordinate: ")) ;;y軸起始座標 Gnkar[oa&
(setq Xcolum1(getint"\n pls input the dot's Q'ty you wanted desgin in x axis: ")) 0xB2
(setq X_Cood1(getreal"\n pls input the X axis startpoint coordinate: ")) -R`{]7V
(setq ridus1(getreal"\n pls input the Diameter of startpoint you wanted desgin in mm: ")) `S
{&gl