[LISP]如何获得LWPOLYLINE的几个端点

blue123

请教各位，如何获得LWPOLYLINE的几个端点

Andyhon

Link to:

http://www.faqs.org/faqs/CAD/autolisp-faq/part2/section-5.html
[23.1] How to access polyline VERTICES?

 

blue123

怎么这么难啊，有没有更简单一点的办法啊，

blue123

我以为很容易，唉.......................

ljpnb

http://www.mjtd.com/function/list.asp?id=387

jdhszh

怎么算不难?

rark123

发个函数看看，大家指导下

(defun pline_point_list (pline_e_name)
  (setq pline_e_name_list (entget pline_e_name))
  (setq pline_e_name_point_list nil)
  (repeat (length pline_e_name_list)
    (if (= (caar pline_e_name_list) 10)
      (progn
 (setq pline_e_name_point (cdr (car pline_e_name_list)))
 (setq pline_e_name_point
        (list (car pline_e_name_point)
       (cadr pline_e_name_point)
        )
 )
 (setq pline_e_name_point_list
        (cons pline_e_name_point
       pline_e_name_point_list
        )
 )
 (setq pline_e_name_list (cdr pline_e_name_list))
      )
      (setq pline_e_name_list (cdr pline_e_name_list))
    )
  )
)

HuaiYu

这个东西应该很多地方有这种帖子吧

(defun c:test ()
  (setq en (car (entsel "\nPlease select a polyline")))
 (setq pt_lst (mapcar 'cdr
   (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget en))
  ))
  (prin1)
)

ljpnb

HuaiYu发表于2006-3-21 12:12:00 这个东西应该很多地方有这种帖子吧 (defun c:test ()(setq en (car (entsel \"\nPlease select a polyline\")))(setq pt...

这段程序相当精辟，受用，谢谢分享！