[求助]：请教如何获取一条直线上的两点坐标？

eobser · 发表于 2005-12-16 16:12:08

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

我是想用entsel选取直线
然后用(angle pt1 pt2)取得直线的角度jd
最后通过(command "snapang" jd )
来使十字标和直线对齐。
我菜得不行了劳烦高手给我解答下
谢谢！

taner · 发表于 2005-12-16 16:22:10

(assoc 10 (entget(car(entsel))))
(assoc 11 (entget(car(entsel))))

eobser · 发表于 2005-12-16 16:23:47

谢谢
我编辑了一下但下面这段执行出错
麻烦帮我看下什么问题
(defun c:eob()
   (setq pt1 (assoc 10 (entget (car (entsel)))))
   (setq pt2 (assoc 11 (entget (car (entsel)))))
   (setq ang11 (angle pt1 pt2))
   (command "snapang" ang11 "")
   (prin1)
)
或者能帮我搞这这种功能的程序让我看看行么？

taner · 发表于 2005-12-16 18:58:30

最初由 eobser 发布
[B]谢谢
我编辑了一下但下面这段执行出错
麻烦帮我看下什么问题
(defun c:eob()
   (setq pt1 (assoc 10 (entget (car (entsel)))))
   (setq pt2 (assoc 11 (entget (car (entsel)))))
   ... [/B]

[PHP](defun rad2ang (n) ; 弧度转角度
(/ (* 180 n) pi)
)

(defun c:eob( / ang11 entlist pt1 pt2)
(setq entlist(entget (car (entsel"\nPlease pike a line"))))
(setq pt1 (cdr(assoc 10 entlist)))
(setq pt2 (cdr(assoc 11 entlist)))
(setq ang11 (angle pt1 pt2))
(command "snapang" (rad2ang ang11))
(prin1)
)[/PHP]

eobser · 发表于 2005-12-16 20:30:30

谢谢
试了下这段程序只能对直线对象有用
对多段线和其他就会产生错误
请问怎么完善

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：请教如何获取一条直线上的两点坐标？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子