[求助]如何获取pline的端点？

candy-jhl

请问如何获取多义线两端的端点，是否直接有函数，看到有vlax-curve-getstartpoint，想请问lisp语句的函数

另外就是虚线能不能得到所有相应线段的端点呢，望知道者指点，谢谢！

lenlenq

 en为 图元名
(vlax-curve-getstartpoint en) ;起点

(vlax-curve-getendpoint en)  ;终点

chlh_jd

可以用VLISP方式获取

3. (defun c:tt (/ en ent ptlst)
4.   (setq en  (car (entsel))
5. ent (entget en '("*"))
6.   )
7.   (setq ptlst (ss-asssoc 10 ent))
8.   (princ ptlst)
9.   (princ)
10. )
11. ;;;获取表中索引码相同的所有元素
12. ;;;ss-assoc 最快
13. (defun ss-assoc (a lst / b lst2)
14.   (while (setq b (assoc a lst))
15.     (setq lst  (cdr (member b lst))
16.    lst2 (cons (cdr b) lst2)
17.     )
18.   )
19.   (reverse lst2)
20. )

(defun c:tt (/ en ent ptlst)   (setq en  (car (entsel)) ent (entget en '("*"))   )   (setq ptlst (ss-asssoc 10 ent))   (princ ptlst)   (princ) ) ;;;获取表中索引码相同的所有元素 ;;;ss-assoc 最快 (defun ss-assoc (a lst / b lst2)   (while (setq b (assoc a lst))     (setq lst  (cdr (member b lst))    lst2 (cons (cdr b) lst2)     )   )   (reverse lst2) )