[LISP程序]：取得曲线的起点，终点

puyun006 · 发表于 2006-2-15 08:57:37

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

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

×

支持arc,spline,pline,lwpline,el,line.
测试: (endpt (car(entsel))) 点取任意曲线，返回-> ((20931.6 2906.28 0.0) (28571.5 1410.14 0.0))
|;
(defun endpt (e)
  (setq eobj (vlax-ename->vla-object e)
pts  (vlax-curve-getstartpoint eobj)
pte  (vlax-curve-getendpoint eobj)
  )
  (cons pts (list pte))
)
//不知道怎么取得多段线的各顶点,多边形的顶点?

taner · 发表于 2006-2-15 10:16:40

http://www.xdcad.net/forum/showthread.php?threadid=507673

puyun006 · 发表于 2006-2-16 09:56:48

多谢楼上的

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

[LISP程序]：取得曲线的起点，终点

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

相关帖子