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

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

我的图纸中有很多阴影尺寸作为文本，我不需要在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

丹，这可能对你有帮助
这里有一个从上到下将文本导出到文本文件的程序：

copy

(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

发表回复

精选推荐