社区 › VB › 按在Autocad中选择的顺序将文本提取到excel

Eloquintet 发表于 2007-8-24 14:39:08

按在Autocad中选择的顺序将文本提取到excel

我的图纸中有很多阴影尺寸作为文本，我不需要在excel中复制，所以我&#039；我想知道是否有办法提取这个并按我选择的顺序保存它？我希望我的电子表格有一列表示宽度，一列表示高度，因此如果数字可以像下图那样放置，那就太好了：width&nbsp；高度96&nbsp&nbsp&nbsp&nbsp&nbsp；200&nbsp&nbsp&nbsp&nbsp&nbsp；这可行吗？

ronjonp 发表于 2007-8-24 14:42:13

任何事情都是可行的&nbsp；我可能会有类似kickin#039；周围&nbsp；让我查一下。

Eloquintet 发表于 2007-8-24 14:49:05

丹，这可能对你有帮助
这里有一个从上到下将文本导出到文本文件的程序：
(defun c:textout (/ ss lst fn fno txt)
(setq        ss (mapcar 'vlax-ename->vla-object
                   (vl-remove-if
                     'listp
                     (mapcar 'cadr
                             (ssnamex
                             (ssget '((0 . "TEXT")))
                             )
                     )
                   )
           )
)
(if ss
    (progn
      (setq
        lst (mapcar '(lambda (x)
                     (cons (vlax-get x 'InsertionPoint)
                             (vlax-get x 'TextString)
                     )
                     )
                  ss
          )
        lst (vl-sort lst
                     (function
                     (lambda (e1 e2)
                       ( 0 Then
   If Err.Description Like "*failed" Then
   MsgBox "Interrupted by user"
   Else
   MsgBox Err.Description
   End If
   Resume Exit_Sub
   End If
   
End Sub

~&039；J#039~

查看完整版本: 按在Autocad中选择的顺序将文本提取到excel