土木在线
资料
论坛
课程
AI规范
成套资料包
APP
下载手机客户端
产品
兑换商城
直播
软件
会议
精品试听季，好课抢鲜听
工程师进阶必备，全套项目资料包来袭！
登录
/
注册
登录土木在线
学习职场硬技能
持续上新实用资料
讲师答疑&多端学习
获取最新政策资讯
免费职称评审服务
立即登录
新用户领取770优惠券
消息
动态
0
正在加载...
查看全部消息
消息设置
正在加载...
查看全部动态
消息设置
土木在线论坛
\
建筑设计
\
CAD下载及教程
\
请问如何得到一条直线的长度，程序如何做到
请问如何得到一条直线的长度，程序如何做到
请问如何得到一条直线的长度，程序如何做到
发布于
2006-03-23 13:27:23
我来答
分享
复制链接
新浪微博
微信扫一扫
举报
全部回答
（2 ）
grig_luo
LIST查看一下不就知道了啊
或者是楼上的说法 取得起终点的距离
2006-03-27 14:52:27
来自 PC
评论
举报
ladesinger
(defun c:test(/ en elist )
(setq en(car(entsel"\n选择直线(Line):")))
(if en
(progn
(setq elist(entget en))
(princ "\n直线长度是")(princ (distance (cdr(assoc 10 elist)) (cdr(assoc 11 elist))))
(princ)
)
)
)
2006-03-24 17:10:24
来自 PC
评论
举报
相关推荐
fly_011112
这个家伙什么也没有留下。。。
主题
2
回复
0
粉丝
0
+ 关注
私信
CAD下载及教程
返回版块
52.09 万条内容 · 682 人订阅
猜你喜欢
遇到了一点小问题
内容不能包含下列词语
返回修改
回帖成功
经验值 +
10
全部回答（2 ）
或者是楼上的说法 取得起终点的距离
(setq en(car(entsel"\n选择直线(Line):")))
(if en
(progn
(setq elist(entget en))
(princ "\n直线长度是")(princ (distance (cdr(assoc 10 elist)) (cdr(assoc 11 elist))))
(princ)
)
)
)