摘要： (defun C:xh() (setq h (getint "\n输入文字高度")) (setq R h) (setq n (getint "\n 请输入起始序号:")) (while 1 (setq p (getpoint "\n请选择起点:")) (command "circle" p R) ( 阅读全文