土木在线
资料
论坛
课程
AI规范
成套资料包
APP
下载手机客户端
产品
兑换商城
直播
软件
会议
土木君有礼！免费低价薅不停
工程师进阶必备，全套项目资料包来袭！
/
注册
登录
消息
动态
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.07 万条内容 · 656 人订阅
猜你喜欢
遇到了一点小问题
内容不能包含下列词语
返回修改
回帖成功
经验值 +
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")
;;;;以下代码可以循环得到长度．．．不写了
)
)
)