社区 › 编程申请 › 怎样求实体的型心?

孤独客 发表于 2006-4-23 11:57:00

怎样求实体的型心?

怎样求实体的型心?

jdhszh 发表于 2006-5-27 21:52:00

本帖最后由 作者 于 2006-6-30 16:27:28 编辑

应该是质心吧，大哥。给你一个参考一下。;;center质心坐标
(defun c:Centroid (/ poly pl ms va reg cen bh center)
(if (car (atoms-family 1 '("vl-load-com")))
    (vl-load-com)
)
;;判断是否加载vl-load-com
(setq poly (car (entsel)))
;;选择线
(setq pl (vlax-ename->vla-object poly))
(setq bh (vlax-curve-isClosed pl))
(if bh
    (progn
      (setq ms (vla-get-modelspace
   (vla-get-activedocument (vlax-get-acad-object))
      )
   va (vlax-make-safearray vlax-vbObject '(0 . 0))
      )
      (vlax-safearray-put-element va 0 pl)
      (setq reg (car (vlax-safearray->list
         (vlax-variant-value (vla-addregion ms va))
       )
)
   cen (vla-get-centroid reg)
      )
      (vla-delete reg)
      (setq center (vlax-safearray->list (vlax-variant-value cen)));;质心
    )
)
)

查看完整版本: 怎样求实体的型心?