CAD表格导出为excel表格

rcdl · 发表于 2023-12-12 09:23

感谢分享

luoyiandy · 发表于 2023-12-18 13:34

学习一下

wangtianguo007 · 发表于 2023-12-19 19:50

楼主好人啊

陈尼袂 · 发表于 2023-12-20 09:35

感谢感谢。

18906983808 · 发表于 2023-12-20 09:44

11111111

yaoyao288 · 发表于 2023-12-20 09:55

666666666

bbam · 发表于 2024-1-3 23:12

(defun c:tt ();;;;; (setq path (getfiled "选择保存位置" (xlr_get_dwg) "csv" 1)) (setq csv_fp (open path "w")) (write-line (strcat "编号" "," "X坐标" "," "Y坐标" "," "高程") csv_fp ) (princ) (setq num 0) (while (setq pt (getpoint "\n 指定点<退出>")) (setq num (1+ num)) (xlr_make_point pt "编号") (xlr_put_text (strcat " "(rtos num 2 0)) pt 0 0 "编号" 7) (setq x (rtos (nth 0 pt) 2)) (setq y (rtos (nth 1 pt) 2)) (setq z (rtos (nth 2 pt) 2)) (setq ztxx (strcat (rtos num 2 0) "," x "," y "," z)) (write-line ztxx csv_fp) (princ) ) (close csv_fp) (alert "提取完成！！") )

要优雅 · 发表于 2024-1-5 16:47

谢谢谢谢

zr0326 · 发表于 2024-1-20 16:45

11111111111111111

guoqi5630881 · 发表于 2024-2-19 18:05

谢谢分享

[软件] CAD表格导出为excel表格