土木在线
资料
论坛
课程
AI规范
成套资料包
APP
下载手机客户端
产品
兑换商城
直播
软件
会议
精品试听季，好课抢鲜听
工程师进阶必备，全套项目资料包来袭！
登录
/
注册
登录土木在线
学习职场硬技能
持续上新实用资料
讲师答疑&多端学习
获取最新政策资讯
免费职称评审服务
立即登录
新用户领取770优惠券
消息
动态
0
正在加载...
查看全部消息
消息设置
正在加载...
查看全部动态
消息设置
土木在线论坛
\
建筑设计
\
CAD下载及教程
\
求助：lsp如何表示相对坐标和相对极坐标
求助：lsp如何表示相对坐标和相对极坐标
请问各位大侠：
在lsp中调用画线命令后，随意指定一点后，第二个点以第一个点为基准点的相对坐标和相对极坐标如何来获取和表示呀。问题2：谁能写一个按栏选方式修剪对象的简单的lsp呀。谢谢了
发布于
2007-06-23 20:38:23
我来答
分享
复制链接
新浪微博
微信扫一扫
举报
全部回答
（3 ）
luyu9635
谢谢3楼的
2007-06-30 22:28:30
来自 PC
评论
举报
小萝卜的头
;;;1.已知第一点pt1:
(setq pt1 (getpoint "\n指定第一点:"))
;;;求出第二点pt2:
;;;相对直角坐标:
(setq pt1_x (car pt1))
(setq pt1_y (cadr pt1))
(setq pt2 (cons (+ pt1_x 1000.) (+ pt1_y 1000.)))
;;;相对极坐标:
(setq pt2 (polar pt1 (/ pi 6) 1000.))
;;;2.栏选方式修剪对象:
(defun c:tt ()
(setq ss (ssget))
(command "trim" ss "" "f")
)
2007-06-25 09:01:25
来自 PC
评论
举报
加载更多
相关推荐
luyu9635
这个家伙什么也没有留下。。。
主题
11
回复
15
粉丝
0
+ 关注
私信
CAD下载及教程
返回版块
52.09 万条内容 · 667 人订阅
猜你喜欢
遇到了一点小问题
内容不能包含下列词语
返回修改
回帖成功
经验值 +
10
全部回答（3 ）
-
luyu9635
谢谢3楼的
2007-06-30 22:28:30
来自 PC
评论
举报
-
小萝卜的头
2007-06-25 09:01:25
来自 PC
评论
举报
加载更多;;;1.已知第一点pt1:
(setq pt1 (getpoint "\n指定第一点:"))
;;;求出第二点pt2:
;;;相对直角坐标:
(setq pt1_x (car pt1))
(setq pt1_y (cadr pt1))
(setq pt2 (cons (+ pt1_x 1000.) (+ pt1_y 1000.)))
;;;相对极坐标:
(setq pt2 (polar pt1 (/ pi 6) 1000.))
;;;2.栏选方式修剪对象:
(defun c:tt ()
(setq ss (ssget))
(command "trim" ss "" "f")
)