[求助]如何得到LWPolyLine的始点和终点座标?

vocabulary · 发表于 2006-7-12 18:01

各位前辈:
一条LWPOLYLINE里用entget取得它的DXF组码后,很难DXF组码里得到这条线的起点和终点,请问各位有什么方法能得到这条LWPOLYLINE的起点和终点吗？先谢谢了!

liu_kunlun · 发表于 2006-7-12 18:43

第一个10组码及最后一个10组码.

(setq pts (vl-remove-if-not '(lambda (x) (= 10 (car x))) (entget e)))

(setq pt-begin (cdr (car pts)) pt-end (cdr (last pts)) )

lht · 发表于 2006-7-12 23:09

     (setq s0 (car (entsel "\n请选择一条LWPolyLine线:"))
           s0end (entget s0 )                        ;取出LWPolyLine线信息列表
     )
     ;;;——取出LWPolyLine线起点坐标P0———————————
     (setq n 0 p0 nil)
     (while (= p0 nil)
             (setq plist (car (nth n s0end)))
             (if (= plist 10) (setq p0 (cdr (nth n s0end))))
             (setq n (+ n 1))
     )
     ;;;——取出LWPolyLine线终点坐标Pn———————————
     (setq n (- (length s0end) 1) pn nil)
     (while (= pn nil)
             (setq plist (car (nth n s0end)))
             (if (= plist 10) (setq pn (cdr (nth n s0end))))
             (setq n (- n 1))
     )

BDYCAD · 发表于 2006-7-13 09:30

本帖最后由作者于 2006-7-13 17:16:00 编辑

来个更快的

(setq spname (car (entsel "\n选一条线:")))
(setq Mid-Point (vlax-curve-getPointAtDist spname (* 0.5(vlax-curve-getEndParam spname))));对象的中点
(setq spt (vlax-curve-getstartpoint spname));对象的起点
(setq ept (vlax-curve-getendpoint spname));对象的终点

ZZXXQQ · 发表于 2006-7-13 16:51

(setq s0 (car (entsel "\n请选择一条LWPolyLine线:"))
s0end (entget s0)) ;取出LWPolyLine线信息列表
(setq p0 (cdr (assoc 10 s0end))) ;;;—取出LWPolyLine线起点坐标P0—
(setq pn (cdr (assoc 10 (reverse s0end)))) ;;;—取出LWPolyLine线终点坐标Pn—

sjsapple · 发表于 2006-8-12 15:50

楼上真聪明！

无痕 · 发表于 2006-8-13 02:26

推荐用4楼，通用性好

jun353835273 · 发表于 2016-7-15 11:00

reverse 这个想法很好

z312144636 · 发表于 2024-5-21 14:16

reverse 这个想法很好

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