土木在线
资料
论坛
课程
AI规范
成套资料包
APP
下载手机客户端
产品
兑换商城
直播
软件
会议
土木君有礼！免费低价薅不停
工程师进阶必备，全套项目资料包来袭！
/
注册
登录
消息
动态
0
正在加载...
查看全部消息
消息设置
正在加载...
查看全部动态
消息设置
土木在线论坛
\
给排水工程
\
天正给排水
\
能统一增减标高吗
能统一增减标高吗
1.总图中的设计地面标高、地形标高（相对标高及绝对标高）
2.泵房、系统图图中的标高（相对标高及绝对标高）
能统一加减一个数字嘛？如都降1m，都加0.45m
标高整体抬高或者降低，时有发生，逐个去改太麻烦。
发布于
2009-12-14 09:20:14
我来答
分享
复制链接
新浪微博
微信扫一扫
举报
全部回答
（11 ）
波
(defun c:bg1 (/ e m c1 biao a1)
(vl-load-com)
(princ "相对标高转为绝对标高，输入bg")
(setq e (ssget '((0 . "TCH_ELEVATION")
)
)
)
(setq m (getreal "标高差值:"))
(vlax-for biao (vla-get-activeselectionset
(vla-get-activedocument (vlax-get-acad-object))
)
(setq a1 (atof (vlax-get-property biao 'text)))
(setq c1 (+ m a1))
(setq c1 (rtos c1 2 2))
(vlax-put-property biao 'text c1)
)
(princ "相对标高转为绝对标高，输入bg")
(princ)
)
2011-11-25 08:16:25
来自 PC
评论
举报
意味深长
我也遇到这个问题了,正在群里问了.大家也没有什么好的方法了.只能软件再次开发了.
2011-11-24 20:12:24
来自 PC
评论
举报
加载更多
相关推荐
jzh_nc
这个家伙什么也没有留下。。。
主题
292
回复
1729
粉丝
3
+ 关注
私信
天正给排水
返回版块
6.46 万条内容 · 333 人订阅
猜你喜欢
遇到了一点小问题
内容不能包含下列词语
返回修改
回帖成功
经验值 +
10
全部回答（11 ）
-
波
(defun c:bg1 (/ e m c1 biao a1)
2011-11-25 08:16:25
来自 PC
评论
举报
-
意味深长
我也遇到这个问题了,正在群里问了.大家也没有什么好的方法了.只能软件再次开发了.
2011-11-24 20:12:24
来自 PC
评论
举报
加载更多(vl-load-com)
(princ "相对标高转为绝对标高，输入bg")
(setq e (ssget '((0 . "TCH_ELEVATION")
)
)
)
(setq m (getreal "标高差值:"))
(vlax-for biao (vla-get-activeselectionset
(vla-get-activedocument (vlax-get-acad-object))
)
(setq a1 (atof (vlax-get-property biao 'text)))
(setq c1 (+ m a1))
(setq c1 (rtos c1 2 2))
(vlax-put-property biao 'text c1)
)
(princ "相对标高转为绝对标高，输入bg")
(princ)
)