Slim© 发表于 2004-6-27 12:01:02

B、 我会定期检查图纸是否有空文本。

这本身不是一个标准,而是一个实用的建议
空文本是一个空字符串,或者只包含“白色”字符(制表符、空格等)。它可以存在于图形中,因为一些运算符通过在编辑器中打开并靠在空格栏上来“删除”文本。虽然这听起来是假的,但多年来我一直看到这种情况发生,它从未停止让我感到惊讶/烦恼,极端情况下超过70000个空文本实体!我真希望我是在开玩笑!症状是加载给定内容缓慢,缩放扩展没有意义等。
快速测试:打开QTEXT,然后执行缩放扩展;每个空间或布局选项卡。到处都是奇怪的小盒子")(-4 . "")(-4 . "and>"))))
(progn
    (command"_erase"TXT"")
    (princ(strcat"\n"(itoa(sslength TXT))" nul text strings deleted. "))
   )
(princ"\nNo nul text strings found. "))
(setq BLK(tblnext"BLOCK"T)NAMES nil)
(while BLK
    (if(=(cdr(assoc 0(entget(cdr(assoc -2 BLK)))))"ENDBLK")
    (progn
      (if(setq NB(ssget "X" (list(assoc 2 BLK))))
      (command"_erase"NB"")
       )
    (setq NAMES(cons(cdr(assoc 2 BLK))NAMES))
   )
   )
(setq BLK(tblnext"BLOCK"))
)
(if NAMES
    (progn(textscr)
    (princ"\nNul blocks found and need purging: ")
    (foreach X NAMES(princ"\n    ")(princ X))
   )
(princ"\nNo nul blocks found. ")
)
(princ)
)
(c:DelNul)

Keith™ 发表于 2004-6-27 12:11:52

我使用的一个效果很好的方法,
打开所有图层并确保所有图层都解冻。
缩放至范围
全部擦除,但在完成拭除命令之前,请移除并选择覆盖图形整个区域的窗口。
这将删除所有空文本条目。
页: [1]
查看完整版本: B、 我会定期检查图纸是否有空文本。