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

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

我搜索非常紧急的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

第一排看起来像什么？

使用类似的方法检索值

copy

(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从许多数据仓库导出数据

发表回复

精选推荐