是的，我已将其设置为附加到现有文件-如有必要，可以更改
我从没听说过PEBCAK。。。必须查一下-很棒的短语 不，不，不。不需要改变。这正是我理解她想要的。
尤其是当我将其与我在
http://www.cadtutor.net/forum/showthread.php?t=9942
我还将保留Commandobill中的一个，因为它更容易在一个图形中检查某些条件/元素/值。
我（和她）再次感谢你们两位。
祝你过得愉快。 嘿，李。我运行了你的代码，它似乎没有遍历打开的图形并创建选择集，它所做的只是为每个打开的图形创建相同的选择集。有点像是在重复，而不去其他打开的图纸。 我也注意到了这一点，但只要在运行例程时只打开一个绘图，它就会工作。
考虑到预期的目的是在一大堆图纸上使用它，那么更多人可以同时打开所有图纸，我对此没有任何问题。
最终用户在使用它时只需记住这一点作为规则之一。这样更好，因为这样就不可能添加不希望包含但由于其他原因而打开的图形元素。最糟糕的情况是，相同元素的多个实例将添加到。csv。 如果所有的文本对象都在模型空间中，你想使用李的技巧，从所有打开的DWG中获取所有对象，你可以这样做
(defun c:txt2xl (/ fPath fName ofile doc ss)
(vl-load-com)
(setq fPath "C:\\")
(setq fName "test.csv")
(if (vl-file-directory-p fPath)
(progn
(setq ofile (open (strcat fPath fName) "a"))
(vlax-for doc (vla-get-Documents
(vlax-get-Acad-Object))
(if (setq ss (ssget "_X" '((0 . "MTEXT,TEXT"))))
(mapcar
(function
(lambda (x)
(write-line x ofile)))
(mapcar
(function
(lambda (x)
(cdr (assoc 1 (entget x)))))
(mapcar 'cadr (ssnamex ss)))))
(setq ss nil))
(close ofile))
(princ "\n<!> Filename Does not Refer to Valid Directory <!>"))
(princ))
编辑：第100篇文章。。。。含糖的 英雄联盟
首先，她别无选择，只能做一些严重而乏味的工作，这将花费数小时，并且有很多可能产生错误，现在。。。。她有太多的选择余地。
Commandobill，您的例程版本已复制、保存并存档，以供将来参考。谢谢 （编辑：祝贺你第100个帖子） 谢谢比尔，
我没有测试我的，所以它只是理论上的，但谢谢你改进它
哈哈，老实说，我有点期待你回来告诉我，遍历模型空间中的所有对象并测试它们是否是文本对象不是一件好事。。。哈哈，欢迎你。我还以为你没有测试过我读了你其他关于你电脑的帖子=/
你修好了吗？
页:
1
[2]