求大神改进AUTOLISP代码使获取的点的信息通过excel表格形式输出

camera.Q · 发表于 2017-12-5 19:59:58

现在通过一下代码和e派工具箱插件我可以提取文字起点的坐标和角度，但是我想把这些信息通过excel表格的形式输出，请问在一下代码中如何改进。谢谢
(defun c:tt ()
  (if (setq ss (ssget "X" '((0 . "text"))))
(setq lst (mapcar '(lambda (x) (mapcar 'cadr (xyp-Get-DXFs x '(1 10 50)))) (xyp-Ss2List ss)))
  )
  (princ lst)
  (princ)
)

xyp1964 · 发表于 2017-12-5 23:45:00

(defun c:tt ()
(if (setq ss (ssget "X" '((0 . "text"))))
(setq lst (mapcar '(lambda (x) (mapcar 'cadr (xyp-Get-DXFs x '(1 10 50))))
(xyp-Ss2List ss)
)
aa (xyp-Lst2xls lst)
)
)
(princ)
)

camera.Q · 发表于 2017-12-6 09:11:17

xyp1964 发表于 2017-12-5 23:45

您好，谢谢您的帮忙，但是我把您的代码复制粘贴到编辑器，但是出来的只有一张空白的excel，请问怎么改进啊。xiexie

xyp1964 · 发表于 2017-12-6 12:28:44

(defun c:tt ()
(if (setq ss (ssget "X" '((0 . "text"))))
(setq lst (mapcar '(lambda (x) (mapcar 'cadr (xyp-Get-DXFs x '(1 10 50))))
(xyp-Ss2List ss)
)
lst (mapcar '(lambda (x) (list (car x) (xyp-2str (cadr x)) (caddr x)))
lst
)
aa (xyp-Lst2xls (cons '("文本内容" "起点坐标" "文本角度") lst))
)
)
(princ)
)

qyming · 发表于 2017-12-6 15:54:06

xyp-Lst2xls 函数

yangchao2005090 · 发表于 2017-12-15 18:54:48

xyp1964 发表于 2017-12-6 12:28

不能用啊不能用啊

账号		自动登录	找回密码
密码			注册

[源码] 求大神改进AUTOLISP代码使获取的点的信息通过excel表格形式输出