[LISP程序]：求助高手一个问题。

userzhluserzhl

(DEFUN c:malay (/ sst)
(mla txt co1)
;(mla函数存在)
;到了这里还是可以执行的
;为何下面这段程序执行不了？
;....
(setq
sst (ssget "X" '((0 . "*TEXT")))
;...
)
(if sst (command "chprop" sst "" "la" TXT "")))
;....
)

命令: !txt "11"
命令: !co1
1
命令: !SST nil
为何选择集变成NIL了呢？
单独操作又可以呢：
命令: (setq
(_> sst (ssget "X" '((0 . "*TEXT")))
(_> ;...
(_> )
<Selection set: 62>

命令: (if sst (command "chprop" sst "" "la" TXT "")))
nil
nil
nil
nil
nil

yy5heng

能否帖出全部？
单单那个选集的操作可以进行的，或者你重新开cad运行一次可以通过。

userzhluserzhl

下面是原文件，请指教一下：
(defun MLA  (layname laycolor)
(SETVAR "CMDECHO" 0)
(setq acadobject1   (vlax-get-acad-object)
       acaddocument1 (vla-get-activedocument acadobject1)
       mspace1         (vla-get-modelspace acaddocument1))
(setq LayerSel (vla-get-Layers AcadDocument1))
(setq LayerObj (vla-add LayerSel layname))
(if (/= nil (tblsearch "layer" layname))
  (progn
     (vla-put-activelayer AcadDocument1 LayerObj)
     (if (/= nil laycolor)
      (vla-put-color LayerObj laycolor)))
  (progn
     (vla-get-activelayer AcadDocument1 LayerObj)
     (if (/= nil laycolor)
      (vla-put-color LayerObj laycolor)))))
(defun GG ()
(setq dcl_id (load_dialog "tcgz.dcl"))
(new_dialog "tcgz" dcl_id)
(if (= txt nil)
      (set_tile "txt" "TEXT")
      (set_tile "txt" txt))
(if (= dim nil)
      (set_tile "dim" "DIM")
      (set_tile "dim" dim))
(if (= txtcolor nil)
      (set_tile "txtcolor" "3")
      (set_tile "txtcolor" txtcolor))
(if (= dimcolor nil)
      (set_tile "dimcolor" "6")
      (set_tile "dimcolor" dimcolor))
(action_tile "txt" "(setq txt $value)")
(action_tile "dim" "(setq dim $value)")
(action_tile "txtcolor" "(setq txtcolor $value)")
(action_tile "dimcolor" "(setq dimcolor $value)")
(action_tile "cancel" "(done_dialog 0)")
(action_tile "accept" "(get_w)(done_dialog 1)")
(setq next (start_dialog))
(cond
((= next 01)(c:malay))
))
(defun get_w()
   (setq txt (get_tile "txt"))
   (setq dim (get_tile "dim"))
   (setq txtcolor (get_tile "txtcolor"))
   (setq dimcolor (get_tile "dimcolor"))
)
(defun DIY ()
      (setq txt "TEXT")
      (setq dim "DIM")
      (setq txtcolor "3")
      (setq dimcolor "6")
(GG)
)
(DEFUN c:malay (/ sst ssd ssl ssh ssx sss sxs xxx ssp)
;(setq img1 img11)
(mla txt txtcolor)
(mla dim dimcolor)
;以上的操作都能正常运行，但到了下面归类图层就不行了，帮我看看，还有就是默认值是怎么输入对话框的？(即：如果key="txt"的值不是"TEXT"，我怎样把"txt"的值改成"TEXT"？)
(setq
sst (ssget "X" '((0 . "*TEXT")))
ssd (ssget "X" '((0 . "DIMENSION")))
)
(if sst (command "chprop" sst "" "la" txt ""))
(if ssd (command "chprop" ssd "" "la" dim ""))
)

dandee

(DEFUN c:malay (/ sst)
改为(DEFUN c:malay ( )

userzhluserzhl

楼上，我试过了，也不行呀

zml84

为便于讨论，将楼主的代码整理后放于下：

2. 
   
3. ;;===================================================
   
4. (vl-load-com)
   
5. ;;===================================================
   
6. (defun MLA (layname laycolor)
   
7.   (SETVAR "CMDECHO" 0)
   
8.   (setq        acadobject1   (vlax-get-acad-object)
   
9.         acaddocument1 (vla-get-activedocument acadobject1)
   
10.         mspace1              (vla-get-modelspace acaddocument1)
    
11.   )
    
12.   (setq LayerSel (vla-get-Layers AcadDocument1))
    
13.   (setq LayerObj (vla-add LayerSel layname))
    
14.   (if (/= nil (tblsearch "layer" layname))
    
15.     (progn
    
16.       (vla-put-activelayer AcadDocument1 LayerObj)
    
17.       (if (/= nil laycolor)
    
18.         (vla-put-color LayerObj laycolor)
    
19.       )
    
20.     )
    
21.     (progn
    
22.       (vla-get-activelayer AcadDocument1 LayerObj)
    
23.       (if (/= nil laycolor)
    
24.         (vla-put-color LayerObj laycolor)
    
25.       )
    
26.     )
    
27.   )
    
28. )
    
29. ;;===================================================
    
30. (defun GG ()
    
31.   (setq dcl_id (load_dialog "tcgz.dcl"))
    
32.   (new_dialog "tcgz" dcl_id)
    
33.   (if (= txt nil)
    
34.     (set_tile "txt" "TEXT")
    
35.     (set_tile "txt" txt)
    
36.   )
    
37.   (if (= dim nil)
    
38.     (set_tile "dim" "DIM")
    
39.     (set_tile "dim" dim)
    
40.   )
    
41.   (if (= txtcolor nil)
    
42.     (set_tile "txtcolor" "3")
    
43.     (set_tile "txtcolor" txtcolor)
    
44.   )
    
45.   (if (= dimcolor nil)
    
46.     (set_tile "dimcolor" "6")
    
47.     (set_tile "dimcolor" dimcolor)
    
48.   )
    
49.   (action_tile "txt" "(setq txt $value)")
    
50.   (action_tile "dim" "(setq dim $value)")
    
51.   (action_tile "txtcolor" "(setq txtcolor $value)")
    
52.   (action_tile "dimcolor" "(setq dimcolor $value)")
    
53.   (action_tile "cancel" "(done_dialog 0)")
    
54.   (action_tile "accept" "(get_w)(done_dialog 1)")
    
55.   (setq next (start_dialog))
    
56.   (cond
    
57.     ((= next 01) (c:malay))
    
58.   )
    
59. )
    
60. ;;===================================================
    
61. (defun get_w ()
    
62.   (setq txt (get_tile "txt"))
    
63.   (setq dim (get_tile "dim"))
    
64.   (setq txtcolor (get_tile "txtcolor"))
    
65.   (setq dimcolor (get_tile "dimcolor"))
    
66. )
    
67. ;;===================================================
    
68. (defun DIY ()
    
69.   (setq txt "TEXT")
    
70.   (setq dim "DIM")
    
71.   (setq txtcolor "3")
    
72.   (setq dimcolor "6")
    
73.   (GG)
    
74. )
    
75. ;;===================================================
    
76. (DEFUN c:malay (/ sst ssd ssl ssh ssx sss sxs xxx ssp)
    
77.                                         ;(setq img1 img11)
    
78.   (mla txt txtcolor)
    
79.   (mla dim dimcolor)
    
80.   (setq
    
81.     sst        (ssget "X" '((0 . "*TEXT")))
    
82.     ssd        (ssget "X" '((0 . "DIMENSION")))
    
83.   )
    
84.   (if sst
    
85.     (command "chprop" sst "" "la" txt "")
    
86.   )
    
87.   (if ssd
    
88.     (command "chprop" ssd "" "la" dim "")
    
89.   )
    
90. )
    
91. ;;===================================================
    

<br /> ;;===================================================<br /> (vl-load-com)<br /> ;;===================================================<br /> (defun MLA (layname laycolor)<br />   (SETVAR "CMDECHO" 0)<br />   (setq        acadobject1   (vlax-get-acad-object)<br />         acaddocument1 (vla-get-activedocument acadobject1)<br />         mspace1              (vla-get-modelspace acaddocument1)<br />   )<br />   (setq LayerSel (vla-get-Layers AcadDocument1))<br />   (setq LayerObj (vla-add LayerSel layname))<br />   (if (/= nil (tblsearch "layer" layname))<br />     (progn<br />       (vla-put-activelayer AcadDocument1 LayerObj)<br />       (if (/= nil laycolor)<br />         (vla-put-color LayerObj laycolor)<br />       )<br />     )<br />     (progn<br />       (vla-get-activelayer AcadDocument1 LayerObj)<br />       (if (/= nil laycolor)<br />         (vla-put-color LayerObj laycolor)<br />       )<br />     )<br />   )<br /> )<br /> ;;===================================================<br /> (defun GG ()<br />   (setq dcl_id (load_dialog "tcgz.dcl"))<br />   (new_dialog "tcgz" dcl_id)<br />   (if (= txt nil)<br />     (set_tile "txt" "TEXT")<br />     (set_tile "txt" txt)<br />   )<br />   (if (= dim nil)<br />     (set_tile "dim" "DIM")<br />     (set_tile "dim" dim)<br />   )<br />   (if (= txtcolor nil)<br />     (set_tile "txtcolor" "3")<br />     (set_tile "txtcolor" txtcolor)<br />   )<br />   (if (= dimcolor nil)<br />     (set_tile "dimcolor" "6")<br />     (set_tile "dimcolor" dimcolor)<br />   )<br />   (action_tile "txt" "(setq txt $value)")<br />   (action_tile "dim" "(setq dim $value)")<br />   (action_tile "txtcolor" "(setq txtcolor $value)")<br />   (action_tile "dimcolor" "(setq dimcolor $value)")<br />   (action_tile "cancel" "(done_dialog 0)")<br />   (action_tile "accept" "(get_w)(done_dialog 1)")<br />   (setq next (start_dialog))<br />   (cond<br />     ((= next 01) (c:malay))<br />   )<br /> )<br /> ;;===================================================<br /> (defun get_w ()<br />   (setq txt (get_tile "txt"))<br />   (setq dim (get_tile "dim"))<br />   (setq txtcolor (get_tile "txtcolor"))<br />   (setq dimcolor (get_tile "dimcolor"))<br /> )<br /> ;;===================================================<br /> (defun DIY ()<br />   (setq txt "TEXT")<br />   (setq dim "DIM")<br />   (setq txtcolor "3")<br />   (setq dimcolor "6")<br />   (GG)<br /> )<br /> ;;===================================================<br /> (DEFUN c:malay (/ sst ssd ssl ssh ssx sss sxs xxx ssp)<br />                                         ;(setq img1 img11)<br />   (mla txt txtcolor)<br />   (mla dim dimcolor)<br />   (setq<br />     sst        (ssget "X" '((0 . "*TEXT")))<br />     ssd        (ssget "X" '((0 . "DIMENSION")))<br />   )<br />   (if sst<br />     (command "chprop" sst "" "la" txt "")<br />   )<br />   (if ssd<br />     (command "chprop" ssd "" "la" dim "")<br />   )<br /> )<br /> ;;===================================================<br />

首先从主函数malay开始看起，
[PHP]
  (mla txt txtcolor)
  (mla dim dimcolor)
[/PHP]
这两句中有四个变量，不知从何而来，希望楼主能本着坦诚交流的心态将完整部分拿出来，以便进一步的讨论。

userzhluserzhl

不是从这里来的吗?:
(defun get_w ()
  (setq txt (get_tile "txt"))
  (setq dim (get_tile "dim")))
贴出来的已经是完整的了,只是还有一个对话框,我就是不知道错在哪里或是少了些什么,所以才请教你们,希望能帮我解决

zml84

楼主的这一堆代码运行顺序是什么？也就是说以哪一个开始引发？
这样才好从前向后排查。

libo2000

先测试下改改变量名称，再查查每个子函数的变量是否都定义为局部变量。
俺经常遇到这样的问题。
另外全局变量尽量长一点，特别一点，要不很容易和别的变量重复，产生意外的变化。

yy5heng

粗粗阅览源码：
1、楼主的程序根本不能调用对话框，若DIY是初始化，则：
(DEFUN c:malay (/ sst ssd ssl ssh ssx sss sxs xxx ssp)
  (vl-load-com)
  (DIY);_此行增加后，程序可运行，且无需对话框
  ;;(setq img1 img11)
  (mla txt txtcolor)
  (mla dim dimcolor)
  ......
2、楼主本意是要建立两个层，对话框（我也没见对话框源文件）中的确定按钮，将是个无穷循环（点“取消”可以退出；
3、对话框加载后最好能检查是否成功。



ps：个人感觉，不是很华丽的程序都不必要用这种对话框的形式。