如果DWG文件没有任何实体存在？

尘缘一生

如果一个DWG文件没有任何实体存在，用LISP 如何判定它？

cairunbin

你可以构造一个选择集，选择全部实体。
然后，判断一下实体数量，如果为0，那就是空图形了。

669423907

(if (ssget "x")

尘缘一生

成功！

(if (/= nil (ssget "_x"))   ;;;;;;如果图纸非空
        (if (/= nil (getcname "tpscale"))   ;;;;;;如果命令 tpscale 存在
                (progn
                        (setvar "dimlfac" 1) ;;;;;线性标注测量值天正均设置比例因子1:1
                        (setvar "dimscale" (/ 100 (getvar "dimlfac")));;;;;整体标注比例
                        (SETVAR "userr5" (/ 100 (getvar "dimlfac"))) ;;;;;;将整体绘图比例存储于：系统提供的  userr5变量中
                        (setq slbl (getvar "userr5"));;;;;整体绘图比例，本外挂全局变量为 userr5
                )
                (progn
                        (if (> (getvar "userr5") 0) ;;;;;判断全图绘图比例是否设置，没有则设置，仅设置一次
                                (progn
                                        (setq slbl (getvar "userr5"))
                                        (SETVAR "dimscale" (getvar "userr5"))
                                )
                                (htbl)
                        )
                )
        )
)

edata

entlast应该也可以。

Gu_xl

1. (if (> (vla-get-count
   
2.          (vlax-get-property
   
3.            (vla-get-ActiveDocument (vlax-get-acad-object))
   
4.            (if (= 1 (getvar 'CVPORT))
   
5.              'PaperSpace
   
6.              'ModelSpace
   
7.            )
   
8.          )
   
9.        )
   
10.        0
    
11.     ) ;_ 非空
    
12.   (progn
    
13.    
    
14.   )
    
15. )

(if (> (vla-get-count<br />          (vlax-get-property<br />            (vla-get-ActiveDocument (vlax-get-acad-object))<br />            (if (= 1 (getvar 'CVPORT))<br />              'PaperSpace<br />              'ModelSpace<br />            )<br />          )<br />        )<br />        0<br />     ) ;_ 非空<br />   (progn<br />     <br />   )<br /> )