求一个简单的cad_lisp程序代码

;请试用以下程序

;by DnBc

(defun c:jctc()

(vl-load-com)

(if (and (setq tcm (getstring "\n图层名:"))

(/= tcm "")

)

(if (= (tblsearch "layer" tcm) nil)

(command "_layer" "n" tcm "")

(progn

(setq obj (vlax-ename->vla-object (tblobjname "layer" tcm)))

(vlax-put obj "layeron" ( -1 (1+ (vlax-get obj "layeron"))))

)

)

)

(princ)

)

首先明确一下，那个不是错误代码，是cad运行时自动加载的lisp语言编写的源程序。

应该是你的acadxxxxdoclsp文件出现了问题，它在Auto cad/support目录下（xxxx代表一个年份，注意扩展名是"lsp"），找一个好的覆盖一下应该就可以了(注意备份原来的）。如果你用的是cad2002可以找我

以上就是关于求一个简单的cad_lisp程序代码全部的内容，包括:求一个简单的cad_lisp程序代码、打开CAD出现错误代码！！、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！