[求助]：如何用lisp读出当前图形中层、字类型、尺寸类型等？

shisj

在绘图中经常会用到层、文字类型，尺寸类型，在绘图中能够很方便地查询到，但是用lisp怎样获得，我就不太清楚了，求教各位老大了。

aidraft

tblsearch

shisj

tblsearch                在指定的符号表中搜索符号名
(tblsearch table-name symbol [setnext])
参数：                        table-name         字符串，表示要搜索的符号表。该参数不区分大小写。
symbol                 字符串，表示要搜索的符号表。该参数不区分大小写。
setnext                 如果指定该参数且其值不为 nil，tblnext 函数的条目计数器就会被调整，这样，随后调用 tblnext 函数时，它就会返回由该 tblsearch 调用所返回的那个条目之后的条目。否则，tblsearch 不影响 tblnext 检索的条目的顺序。
返回值：                        如果 tblsearch 函数找到了符号名为指定符号名的一个条目，它就会以与 tblnext 函数相同的格式返回该条目。如果没有找到这样的条目，它返回 nil。
样例
下面的命令搜索名为“standard”的文字样式：
命令：(tblsearch "style" "standard")
((0 . "STYLE") (2 . "STANDARD") (70 . 0) (40 . 0.0) (41 . 1.0) (50 . 0.0) (71 . 0) (42 . 0.3) (3 . "txt") (4 . ""))

只能搜索已知的名称，每张图中的样式是不一样的，tblsearch 好像达不到这个目的。

aidraft

tblnext

shisj

谢谢aidraft  ！
tblnext 好像能够实现这个功能，但是一个一个的查下去好麻烦，有没有简单一点的方法啊？

Free-Lancer

2. 
   
3. ;;;功  能  返回包含在指定符号表中的所有元素
   
4. ;;;参  数  一个符号表名称
   
5. ;;;示  例  (table "block")
   
6. ;;;作  者  Michael Puckett
   
7. (defun table (s / d r)
   
8.   (while (setq d (tblnext s (null d)))
   
9.     (setq r (cons (cdr (assoc 2 d)) r))
   
10.   )
    
11.   (reverse r)
    
12. )

<br /> ;;;功  能  返回包含在指定符号表中的所有元素<br /> ;;;参  数  一个符号表名称<br /> ;;;示  例  (table "block")<br /> ;;;作  者  Michael Puckett<br /> (defun table (s / d r)<br />   (while (setq d (tblnext s (null d)))<br />     (setq r (cons (cdr (assoc 2 d)) r))<br />   )<br />   (reverse r)<br /> )

lijiao

用VLA－GET－函数。

shisj

谢谢了，我明白了

yjtdkj

关注一下，我也要学习学习，我对群码还不太熟悉，请大家多多指教!!