[求助]：求救怎样读出一封闭线的各个端点坐标

caddog

这个函数可以读出多段线的各个顶点坐标
当相邻两点相同时，去掉重点
但并未考虑该多段线是否封闭
(defun hj:getpllist (Polyline / enType %repeat #rev-PolyLine #1 %id-PolyLine objPolyline)
  ;;(setq enVertex (ent
  (setq objPolyline(vlax-ename->vla-object Polyline))
  (setq        #1 (vlax-safearray->list
             (vlax-variant-value
               (vla-get-Coordinates
                 objPolyline
               )
             )
           )
  )
  (if (= (vla-get-ObjectName objPolyline) "AcDb2dPolyline")
    (setq enType 3)
    (setq enType 2)
    )
  (setq %id-PolyLine 0
        %repeat (/ (length #1) enType))
  (repeat %repeat
    (setq #rev-polyline1 (list (nth (* %id-PolyLine enType) #1)
                       (nth (1+ (* %id-PolyLine enType)) #1)
                 ))
    (if (not (equal #rev-polyline1 (car #rev-PolyLine) 1e-09))
      (setq #rev-PolyLine
             (cons
               #rev-polyline1
               #rev-PolyLine
               )
            )
      )
    (setq %id-PolyLine (1+ %id-PolyLine))
  ) ;_end repeat
  (REVERSE #rev-PolyLine)
)

ljttjl

用程序过滤组码为(70  .  1) 的多段线即可实现。 其它联系：ljttjl@ tom.com

温柔女神

谢谢大家
,你怎么变成1楼去了?

另外你的(defun hj:
一般都是(defun C:

刚才运行了一下,未知命令呢

caddog

这是一个函数啦，要手工选择一条多段线看它的坐标的话可以这样用：
(hj:getpllist(car(entsel)))

qiaqiadeng

起始vl函数的函数名太啰唆，用entget就可以获得多段线的端点坐标，用一个循环就可以了，我甚至怀疑vl函数的速度

qiaqiadeng

起始vl函数的函数名太啰唆，用entget就可以获得多段线的端点坐标，用一个循环就可以了，我甚至怀疑vl函数的速度

luloveyan

支持一下吧 辛苦