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

将尺寸从dwg提取到

我想将所有尺寸值从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中打开。
试试看：
;Save the Dimension's values to a CSV file
;mfuccaro@hotmail.com
;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)
   )
   )
)
只需稍作调整，即可使程序一次性处理目录中包含的所有图形。
这有帮助吗？

shamsam1 发表于 2022-7-6 11:20:07

谢谢你的帮助。但我对Lisp的了解是Nillll。
请指导我如何运行Lisp程序

shamsam1 发表于 2022-7-6 11:22:29

我们一定给我发代码。还帮助我如何运行Lisp程序

PS_Port 发表于 2022-7-6 11:26:04

看看这里
 
http://www.cadtutor.net/faq/questions/28/How+do+I+use+an+AutoLISP+routine%3F

fuccaro 发表于 2022-7-6 11:27:51

在这里还可以看到如何批量处理文件：http://www.cadtutor.net/forum/showthread.php?t=22637

shamsam1 发表于 2022-7-6 11:32:33

我得到以下信息
未知命令“D:\DRAWINGS\SM\1-003666.ZIP”。按F1键获取帮助。
; 错误：输入上有额外的右括号
页: [1] 2
查看完整版本: 将尺寸从dwg提取到