那位高手能不能帮我编个获取已知3DPOLY线顶点的lisp程序?

nicp

另请帮忙看看附件DWG图,为何boundary出错?(排除重合、断头)

陈伯雄

nicp

秋枫

(defun 3DPolyVertexList        (ename / vlist reslist)
  (setq
    vlist (lispvalue (vla-get-coordinates (vlax-ename->vla-object ename)))
  )
  (while vlist
    (setq reslist (cons (list (car vlist) (cadr vlist) (caddr vlist)) reslist))
    (setq vlist (cdddr vlist))
  )
  (reverse reslist)
)

(defun lispValue (v)
  (cond
    ((= (type v) 'variant)
     (lispValue (variant-value v))
    )
    ((= (type v) 'safearray)
     (mapcar 'lispValue (safearray-value v))
    )
    (T v)
  )
)

;;; TEST:
;;; $_ (3dpolyVertexlist (car (entsel)))
;;; ((84.8063 123.102 0.0)
;;;   (149.643 211.736 0.0)
;;;   (185.433 149.018 0.0)
;;;   (166.241 109.107 0.0)
;;;   (197.881 79.0445 0.0)
;;;   (298.508 65.0497 0.0)
;;;   (311.475 143.835 0.0)
;;;   (242.489 207.589 0.0)
;;;   (305.251 231.95 0.0)
;;;   (380.98 231.432 0.0)
;;;   (399.653 132.432 0.0)
;;;   (403.284 95.6309 0.0)
;;;   (438.555 97.1859 0.0)
;;;   (446.854 172.861 0.0)
;;;   (442.186 220.547 0.0)
;;; )
;;;

陈伯雄

nicp

nicp

笨办法:杆件依次放到与顶点共面再移动，其截面轴与相邻两顶点连线投影夹角保持不变

龙龙仔