将尺寸从dwg提取到

shamsam1 · 发表于 2022-7-6 11:01:11

我想将所有尺寸值从dwg提取到excel。请帮我学习vb或vba。我有vb。6提取块属性的代码。我希望代码只附加维度：shifty：

Cad64 · 发表于 2022-7-6 11:06:02

我已将您的问题转移到“Autolisp，VBA自定义”部分。

filan1a · 发表于 2022-7-6 11:10:11

你为什么需要这个？？

如果你想对所有维度求和，我有一个lisp。
告诉我你是否需要那个代码。

shamsam1 · 发表于 2022-7-6 11:13:16

我有大约3000张dwg图纸。因此，我们希望在excel中提取所有尺寸标注值，以便有助于我们根据尺寸显示图形（dwg）。我想扩展blcok属性。

wel我对lisp的了解是Nill。请帮助我使用vba代码或vb。lisp可以转换为vb或vba吗。

fuccaro · 发表于 2022-7-6 11:14:00

是否有助于程序以CSV格式导出数据？它可以在Excel中打开。
试试看：

copy

;  Save the Dimension's values to a CSV file
;  [email="mfuccaro@hotmail.com"]mfuccaro@hotmail.com[/email]
;  2008 May
(defun dimexp( / s tx fn i d dl m file)
 (setq s (ssget "X" (list '(0 . "DIMENSION")))
tx nil
fn (strcat (getvar "dwgprefix")
    (substr (getvar "dwgname")
     1
     (- (strlen (getvar "dwgname")) 3)
     )
    "\CSV"))
 (repeat (setq i (sslength s))
   (setq d (ssname s (setq i (1- i)))
  dl (entget d)
  m (cdr (assoc 42 dl)))
   (if (not (member m tx)) (setq tx (cons m tx)))
   )
 (setq s nil)
 (if tx (progn
   (setq file (open fn "w"))
   (foreach x tx
     (princ x file)
     (princ "," file)
     )
   (close file)
   )
   )
 )