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

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

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

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

我使用的一个效果很好的方法，
打开所有图层并确保所有图层都解冻。
缩放至范围
全部擦除，但在完成拭除命令之前，请移除并选择覆盖图形整个区域的窗口。
这将删除所有空文本条目。

[综合讨论] B、我会定期检查图纸是否有空文本。

发表回复

精选推荐

[综合讨论] B、 我会定期检查图纸是否有空文本。

发表回复

精选推荐

[综合讨论] B、我会定期检查图纸是否有空文本。