(defun c:sl()
Eihy|p (setq Ycolum(getint"\n pls input the dot's Q'ty you wanted desgin in Y axis: ")) ;;y軸方向點(diǎn)數(shù)
Bg}l$?S (setq Yleth(getreal"\n pls input the Y axis startpoint coordinate: ")) ;;y軸起始座標(biāo)
$%4<q0- (setq Xcolum1(getint"\n pls input the dot's Q'ty you wanted desgin in x axis: "))