请教以下关于vla-sendcommand参数为变量问题

Five丨遗忘

请教各位大佬，vla-sendcommand 的参数如何写才能识别变量？下边这个程序试调了好久还是无法运行，烦请各位大佬帮忙看看。

2. (defun c:test1 ()
   
3.         (vl-load-com)
   
4.         (setvar "filedia" 0)
   
5.         (setvar "CMDECHO" 0)
   
6.         (setq ss (ssget))
   
7.         (setq i 0)
   
8.         (while (setq e (ssname ss i))
   
9.                 (setq tcname (cdr (assoc 8 (entget e))));获取图元的图层名称
   
10.                 (setq obj (vlax-ename->vla-object e))
    
11.                 (setq *doc (vla-get-activedocument(vlax-get-acad-object)))
    
12.                         (cond
    
13.                                 ((= tcname "水田")(vla-sendcommand *doc "tian 211100 \n obj \n"))
    
14.                                 ((= tcname "旱地")(vla-sendcommand *doc "tian 211200 \n obj \n"))  
    
15.         (T (ALERT "请检查图层命名是否正确!(例：地类--水田)"))
    
16.                         )
    
17.         (setq i (1+ i))
    
18.         )
    
19.         (setvar "filedia" 1)
    
20.         (setvar "CMDECHO" 1)
    
21. )
    
22. 
    

(defun c:test1 ()<br />         (vl-load-com)<br />         (setvar "filedia" 0)<br />         (setvar "CMDECHO" 0)<br />         (setq ss (ssget))<br />         (setq i 0)<br />         (while (setq e (ssname ss i))<br />                 (setq tcname (cdr (assoc 8 (entget e))));获取图元的图层名称<br />                 (setq obj (vlax-ename->vla-object e))<br />                 (setq *doc (vla-get-activedocument(vlax-get-acad-object)))<br />                         (cond<br />                                 ((= tcname "水田")(vla-sendcommand *doc "tian 211100 \n obj \n")) <br />                                 ((= tcname "旱地")(vla-sendcommand *doc "tian 211200 \n obj \n"))  <br />         (T (ALERT "请检查图层命名是否正确!(例：地类--水田)"))<br />                         )<br />         (setq i (1+ i))<br />         )<br />         (setvar "filedia" 1)<br />         (setvar "CMDECHO" 1)<br /> )<br /> <br />

其中“tian” 是CASS的一个地类填充命令，可直接调用，“211100”是水田地类编码。以下是附件：
权限太低，附件无法上传，截图描述附件如下截图也无法上传
文字描述一下：
几个普通的闭合多段线，一部分在 水田 图层，一部分在 旱地 图层，仅此。

Five丨遗忘

有说在变量前加!的，试过了，不行
(vla-sendcommand *doc "tian 211100 \n !obj \n")

菜卷鱼

没用过 vla-sendcommand  ，先试一试
没有tian 命令，试不出来

Five丨遗忘

菜卷鱼 发表于 2021-1-18 09:25
没用过 vla-sendcommand  ，先试一试
没有tian 命令，试不出来

谢谢回复，晓东论坛大佬帮忙解决啦

andyding

Five丨遗忘 发表于 2021-1-19 17:21
谢谢回复，晓东论坛大佬帮忙解决啦

大神，是怎么解决的，请指点，我现在碰到同样的问题。晓东现在进不去了。