求大神改进AUTOLISP代码使获取的点的信息通过excel表格形式输出
现在通过一下代码和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)
)
(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)
) xyp1964 发表于 2017-12-5 23:45
您好，谢谢您的帮忙，但是我把您的代码复制粘贴到编辑器，但是出来的只有一张空白的excel，请问怎么改进啊。xiexie (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)
) xyp-Lst2xls 函数 xyp1964 发表于 2017-12-6 12:28
不能用啊不能用啊
页:
[1]