求助解决lisp程序的错误

894560869

求助解决lisp程序的错误

;;;画剖面线
;;;定义默认通用填充图像名称式填充
(defun c:AH ()
(setvar "pickbox" 22)
(setq clay (getvar "clayer")) ; 原始图层状态赋值给oldlay
(setvar "hpname" "ansi31" )
;(VL-CMDF "UNITS" "2""4""1""4""0""n")
;(princ"[设定默认图形单位为_毫米、角度为_0、填充图案为_通用型]")
(initdia) 
(VL-CMDF "_.BHATCH" )
(while (/= 0 (getvar "cmdactive")); 没有它回不到原来图层
(SETVAR "CLAYER" CLAY))
(princ))

运行时出现错误如下

*** INTERNAL ERROR: VL namespace mismatch
 type Y to reset: *取消*
; 错误: 函数被取消

yshf

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

;;;画剖面线 ;;;定义默认通用填充图像名称式填充 (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

谢谢yshf 帮我解决了这个困惑！