“AutoCAD 变量设置被拒绝”求解

wdq10105

请教一下，下面这段代码，为什么“AutoCAD 变量设置被拒绝: "CLAYER" nil “

(DEFUN C:test(/ c_layer d_style )
    (setq c_lay (getvar "clayer"))
    (setq d_style (getvar "dimstyle"))
    (if (not (tblsearch "layer" "Ow_Dim"))
         (command "layer" "m" "Ow_Dim" "c" "6" "" "l" "continuous" "" "")
         )
    (setvar "CLAYER" Ow_Dim)
    (if (tblsearch "DIMSTYLE" "Ow_dimstyle")
        (setvar "DIMSTYLE" Ow_dimstyle)
     (progn
     (command "dimstyle" "s" "Ow_dimstyle")
     (alert "Ow_dimstyle 标注样式名已经建立,请到标注样式管理器中完善!")
     (exit)))
      (COMMAND "dimlinear")
     (setvar "clayer" c_lay)
     (setvar "dimstyle" d_style)
     (princ)
)

Andyhon

(if (not (tblsearch "layer" "Ow_Dim"))
  (command "layer" "m" "Ow_Dim" "c" "6" "" "l" "continuous" "" "")
)
(setvar "CLAYER" Ow_Dim)

====>
(if (not (tblsearch "layer" "Ow_Dim"))
  (command "layer" "m" "Ow_Dim" "c" "6" "" "l" "continuous" "" "")
  (setvar "CLAYER" "Ow_Dim")
)

wdq10105

回复 wdq10105 的帖子

谢谢，不过我加上引号了还是被拒绝

Andyhon

请上传配合调试用的图纸(*.dwg)

wdq10105

回复 Andyhon 的帖子

我随便新建一个图都不行，麻烦您给看看，谢谢！
(DEFUN C:ll(/ c_layer d_style )
    (setq c_lay (getvar "clayer"))
    (setq d_style (getvar "dimstyle"))
    (if (not (tblsearch "layer" "Ow_Dim"))
         (command "layer" "m" "Ow_Dim" "c" "6" "" "l" "continuous" "" "")
         (setvar "CLAYER" "Ow_Dim"))   
    (if (tblsearch "DIMSTYLE" "Ow_dimstyle")
        (setvar "CLAYER" Ow_dimstyle)
     (progn
     (command "dimstyle" "s" "Ow_dimstyle")
     (alert "Ow_dimstyle 标注样式名已经建立,请到标注样式管理器中完善!")
     (exit)))
      (COMMAND "dimlinear")
     (setvar "clayer" c_lay)
     (setvar "dimstyle" d_style)
     (princ)
)

Andyhon

卡在这儿了
(if (tblsearch "DIMSTYLE" "Ow_dimstyle")
       (setvar "CLAYER" Ow_dimstyle)       ;  请您先在命令列中调试找出路

wdq10105

唉，还是不行，见图

yucpp

改好了。
(DEFUN C:TST ( /  c_layer d_style)
  (setq c_lay (getvar "clayer"))
  (setq d_style (getvar "dimstyle"))
  (if (not (tblsearch "layer" "Ow_Dim"))
    (command "layer" "m" "Ow_Dim" "c" "6" "" "l" "continuous" "" "")
    (setvar "CLAYER" "Ow_Dim")
  )
  (if (tblsearch "DIMSTYLE" "Ow_dimstyle")
    (setvar "CLAYER" "Ow_Dim")
    (progn
      (command "dimstyle" "r" "Ow_dimstyle")
      (alert
"Ow_dimstyle 标注样式名已经建立,请到标注样式管理器中完善!"
      )
      (exit)
    )
  )
  (COMMAND "dimlinear")
  (while (= 1 (getvar "cmdactive")) (command pause))
  (setvar "clayer" c_lay)
  (command "dimstyle" "r" d_style)
  (princ)
)

yshf

2. 
   
3. (DEFUN C:ll();/ c_layer d_style )
   
4.     (setq cm (getvar "CMDECHO"))
   
5.     (setvar "CMDECHO" 0)
   
6.     (setq c_lay (getvar "clayer"))
   
7.     (setq d_style (getvar "dimstyle"))
   
8.     (if (not (tblsearch "layer" "Ow_Dim"))
   
9.          (command "layer" "m" "Ow_Dim" "c" "6" "" "l" "continuous" "" "")
   
10.          (setvar "CLAYER" "Ow_Dim"))   
    
11.     (if (tblsearch "DIMSTYLE" "Ow_dimstyle")
    
12.         ;(setvar "CLAYER" Ow_dimstyle) ;注意层名是"Ow_Dim"而非Ow_dimstyle
    
13. (setvar "CLAYER" "Ow_Dim")
    
14.         (progn
    
15.            (command "dimstyle" "s" "Ow_dimstyle")
    
16.            (alert "Ow_dimstyle 标注样式名已经建立,请到标注样式管理器中完善!")
    
17.            (exit)
    
18.         )
    
19.      )
    
20.      (COMMAND "_dimlinear")
    
21.      (while (= 1 (getvar "cmdactive")) (command pause))
    
22.      (setvar "clayer" c_lay)
    
23.      ;(setvar "dimstyle" d_style) ;注意dimstyle是只读的
    
24.      (command  "_dimstyle" "r" d_style)
    
25.      (setvar "CMDECHO" cm)
    
26.      (princ)
    
27. )

<br /> (DEFUN C:ll();/ c_layer d_style )<br />     (setq cm (getvar "CMDECHO"))<br />     (setvar "CMDECHO" 0)<br />     (setq c_lay (getvar "clayer"))<br />     (setq d_style (getvar "dimstyle"))<br />     (if (not (tblsearch "layer" "Ow_Dim"))<br />          (command "layer" "m" "Ow_Dim" "c" "6" "" "l" "continuous" "" "")<br />          (setvar "CLAYER" "Ow_Dim"))   <br />     (if (tblsearch "DIMSTYLE" "Ow_dimstyle")<br />         ;(setvar "CLAYER" Ow_dimstyle) ;注意层名是"Ow_Dim"而非Ow_dimstyle<br /> (setvar "CLAYER" "Ow_Dim")<br />         (progn<br />            (command "dimstyle" "s" "Ow_dimstyle")<br />            (alert "Ow_dimstyle 标注样式名已经建立,请到标注样式管理器中完善!")<br />            (exit)<br />         )<br />      )<br />      (COMMAND "_dimlinear")<br />      (while (= 1 (getvar "cmdactive")) (command pause))<br />      (setvar "clayer" c_lay)<br />      ;(setvar "dimstyle" d_style) ;注意dimstyle是只读的<br />      (command  "_dimstyle" "r" d_style)<br />      (setvar "CMDECHO" cm)<br />      (princ)<br /> )

yucpp

yshf给的代码最好加一句(while (= 1 (getvar "cmdactive")) (command pause))
否则老提示点无效，虽然不影响程序执行。
这种彩色的代码是怎么发的？