土木在线
资料
论坛
课程
AI规范
成套资料包
APP
下载手机客户端
产品
兑换商城
直播
软件
会议
精品试听季，好课抢鲜听
工程师进阶必备，全套项目资料包来袭！
登录
/
注册
登录土木在线
学习职场硬技能
持续上新实用资料
讲师答疑&多端学习
获取最新政策资讯
免费职称评审服务
立即登录
新用户领取770优惠券
消息
动态
0
正在加载...
查看全部消息
消息设置
正在加载...
查看全部动态
消息设置
土木在线论坛
\
建筑设计
\
CAD下载及教程
\
Autocad中如何得到多个点的z坐标？
Autocad中如何得到多个点的z坐标？
请问各位高手Autocad中如何得到多个点的z坐标？
选择了多个点，想得到各点的高程，能输出到文件最好。
发布于
2005-12-28 10:21:28
我来答
分享
复制链接
新浪微博
微信扫一扫
举报
全部回答
（6 ）
raoxueyi
说了那么多就是很看不懂，不如编个小软，让我们这些水平低的同志们用用。谢谢。
里面的有些英文看不懂。
2009-03-26 10:42:26
来自 PC
评论
举报
tongmingniao
多段线只有x 、y坐标，其z坐标可取标高值。
(defun c:zb2txt1()
(setq ffn (getfiled "坐标写入文本文件" "c:/坐标" "txt" 1))
(setq opf (open ffn "w"))
(setq ss (ssget '((0 . "*LINE"))))
(setq kg " ")
(setq txt (strcat "角点" kg "X坐标" kg "Y坐标" kg "Z坐标"))
(write-line txt opf)
;(princ (strcat "角点" kg "X坐标" kg "Y坐标" kg "Z坐标") opf)
(setq i -1)
(repeat (sslength ss)
(setq ent (entget (ssname ss (setq i (1+ i)))))
(setq count 1)
(if (= (cdr (assoc 0 ent)) "LWPOLYLINE")
(setq z (rtos(cdr(assoc 38 ent))2 3)))
(foreach xy ent
(if (or (eq (car xy) 10) (eq (car xy) 11))
(progn
(setq pe (cdr xy))
(setq x (rtos(car pe)2 3))
(setq y (rtos(cadr pe)2 3))
(if (= (length pe) 3) (setq z (rtos(caddr pe)2 3)))
(write-line (strcat (itoa count) kg x kg y kg z) opf)
;(princ "\n" opf)
;(princ (strcat (itoa count) kg x kg y kg z) opf)
(setq count (1+ count))
)
)
)
)
(close opf)
(princ(strcat "\n坐标已写入文本: " ffn))
(princ)
)
2009-03-20 21:20:20
来自 PC
评论
举报
加载更多
相关推荐
l.hm
这个家伙什么也没有留下。。。
主题
248
回复
1753
粉丝
5
+ 关注
私信
CAD下载及教程
返回版块
52.08 万条内容 · 682 人订阅
猜你喜欢
遇到了一点小问题
内容不能包含下列词语
返回修改
回帖成功
经验值 +
10
全部回答（6 ）
-
raoxueyi
说了那么多就是很看不懂，不如编个小软，让我们这些水平低的同志们用用。谢谢。
2009-03-26 10:42:26
来自 PC
评论
举报
-
tongmingniao
多段线只有x 、y坐标，其z坐标可取标高值。
2009-03-20 21:20:20
来自 PC
评论
举报
加载更多里面的有些英文看不懂。
(defun c:zb2txt1()
(setq ffn (getfiled "坐标写入文本文件" "c:/坐标" "txt" 1))
(setq opf (open ffn "w"))
(setq ss (ssget '((0 . "*LINE"))))
(setq kg " ")
(setq txt (strcat "角点" kg "X坐标" kg "Y坐标" kg "Z坐标"))
(write-line txt opf)
;(princ (strcat "角点" kg "X坐标" kg "Y坐标" kg "Z坐标") opf)
(setq i -1)
(repeat (sslength ss)
(setq ent (entget (ssname ss (setq i (1+ i)))))
(setq count 1)
(if (= (cdr (assoc 0 ent)) "LWPOLYLINE")
(setq z (rtos(cdr(assoc 38 ent))2 3)))
(foreach xy ent
(if (or (eq (car xy) 10) (eq (car xy) 11))
(progn
(setq pe (cdr xy))
(setq x (rtos(car pe)2 3))
(setq y (rtos(cadr pe)2 3))
(if (= (length pe) 3) (setq z (rtos(caddr pe)2 3)))
(write-line (strcat (itoa count) kg x kg y kg z) opf)
;(princ "\n" opf)
;(princ (strcat (itoa count) kg x kg y kg z) opf)
(setq count (1+ count))
)
)
)
)
(close opf)
(princ(strcat "\n坐标已写入文本: " ffn))
(princ)
)