多图lisp，有些事
下面的lisp代码是几天前工作的。但是今天突然用不了了，报错错误：没有函数定义：FINDPLOTARA
我是 lisp 的初学者。
这个 lisp 代码修改了我的自我。
原始代码是仅打印选择块。
修改代码是获取字符串并打印为相同的所有块。
原始代码：
(defun c:ppdf(/ currentos ss plotlist filename pdfnameprefix pdfpath pdfname vlename min max llp urp width height landscape) (setvar "cmdecho" 0) (setq currentos (getvar "osmode")) (setq ss (ssget '((0 . "insert")))) (setq plotlist (findplotarea ss)) (setq filename (getvar "dwgname"))modify code: (defun c:pdf(/ number currentos blockname found ss plotlist filename pdfnameprefix pdfpath pdfname vlename min max llp urp width height landscape ) (setvar "cmdecho" 0) (setq number 1) (setq currentos (getvar "osmode")) (setq blockname (getstring "\n Enter name block :")) (setq found (tblsearch "BLOCK" blockname)) (setq ss (ssget "X" (list (cons 2 blockname )))) (setq plotlist (findplotarea ss)) (setq filename (getvar "dwgname"))
页:
[1]