求大神编写一个可以批量提取直线端点处点号的插件

idehua2017

大神编写一个可以批量提取直线端点处点号并按行写入txt文本的插件。

newer

1. (defun c:tt ()
   
2.   (if (and (setq fn (xdrx_system_selectfiles "保存的文件名" "" "txt" 1))
   
3.            (xdrx_initssget "选择直线<退出>:")
   
4.            (setq ss (xdrx_ssget '((0 . "LINE"))))
   
5.       )
   
6.     (progn
   
7.       (setq verts (xdrx_entity_getproperty ss "startpoint" "endpoint")
   
8.             verts (mapcar '(lambda(x)(strcat (vl-princ-to-string (car x)) "," (vl-princ-to-string (cadr x)))) verts))
   
9.       (xd::list:tofile (car fn) verts)
   
10.       (xdrx_prompt "直线顶点已经保存到文件.")
    
11.     )
    
12.   )
    
13.   (princ)
    
14. )
    
15. 
    

(defun c:tt ()<br />   (if (and (setq fn (xdrx_system_selectfiles "保存的文件名" "" "txt" 1))<br />            (xdrx_initssget "选择直线<退出>:")<br />            (setq ss (xdrx_ssget '((0 . "LINE"))))<br />       )<br />     (progn<br />       (setq verts (xdrx_entity_getproperty ss "startpoint" "endpoint")<br />             verts (mapcar '(lambda(x)(strcat (vl-princ-to-string (car x)) "," (vl-princ-to-string (cadr x)))) verts))<br />       (xd::list:tofile (car fn) verts)<br />       (xdrx_prompt "直线顶点已经保存到文件.")<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

idehua2017

newer 发表于 2018-2-12 10:15

请问大神加载这个后，需要安装哪个函数库吗？

idehua2017

newer 发表于 2018-2-12 10:15

大神，我想要的是把端点处的点号，写入txt文本，不是坐标。

newer

idehua2017 发表于 2018-2-12 11:53

什么点号？ 你自己编了号了？ 以后有问题，上传你自己的DWG文件。