土木在线
资料
论坛
课程
AI规范
成套资料包
APP
下载手机客户端
产品
兑换商城
直播
软件
会议
精品试听季，好课抢鲜听
工程师进阶必备，全套项目资料包来袭！
登录
/
注册
登录土木在线
学习职场硬技能
持续上新实用资料
讲师答疑&多端学习
获取最新政策资讯
免费职称评审服务
立即登录
新用户领取770优惠券
消息
动态
0
正在加载...
查看全部消息
消息设置
正在加载...
查看全部动态
消息设置
土木在线论坛
\
建筑设计
\
CAD下载及教程
\
在CAD中如何实现自动检测线段？？？？
在CAD中如何实现自动检测线段？？？？
想请教各位知道怎样可以在VISUALLISP平台下实现只需要定位一个点就可以知道和此点相连接的线段的数目和长度吗？？？
发布于
2004-02-09 10:45:09
我来答
分享
复制链接
新浪微博
微信扫一扫
举报
全部回答
（2 ）
wangzixuan205249
xxxx7000，简直是神人！
2004-02-10 18:18:10
来自 PC
评论
举报
xxxx7000
(defun c:getline()
(setq pt (getpoint "\n输入点:"))
(setq p1 (polar pt (* pi 0.25) 1.0))
(setq p2 (polar pt (* pi 1.25) 1.0))
(setq ss (ssget "c" p1 p2 (list (cons 0 "*line") )))
(if ss
(progn
(prompt (strcat "\n共有" (itoa (sslength ss)) "段line")
;;;;以下代码可以循环得到长度．．．不写了
)
)
)
2004-02-09 13:58:09
来自 PC
评论
举报
相关推荐
kellyyang
这个家伙什么也没有留下。。。
主题
13
回复
11
粉丝
0
+ 关注
私信
CAD下载及教程
返回版块
52.08 万条内容 · 667 人订阅
猜你喜欢
遇到了一点小问题
内容不能包含下列词语
返回修改
回帖成功
经验值 +
10
全部回答（2 ）
(setq pt (getpoint "\n输入点:"))
(setq p1 (polar pt (* pi 0.25) 1.0))
(setq p2 (polar pt (* pi 1.25) 1.0))
(setq ss (ssget "c" p1 p2 (list (cons 0 "*line") )))
(if ss
(progn
(prompt (strcat "\n共有" (itoa (sslength ss)) "段line")
;;;;以下代码可以循环得到长度．．．不写了
)
)
)