cad如何批量提取坐标

站长个人微信号:17350562750 之前没加过佬雷的,请加下。筹备建微信群
请先 登录 后评论

3 个回答

高庆敏

有CaSS软件吗?那里可以提取。

请先 登录 后评论
通测工作室 - 测量工程师

(defun c:TQZB()

(princ "\n选择所需输出的点或文字:")

(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)) )

(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 "*提取地图中的高程点坐标值 << 命令:TQZB >> *输出格式(点号,, Y,X,Z)**")

(prin1)

请先 登录 后评论
曲利兵

没属性的提取不了

请先 登录 后评论
  • 3 关注
  • 0 收藏,692 浏览
  • 12321 提出于 2018-11-11 12:41

相似问题