利用API动态查询Ldata信息

brainstorm

;;;---main program----------------------------------------------------
;;;-------------------------------------------------------------------
;|最近在学习API，利用API写了个查询自定义Ldata的代码，程序针对天正的房见
及门窗对象，给天正自定义对象赋予Ldata信息，Newer版主说发个帖子，后来就
又把部分函数替换成api的了，我学的本来就是半拉可及的，代码比较乱，也比较
长... ...------------------------------------------------------------|;

1. (defun c:inquire_tchEntity (/ ret)
   
2. 
   
3.   ;;;-----------------------------------------------------------------
   
4.   ;;;-----------------------------------------------------------------
   
5. 
   
6.   (setq olderr *error*)
   
7.   (defun myerr (msg)   
   
8.     (setq *error* olderr)
   
9.     (xdrx_sysvar_pop)
   
10.     (xdrx_pointmonitor)
    
11.     (princ "\查询结束.")
    
12.     (princ)
    
13.   )
    
14.   (setq *error* myerr)
    
15.   (apply 'xdrx_sysvar_push '(("rollovertips" 0)("osmode" 0)))

(defun c:inquire_tchEntity (/ ret)<br /> <br />   ;;;-----------------------------------------------------------------<br />   ;;;-----------------------------------------------------------------<br /> <br />   (setq olderr *error*)<br />   (defun myerr (msg)    <br />     (setq *error* olderr)<br />     (xdrx_sysvar_pop)<br />     (xdrx_pointmonitor)<br />     (princ "\查询结束.")<br />     (princ)<br />   )<br />   (setq *error* myerr)<br />   (apply 'xdrx_sysvar_push '(("rollovertips" 0)("osmode" 0)))

完整代码及附图见附件，附图需要天正插件才能看到自定义实体

jxwfz19740724

具体干什么用的？看看。

qq1254582201

好东西，收藏了