关于求多义线顶点坐标(按我附件中的顺序求出坐标)，寻找此LISP程序

herphoneno1

关于求多义线顶点坐标(按我附件中的顺序求出坐标)，寻找此LISP程序，谢谢各位高手。
D:\Documents and Settings\hef\桌面\tu1.jpg

xiao_longxin

(defun vertexs (ename / plist pp n)
  (setq obj (vlax-ename->vla-object ename))
  (setq        plist (vlax-safearray->list
                (vlax-variant-value
                  (vla-get-coordinates obj)
                )
              )
  )
  (setq n 0)
  (repeat (/ (length plist) 2)
    (setq pp (append pp (list (list (nth n plist) (nth (1+ n) plist)))))
    (setq n (+ n 2))
  )
  pp
)

(defun c:te (/ ename pllist n i pt pt1 pt2 x y TLIST TLIST_I)
  (setq        ename  (car (entsel))
        pllist (vertexs ename)
        n      (length pllist)
        i      0
  )
  (repeat n
    (setq pt        (nth i pllist)
          x        (nth 0 pt)
          y        (nth 1 pt)
          pt1        (list (- x 110) (- y 110))
          pt2        (list (+ x 110) (+ y 110))
          ss1        (ssget "c" pt1 pt2 '((0 . "TEXT")))
          TLIST        (APPEND        TLIST
                        (list (atoi (CDR (ASSOC 1 (ENTGET (SSNAME SS1 0))))))
                )
          i        (1+ i)
    )
  )
  (SETQ        TLIST_I        (vl-sort-i tlist '<)
        i        0
  )
  (repeat n
    (print (setq x (nth (nth i tlist_i) tlist)))
    (print (nth (vl-position x tlist) pllist))
    (setq i (1+ i))
  )
)

herphoneno1

谢谢，前两天忙死了，今天试了试。
提示：“&sup2;参数类型错误: lselsetp nil”，请xiao_longxin 帮帮我，谢谢！

xiao_longxin

只要点选多义线就可以了

puzhixing123

; 错误: no function definition: VLAX-ENAME->VLA-OBJECT

playboy

(vl-load-com)复制到命令行就好了