求助!!懂cad lisp程序的请进? (defun c:isb1() (setq xy '() a real b real x real y real pt list z 0 ) (while t (setq a (getreal "\n请输入x方向增加值:") b (getreal "\n请输入y方向增加值:") ) (setq xy (getpoint "\n拾取一点:") x (car xy) y (cadr xy) ) (setq x (+ x a) y (+ y b) ) (setq pt (list x y z)) (command "insert" "block1" pt "" "" "") ) (princ) ) 楼主,上面的这段代码应该是你想要的,我试了,没问题,只不过再次插入块时不断重新提示 “请输入x方向的增加值”,“请输入y方向增加值”,“拾取一点”, 这几句话,不想插了,就按esc。 我好久没写autolisp代码了,都忘得差不多了,还有什么不清楚的,跟帖问吧或发我短信。 [ ]查看更多