AutoLISP将多段线各个端点坐标写入外部文件

AutoLISP将多段线各个端点坐标写入外部文件，代码如下。

(defun c:test()
(setvar "cmdecho" 0)
(setq ffn (getfiled "选取文件" "" "doc" 1))
(setq ff (open ffn "w"))
(close ff)
(princ "\n选取多段线：")
(setq ss (ssget))
(setq i 0)
(setvar "pdmode" 33)
(repeat (sslength ss)
    (setq ssn (ssname ss i))
    (setq endata (entget ssn))
    (setq n 0)
    (repeat (length endata)
    (setq pp (nth n endata))
    (setq key (car pp))
    (if (= key 10)
      (progn
    (setq x (cadr pp))
    (setq y (cadr pp))
    (command "point" (list x y))
    (setq ff (open ffn "a"))
    (princ x ff)
    (princ " " ff)
    (princ y ff)
    (princ "\n" ff)
    (close ff)
    )
      )
    (setq n (1+ n))
    )
(setq ff (open ffn "a"))
(princ "End\n" ff)
(close ff)
(setq i (1+ i))
)
(princ (strcat "\n文件写至=" ffn))
(prin1)
)

代码完。

AutoLISP将多段线各个端点坐标写入外部文件相关推荐

使用Python实现从CAD中选择多段线并提取坐标
使用Python实现从CAD中选择多段线并提取坐标直接上代码案例 import pythoncom import win32com.clientdef vtpnt(x, y, z=0):return ...
AutoLISP将图形中文字写入外部文件
AutoLISP将图形中文字写入外部文件,代码如下. (defun c:test() (setq ffn (getfiled "写出文件" "" " ...
python把坐标写入文本_使用Python将XY坐标写入CSV文件
我是python编程新手,我有一个相当简单的项目,但有一些困难.我想(a)提取shapefile(多边形)顶点的XY坐标,(2)将所有坐标写入一个csv文件,其中第一列是X坐标,第二列是Y坐标.到目前 ...
AutoCAD.net 获取三维多段线各顶点坐标（C#）
AutoCAD.net在获取三维多段线顶点坐标时,不可用二维多段线中通过索引直接获取的方法获得,三维获取方法如下: public static Point3dCollection GetVertice ...
cad连接不同线段的端点_cad里可不可以自动在多段线的端点上生成点?
展开全部 (defun c:tes ( / &k1 &kw1 p1 tc1) (princ "\n请选择不封闭的曲线") (if (setq &kw1 (s ...
AutoCAD .NET 二次开发实例(5) 批量获取多段线所有顶点坐标
https://mp.weixin.qq.com/s?__biz=MzA3NzI3MjgyNQ==&mid=2247483916&idx=1&sn=22444c340c35e6 ...
lisp提取长方形坐标_在CAD中，用LISP如何提取三维多段端点坐标？
答:请查看附件,写的lisp程序,输入tt运行程序,批量选择cad中的点,然后将坐标写入txt文件. 指定保存文件的位置及名称,... 答:(vl-load-com) (setq ptb (vlax- ...
python读取cad_AutoCAD多段线定点坐标获取Python脚本
AutoCAD 多段线定点坐标获取 Python 脚本先前已经讨论过使用 Python 操作 AutoCAD 的方法, Python 的确是最适合编写批处理脚本的语言,但是 AutoCAD 中只提供 ...
ArcGIS中多段线（MultiPart Polyline）的坐标提取及重绘
前段时间在项目中需要将Shp文件中的多线段(Polyline)的坐标提取出来,存成坐标序列文件如XML,方便前端应用中展示. 于是直接将Polyline强转为IPointCollection接口,进而 ...

AutoLISP将多段线各个端点坐标写入外部文件

AutoLISP将多段线各个端点坐标写入外部文件相关推荐

最新文章

热门文章