[求助]：如何实现按长度大小顺序对多义线的依次选择？

jinsong-liao

因手头缺乏可查资料，请教大虾几个问题：
      1。哪个数可获得多义线的长度，可以通过如下方法取得吗？
      2。如何将取得的多条多义线的长度值-按大小-顺序形成表？
      3。如何对应赋值给变量，以实现按长度大小顺序对多义线的依次选择？
(setq p (entsel "\n选择一条PLINE线:"))
           (setq laa (CDR (ASSOC 8 (entget (car p))))   ;获取图层名
         coo (CDR (ASSOC 62 (entget (car p))))  ;获取颜色号
         length  (CDR (ASSOC ？？ (entget (car p))))  ;获取长度
           )
      本人对ACADLISP是半桶水，对VLISP还一无所知。
      先谢谢各位的热心点拨！！！

xyp1964

[php]
;;取得线的长度
(defun c:test1 ()
  (vl-load-com)
  (setq p (entsel "\n选择任意一条线 : "))  
  (setq curve-obj (vlax-ename->vla-object (car p)))
  (setq leng
  (vlax-curve-getDistAtParam curve-obj (vlax-curve-getEndParam curve-obj))
        )
  (princ"\n类型 : ")(princ (CDR (ASSOC 0 (entget (car p)))))
  (princ "  线长 = ")(princ (rtos leng 2 4))(princ)
)
[/php]

jinsong-liao

谢谢xyp1964先生，我漫漫理解吧！
能不能抽时间帮我解决2、3号问题？

lsjjm

2楼：(vlax-curve 函数可以直接应用于ENTITY NAME， 不必(vlax-ename->vla-object 转换。
3楼：你的2号问题在你11月10日的询问帖子已经有回答， 看了吗？

xyp1964

最初由 jinsong-liao 发布
[B]谢谢xyp1964先生，我漫漫理解吧！
能不能抽时间帮我解决2、3号问题？ [/B]

[php]
;;;线长排序
(defun c:test2 (/ ss n s1 curve-obj leng ln)
  (vl-load-com)
  (prompt "\n选择任意线 : ")
  (setq        SS (ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC")))
        n  -1
  )
  (repeat (sslength ss)
    (setq s1 (ssname ss (setq n (+ 1 n))))
    (setq curve-obj (vlax-ename->vla-object s1))
    (setq leng
           (vlax-curve-getDistAtParam
             curve-obj
             (vlax-curve-getEndParam curve-obj)
           )
    )
    (setq ln (cons leng ln))
  )
  (princ "\n共选线")
  (princ (sslength ss))
  (princ "根")
  (princ)
  (princ "\n线长排序 : ")
  (princ (VL-Sort ln '<))
  (princ)
)
[/php]

jinsong-liao

上面代码测试通过，谢谢两位。
两位先生能否推荐学习VLISP方面的书籍？
    我在编写总图方面综合管线坐标自动入表的程序，解决了许多问题，也碰到了许多自己
不能解决的问题，多亏许多素未谋面的、热心的朋友指教，再次表示衷心的谢意！！！

ydf7332462

哪儿用呢?