[求助]：[0126]关于"tblsearch"判断线型式问题

tctabc

[求助]：[0126]关于"tblsearch"判断线型式问题

在判断上是否可以使用多字串方式呢?
如下:但是在带入时会发现多带了 ( ) 括号...不知道该怎样解决.
(setq LTY (append '(Hidden,HIDDEN2)))
(setq styleL (tblsearch "style" (lete)))
(if (= styleL nil)
(COMMAND "-linetype" "L" LTY "" "")

烦请各位高手可以帮忙解答一下
谢谢~

xyp1964

2. [FONT=courier new](defun c:test ()
   
3.   (setq LTY '("Hidden" "HIDDEN2"))
   
4.   (foreach n lty
   
5.     (if        (not(tblsearch "ltype" n))
   
6.       (COMMAND "-linetype" "L" n "" "")
   
7.     )
   
8.   )
   
9.   (princ)
   
10. )[/FONT]

[FONT=courier new](defun c:test ()<br />   (setq LTY '("Hidden" "HIDDEN2"))<br />   (foreach n lty<br />     (if        (not(tblsearch "ltype" n))<br />       (COMMAND "-linetype" "L" n "" "")<br />     )<br />   )<br />   (princ)<br /> )[/FONT]