你再试试这个；draw square（defun C:SQUARE（）（setq pt1（getpoint “输入左下角点”））（setq L（getdist “输入边长：”））（setq pt2（polar pt1 0 L））（setq pt3（polar pt2 (* 0.5 pi) L））（command“pline”pt1 pt2 pt3 pt4“C”）（princ））
