社区 › Auto Lisp › lisp从许多数据仓库导出数据

wrha 发表于 2022-7-6 08:45:01

lisp从许多数据仓库导出数据

我搜索非常紧急的lisp帮助我将特定数据从许多dwg文件导出到excel工作表。
谢谢

Organic 发表于 2022-7-6 09:01:44

什么样的“特定数据”上载示例DWG和完整细节。

wrha 发表于 2022-7-6 09:04:57

我对表格中的“特定数据”进行排序示例我在许多dwg图形中的表格中有面积值，我想将该值从许多图形导出到excel表格。

Organic 发表于 2022-7-6 09:17:31

那么祝你好运。除非你提供更多的细节和例子，否则每个人都只会猜测你真正想要什么。

wrha 发表于 2022-7-6 09:20:25

我只想将所有多行文字、文字、尺寸值从许多dwg扩展到excel工作表。

pBe 发表于 2022-7-6 09:28:07

第一排看起来像什么？
 
使用类似的方法检索值
 
(defun c:test ( / aDoc etyp ss)
(vl-load-com)
(setq aDoc (vla-get-ActiveDocument (vlax-get-acad-object)))
(if (ssget "_X" '((0 . "*TEXT,DIMENSION")))

   (vlax-for itm (setq ss (vla-get-ActiveSelectionSet aDoc))
    (setq etyp (vla-get-objectname itm))
    (cond
   ((wcmatch etyp "AcDb*Text")
   (princ (strcat "\n" (substr etyp 5) "\t" (vla-get-textstring itm))))
   ((wcmatch etyp "AcDb*Dimension")
   (princ (strcat "\n" (substr etyp 5) "\t" (rtos (vla-get-Measurement itm) 2 2))))
   )
   )

(vla-delete ss)
)(princ)
)

wrha 发表于 2022-7-6 09:38:42

纠正我，如果我错了，Lisp程序计算尺寸。

pBe 发表于 2022-7-6 09:50:17

 
 
（vla获取测量itm）

查看完整版本: lisp从许多数据仓库导出数据