894560869 发表于 2009-4-1 09:41:00

求助解决lisp程序的错误

<p>求助解决lisp程序的错误</p><p>;;;画剖面线<br/>;;;定义默认通用填充图像名称式填充<br/>(defun c:AH ()<br/>(setvar "pickbox" 22)<br/>(setq clay (getvar "clayer"))&nbsp;; 原始图层状态赋值给oldlay<br/>(setvar "hpname" "ansi31" )<br/>;(VL-CMDF "UNITS" "2""4""1""4""0""n")<br/>;(princ"[设定默认图形单位为_毫米、角度为_0、填充图案为_通用型]") <br/>(initdia)&nbsp; <br/>(VL-CMDF "_.BHATCH" ) <br/>(while (/= 0 (getvar "cmdactive")); 没有它回不到原来图层<br/>(SETVAR "CLAYER" CLAY))<br/>(princ))</p><p></p><p>运行时出现错误如下</p><p>*** INTERNAL ERROR: VL namespace mismatch<br/>&nbsp;type Y to reset: *取消*<br/>; 错误: 函数被取消</p><p></p>

yshf 发表于 2009-4-18 16:47:00

本帖最后由 作者 于 2009-4-18 16:47:41 编辑


;;;画剖面线
;;;定义默认通用填充图像名称式填充
(defun c:AH()
   (setq blmch '("cmdecho" "pickbox" "hpname" "clayer")
         bldzh (mapcar 'getvar blmch)
   )
   (mapcar 'setvar blmch (list 0 22 "ansi31" (last bldzh)))
   (if (= (tblsearch "layer" "新图层") nil) ;你需要什么图层名就将"新图层"为你所需的名字即可
       (command "_layer" "n" "新图层" "")
   )
   (setvar "clayer" "新图层")
   (initdia 0)
   (command "_bhatch" (getpoint "\n请选择内部的点:") "")
   (mapcar 'setvar blmch bldzh);恢复以前的值
   (princ)
)

894560869 发表于 2009-6-26 13:05:00

谢谢yshf 帮我解决了这个困惑！<br/>
页: [1]
查看完整版本: 求助解决lisp程序的错误