本程序提取文字的插入点坐标输出到文本
适应于 地图上只有文字 非 CASS格式的高程点
如下图
(defun c:TQWZZB()
(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)) “TEXT”)
(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 “*只适合TEXT点 << 命令:TQWZZB >> *输出格式(点号,, Y,X,Z)**”)
(prin1)
声明:因本站是虚拟物品一旦购买概不退款,请谨慎购买!
加微信:139 5099 9860 拉客服进一个微信群,即可免费获得一个年会员!
任何个人或组织,在未征得本站同意时,禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益,可联系我们进行处理(gf#celiang.net 请把#替换成@)。