Wesley_Amsterda 发表于 2022-7-5 22:15:22

文本到excel

大家好，
 
我有一个以z坐标为文本的图形。
我想导出所有文本对象及其x坐标和y坐标，并将文本内容用于z坐标。
 
找到附件中的示例。
 
我找不到任何关于网络搜索的东西。
Text2excel。图纸

MSasu 发表于 2022-7-5 22:29:39

请检查内置的数据提取命令。仅将其应用于文本实体，并保留位置X、位置Y和值属性。

Tharwat 发表于 2022-7-5 22:35:05

试试这个。
 

(defun c:Test (/ ss f o)
;;    Tharwat 05.11.2014             ;;
;;    Export Texts' values to Excel    ;;
(princ "\n << Select Texts to export to Excel : >>")
(if (and (setq ss (ssget '((0 . "TEXT")
                           )
                   )
          )
          (setq f (getfiled "Save as :" (getvar 'DWGPREFIX) "csv" 1))
   )
   (progn
   (setq o (open f "w"))
   (write-line
       "X-coordinate of text;Y-coordinate of text;Z-coordinate of text value"
       o
   )
   ((lambda (i / sn p e)
      (while (setq sn (ssname ss (setq i (1+ i))))
          (write-line
            (strcat
            (rtos
                (car (setq p (cdr (assoc 10 (setq e (entget sn))))))
                2
            )
            ";"
            (rtos (cadr p) 2)
            ";"
            (cdr (assoc 1 e))
            )
            o
          )
      )
      )
       -1
   )
   (close o)
   )
)
(princ)
)

Wesley_Amsterda 发表于 2022-7-5 22:42:38

嗨，塔瓦，
 
谢谢你的工具！
 
我错过了列表中的x和y坐标。
 
当做
卫斯理

Tharwat 发表于 2022-7-5 22:47:37

 
你说的是文本位置的X和Y吗？
 
展示你想要的最好的程序结果，让我一次完成。

Wesley_Amsterda 发表于 2022-7-5 22:52:56

嗨，塔瓦，
 
结果应该是这样的。
 

 
Thnx公司

Tharwat 发表于 2022-7-5 23:07:21

我更新了上面的程序，试试看，然后告诉我。

Wesley_Amsterda 发表于 2022-7-5 23:09:40

Thnks Tharwat！
 
效果很好！
 
当做
卫斯理

Tharwat 发表于 2022-7-5 23:20:14

 
不客气。
 
很乐意帮忙
页: [1]
查看完整版本: 文本到excel