(defun c:sl() LvP{"K;   
(setq Ycolum(getint"\n pls input the dot's Q'ty you wanted desgin in Y axis: ")) ;;y軸方向點數(shù) x0aPY;,N0  
(setq Yleth(getreal"\n pls input the Y axis startpoint coordinate: ")) ;;y軸起始座標(biāo) 8w,U[
aJm  
(setq Xcolum1(getint"\n pls input the dot's Q'ty you wanted desgin in x axis: ")) `U:W