[求助]：如何用LISP保存及读取图层状态？

550066

用LISP能保存及读取图层状态吗？最好能保存多个图层状态，把状态保存到文件中？

oyxx_1023

当然可以.
读取组码中相关数据.保存到外部文件,应该不难.

egos

用ExpressToos中的图层工具应该比较方便保存

brainstorm

如何读取组码中相关数据？读取实体用entget，读取图层用哪个？

Underway

Command: (tblsearch "Layer" "0")
((0 . "LAYER") (2 . "0") (70 . 0) (62 . 7) (6 . "Continuous"))

550066

如何做倒随图保存？ExpressToos把状态保存在什么地方了？

oyxx_1023

随图保存?
图层难道不是随图保存的吗?

2. 
   
3. ;;;得到图层列表
   
4. (defun getlayerlist (/ lli)
   
5.   (setvar "cmdecho" 0)
   
6.   (setq a (tblnext "layer" t))
   
7.   (setq n 1)
   
8.   (setq lli (list))
   
9.   ;(princ "图层列表:\n")
   
10.   (while a
    
11.     (princ (cdr (nth 1 a)))
    
12.     (setq lli (append lli (list (cdr (nth 1 a)))))
    
13.     (princ "\n")
    
14.     (setq n (1+ n))
    
15.     (setq a (tblnext "layer"))
    
16.    
    
17.   )
    
18.   ;(princ lli)
    
19.   (princ)
    
20. )
    
21. (princ)
    

<br /> ;;;得到图层列表<br /> (defun getlayerlist (/ lli)<br />   (setvar "cmdecho" 0)<br />   (setq a (tblnext "layer" t))<br />   (setq n 1)<br />   (setq lli (list))<br />   ;(princ "图层列表:\n")<br />   (while a<br />     (princ (cdr (nth 1 a)))<br />     (setq lli (append lli (list (cdr (nth 1 a)))))<br />     (princ "\n")<br />     (setq n (1+ n))<br />     (setq a (tblnext "layer"))<br />     <br />   )<br />   ;(princ lli)<br />   (princ)<br /> )<br /> (princ)<br />

小菜

图层状态，不是图层，楼上几位没理解？论坛上以前有过程序的

oyxx_1023

那就用VL.
VLA-GET-LAYERON
VLA-GET-FREEZE.

taner

http://www.xdcad.net/forum/showt ... 2431501#post2431501