请问如何获取CAD文件wipeout遮罩的边框是否打开信息呢

ludaweb

如题，发现wipeout遮罩的边框是否打开是储存在cad文档中的，如何获取这个变量呢。
如果没有这个变量，能不能获取CAD命令行返回的数据呢，例如
下列命令运行行的信息<on>就说明文档中遮罩边框是打开的。
命令: wipeout 指定第一点或 [边框(F)/多段线(P)] <多段线>: f 输入模式 [开(ON)/关(OFF)] <ON>:

shh_188

2. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   
3. ;;获取区域覆盖（Wipeout）对象的边框开关状态
   
4. ;;Wipeout边框打开，返回1
   
5. ;;Wipeout边框关闭，返回0
   
6. ;;当前文件中不存在Wipeout对象，返回2
   
7. (defun GetWipeoutFrame (/ WipeoutVars return)
   
8.   (setq WipeoutVars (dictsearch (namedobjdict) "ACAD_WIPEOUT_VARS"))
   
9.   (if (NOT WipeoutVars)
   
10.     (setq return 2);;当前文件中不存在Wipeout对象，返回2
    
11.     (if (= (cdr (assoc 70 WipeoutVars)) 1)
    
12.       (setq return 1);;Wipeout边框打开，返回1
    
13.       (setq return 0);;Wipeout边框关闭，返回0
    
14.     )
    
15.   )
    
16.   return
    
17. )
    

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br /> ;;获取区域覆盖（Wipeout）对象的边框开关状态<br /> ;;Wipeout边框打开，返回1<br /> ;;Wipeout边框关闭，返回0<br /> ;;当前文件中不存在Wipeout对象，返回2<br /> (defun GetWipeoutFrame (/ WipeoutVars return)<br />   (setq WipeoutVars (dictsearch (namedobjdict) "ACAD_WIPEOUT_VARS"))<br />   (if (NOT WipeoutVars)<br />     (setq return 2);;当前文件中不存在Wipeout对象，返回2<br />     (if (= (cdr (assoc 70 WipeoutVars)) 1)<br />       (setq return 1);;Wipeout边框打开，返回1<br />       (setq return 0);;Wipeout边框关闭，返回0<br />     )<br />   )<br />   return<br /> )<br />

)

ludaweb

下面是晓东论坛里面的一个帖子
http://bbs.xdcad.net/thread-4040-1-1.html
下面贴出帖子内容，希望明经的大师们帮着看看这个存储wipeout边框是否显示的参数怎么用lisp读取呢。
xdrx_object_get 函数没有
[教学]：得到wipeout参数在命名对象词典的设置位置和用entmod修改方法的过程

zyun0169

list里面的信息就可以吧

ludaweb

shh_188 发表于 2016-9-14 15:16
)

谢谢大神。

zhaoqi415

不太明白是什么意思