怎样求实体的型心?

孤独客

怎样求实体的型心?

jdhszh

应该是质心吧，大哥。给你一个参考一下。

2. ;;center质心坐标
3. (defun c:Centroid (/ poly pl ms va reg cen bh center)
4.   (if (car (atoms-family 1 '("vl-load-com")))
5.     (vl-load-com)
6.   )
7.   ;;判断是否加载vl-load-com
8.   (setq poly (car (entsel)))
9.   ;;选择线
10.   (setq pl (vlax-ename->vla-object poly))
11.   (setq bh (vlax-curve-isClosed pl))
12.   (if bh
13.     (progn
14.       (setq ms (vla-get-modelspace
15.    (vla-get-activedocument (vlax-get-acad-object))
16.         )
17.      va (vlax-make-safearray vlax-vbObject '(0 . 0))
18.       )
19.       (vlax-safearray-put-element va 0 pl)
20.       (setq reg (car (vlax-safearray->list
21.          (vlax-variant-value (vla-addregion ms va))
22.        )
23.   )
24.      cen (vla-get-centroid reg)
25.       )
26.       (vla-delete reg)
27.       (setq center (vlax-safearray->list (vlax-variant-value cen)));;质心
28.     )
29.   )
30. )

;;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)));;质心     )   ) )