CAD如何批量提取点坐标?
发布网友
发布时间：2022-04-27 05:12
共3个回答
热心网友
时间：2022-06-26 18:37
该程序主要用于CAD点（point）三维坐标提取，并将数据输出为CASS软件中使用的数据格式
;输出格式： 点号,,测量Y值，测量X值，测量Z值 例：1,,100.3244,1232,433,25
;2010-05-17 罗泽钢 中国葛洲坝集团基础工程有限公司
;命令：plzbsc
(defun c:plzbsc()
(princ "\n选择所需输出的点（point）:")
(setq ss (ssget ));;选取坐标点
(setq n (sslength ss ));计算坐标点数量
(setq ff (open (getfiled "文件保存为" "f:/" "dat" 1) "w"));保存路径
(setq i 0)
(repeat n
(setq spt (ssname ss i ))
(setq ept (entget spt))
(if (= (cdr (assoc 0 ept)) "POINT")
(progn
(setq lxyz (cdr (assoc 10 ept)))
(setq sx (rtos (nth 1 lxyz)));将坐标值实数转换成字符
(setq sy (rtos (nth 0 lxyz)))
(setq sz (rtos (nth 2 lxyz)))
(setq i1 (+ i 1));计算点序号
(setq sn (rtos i1 2 0));将序号实数转换成字符
(setq sxyz (strcat sn",," sy "," sx "," sz))
(write-line sxyz ff)
)
)
(setq i (+ i 1))
);repeat
)
(prompt "*只适合point点 << 命令:plzbsc >> *输出格式（点号,, Y，X，Z）**")
(prin1)
原文地址：
http://luozegang4324.blog.163.com/blog/static/228119422010422111143736/
热心网友
时间：2022-06-26 18:37
利用多段线及LIST命令可以一次性将需要的点位坐标提取出来，但是需要注意顺序！或者利用ID命令依次点击所需要的点位坐标，再按f2键，文本窗口显示也可！
热心网友
时间：2022-06-26 18:38
百度搜索 工程桩自动编号并提取坐标程序 这程序专门解决这些问题。
