[求助]：求直线上点的座标

wxy123 · 发表于 2006-7-20 14:40:34

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

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

×

lisp中有没有求一条直线的起点、中点、终点的函数。

hhc_1 · 发表于 2006-7-20 14:59:27

(setq en (car (entsel "\n选择一条直线:")))
autolisp方法:
(setq da (entget en))
(setq pStart (cdr (assoc 10 da)))
(setq pEnd (cdr (assoc 11 da)))
Visual Lisp方法:
(setq env (vlax-ename->vla-object en))
(setq pStart (vlax-safearray->list (vlax-variant-value (vla-get-StartPoint env))))
(setq pEnd (vlax-safearray->list (vlax-variant-value (vla-get-EndPoint env))))
还有一种Visual Lisp提供的ActiveX方法，也最简洁：
(setq pStart (vlax-curve-GetStartPoint en)) ;其中en也可以是env
(setq pEnd (vlax-curve-GetEndPoint en))

flashhorse · 发表于 2006-7-20 16:01:50

也就是提取直线的定义数据，它的起点，终点数据，均在里面。

c3a139 · 发表于 2006-7-20 16:42:18

如何求一条直线与其它几条线的交点？

aeo · 发表于 2006-7-21 23:08:51

最初由 c3a139 发布
[B]如何求一条直线与其它几条线的交点？ [/B]

你应该看一下acad的帮助.
至少把所有函数的功能要知道.
函数名倒是次要,知道有那个功能,用时再查.

MZB · 发表于 2006-7-24 10:46:10

真不错,向楼主多多学习!谢谢!

橄榄滋味 · 发表于 2006-7-24 12:14:12

inters函数返回两直线交点

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

[求助] [求助]：求直线上点的座标

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

相关帖子