文本到excel工作表

Peter K · 发表于 2022-7-6 07:07:11

是的，我已将其设置为附加到现有文件-如有必要，可以更改

我从没听说过PEBCAK。。。必须查一下-很棒的短语

Lee Mac · 发表于 2022-7-6 07:10:11

不，不，不。不需要改变。这正是我理解她想要的。
尤其是当我将其与我在
http://www.cadtutor.net/forum/showthread.php?t=9942

我还将保留Commandobill中的一个，因为它更容易在一个图形中检查某些条件/元素/值。

我（和她）再次感谢你们两位。

祝你过得愉快。

Peter K · 发表于 2022-7-6 07:10:49

嘿，李。我运行了你的代码，它似乎没有遍历打开的图形并创建选择集，它所做的只是为每个打开的图形创建相同的选择集。有点像是在重复，而不去其他打开的图纸。

Commandobill · 发表于 2022-7-6 07:16:20

我也注意到了这一点，但只要在运行例程时只打开一个绘图，它就会工作。

考虑到预期的目的是在一大堆图纸上使用它，那么更多人可以同时打开所有图纸，我对此没有任何问题。

最终用户在使用它时只需记住这一点作为规则之一。这样更好，因为这样就不可能添加不希望包含但由于其他原因而打开的图形元素。最糟糕的情况是，相同元素的多个实例将添加到。csv。

Peter K · 发表于 2022-7-6 07:18:05

如果所有的文本对象都在模型空间中，你想使用李的技巧，从所有打开的DWG中获取所有对象，你可以这样做

copy


(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))