[求助][0112]怎样求出封闭区间(LWPOLYLINE)内的形心座标点呢?

vken7az2p

求助：[0112]怎样求出封闭区间(LWPOLYLINE)内的形心座标点呢?
我想再一个由(LWPOLYLINE)所形成的
封闭空间中,找出它的形心座标点?
请问该怎样做才可以完成呢?

烦请帮忙解答
谢谢~

jdhszh

以前的帖子好像有,你找一下.

vken7az2p

谢谢各位的解答
另请教该怎样修改此程序为可以
判断选取的图元是否为 (0 . "REGION") 面域
若不是则加以转换呢?

(defun c:selobj()
(vl-load-com)
(setq en (car (entsel "\nSelect object:")))
(setq xobj (vlax-ename->vla-object en))
(vlax-dump-object xobj)
(setq ptlist (vla-get-Centroid xobj))
(setq ptms (vlax-safearray->list (variant-value ptlist)))
(command "CIRCLE" ptms "10")
(setq a (strcat "X=" (rtos (car ptms) 2 4))
      b (strcat "Y=" (rtos (cadr ptms) 2 4))
)
(setq txt (strcat a "," b))
(command "text" "j" "tl" ptms "15" "0" txt)
)

xiaojinwen

(DEFUN C:TEST()
      (VL-LOAD-COM)
      (SETQ ACADOBJECT   (VLAX-GET-ACAD-OBJECT)
    ACADDOCUMENT (VLA-GET-ACTIVEDOCUMENT ACADOBJECT)
    MSPACE       (VLA-GET-MODELSPACE ACADDOCUMENT)
     )
      (SETQ SS(ENTGET(CAR(ENTSEL))))
      (IF(/= "REGION" (CDR (ASSOC 0 SS)))
    (PROGN
   (SETQ SSVLOBJ(VLAX-SAFEARRAY-FILL (VLAX-MAKE-SAFEARRAY VLAX-VBOBJECT '(0 . 0) )
         (LIST(VLAX-ENAME->VLA-OBJECT (CDAR SS)))))
   (SETQ SS-REG(CAR(SAFEARRAY-VALUE(VARIANT-VALUE(VLA-ADDREGION MSPACE SSVLOBJ)))))
   )
   (SETQ SS-REG(VLAX-ENAME->VLA-OBJECT SS))
  )
      ;;到此变量SS-REG为面域
      )
    

tctabc

谢谢您的提供~

另在请问如果现在求出的形心座标点要用line连线到这封闭区间的4各顶点

其4各顶点各为距离形心最远的4段距离顶点

且不可以碰到封闭空间的线段

该怎样处理这程序呢?

烦请各位帮忙解答一下

谢谢~