Question

关于批量打印图纸的visual lisp的代码问题

各位高手好！在网上看见一个实现批量打印的visual lisp架构，加载之后出现了问题，请问高手们哪里还需要修改啊？！怎样才能批量打印图纸的功能呢？代码如下：(defun c:mplot() (setq p_1(getpoint"\n\tfirst corner:") p_2(getpoint"\n\tother corner:") n(getint"\n\t总张数：<1>")) (if (=n nil)(setq n 1)) (setq m_d 500) (repeat n (command"plot""w"p_1 p_2"n"command) (set p_1(polar p_1(/ pi 2)m_d)p_2(polar p_2(/ pi 2)m_d)) ) );enddef

Answer 1

倒数第三行，"set"后少了一个"q",即应为“setq"