如何批量将闭合多段线的面积标注到多段线的质心

mapinfo600

在批量标注多段线的面积时，无法解决。标注到质心，首先要求出质心，我用region来完成，但不能实现。
求助高手

/db_自贡黄明儒_

高飞有一贴，可求面域任何特性

mapinfo600

试过了，返回值为nil，不知道是什么缘故

王子

我编了一个，
(princ "\n面积输出程序,作者:王永高......")
(princ
  "\n在命令行输入mj进行多义线的面积计算和输出,输出到d:/mj.txt文件里......"
)
(defun c:mj ()
  (setq        os (getvar "osmode")
        om (getvar "cmdecho")
  )
  (setvar "osmode" 0)
  (setvar "cmdecho" 0)
  (setq        AcadObject   (vlax-get-acad-object)

        AcadDocument (vla-get-ActiveDocument AcadObject)

        mSpace             (vla-get-ModelSpace AcadDocument)

  )
  (princ "\n请选择物体:")
  (setq file1 (open "d:/mj.txt" "w"))
  (vl-load-com)
  (setq        ss1 (ssget)
        i   0
  )
  (setq currCenterPnt (vlax-make-safearray vlax-vbDouble '(0 . 2)))

  (if ss1
    (progn
      (repeat (sslength ss1)
        (setq ss11 (ssname ss1 i))
        (setq ss11ent (entget ss11))
        (setq ss11-name (cdr (assoc 0 ss11ent)))
        (setq ss12 (vlax-ename->vla-object ss11))
        (setq mj1 (vlax-curve-getArea ss12))

        (cond
          ((= ss11-name "ELLIPSE")
           (setq currCenterPnt (vla-get-center ss12))
          )
          ((= ss11-name "CIRCLE")
           (setq currCenterPnt (vla-get-center ss12))
          )
          ((= ss11-name "LWPOLYLINE")
           (setq currCenterPnt (zhongxin ss11))
          )
          ((= ss11-name "POLYLINE")
           (setq currCenterPnt (zhongxin ss11))
          )
          ( T (princ "\n选择的物体没有面积."))
        )

;;;        (setq length1(vla-get-length ss12 ))
       
        (princ (+ i 1) file1)       
        (princ "\t" file1)
        (princ mj1 file1)
        (princ "\n" file1)
;;;        (setq currCenterPnt (vla-get-center ss12))
        (setq
          TextObj (vla-AddText
                    mSpace
                    (strcat "No:" (itoa (+ i 1)) "  " (rtos mj1 2 2) "平方米.")
                    currCenterPnt
                    6
                  )
        )
;;;        (vla-ZoomExtents AcadObject)
        (setq i (+ i 1))
        (princ "\n")
        (setq txt1 (strcat "正在计算第" (itoa i) "物体."))
        (princ txt1)
      )
    )
  )
  (close file1)
  (setvar "osmode" os)
  (setvar "cmdecho" om)
  (princ "\nOK!")
  (princ)
)

(DEFUN zhongxin (ENTNAME)
  (setq        cbiao '()
        tmpbia '()
  )
  (setq bia (entget entname))
  (setq lorpl (cdr (assoc 0 bia)))
  (setq enttype lorpl)
  (IF (= LORPL "POLYLINE")
    (PROGN
      (SETQ BIA (ENTGET ENTNAME))
      (SETQ SF (CDR (ASSOC 70 BIA)))
      (WHILE (/= LORPL "SEQEND")
        (SETQ ENTNAME (ENTNEXT ENTNAME))
        (SETQ BIA (ENTGET ENTNAME))
        (SETQ LORPL (CDR (ASSOC 0 BIA)))
        (IF (/= LORPL "SEQEND")
          (SETQ CBIAO (CONS (CDR (ASSOC 10 BIA)) CBIAO))
          (IF (AND (/= LORPL "SEQEND")
                   (/= (LOGAND SF 4) 0)
                   (= (CDR (ASSOC 70 BIA)) 8)
              )
            (SETQ CBIAO (CONS (CDR (ASSOC 10 BIA)) CBIAO))
            (IF        (AND (/= LORPL "SEQEND") (= SF 0))
              (SETQ CBIAO (CONS (CDR (ASSOC 10 BIA)) CBIAO))
            )                                ;if end
          )                                ;if end
        )                                ;if end
      )                                        ;while end
      (IF (/= (LOGAND SF 1) 0)
        (SETQ CBIAO (CONS (LAST CBIAO) CBIAO))
      )                                        ;if end
    )                                        ;progn end
  )
  (IF (= LORPL "LWPOLYLINE")
    (PROGN
      (SETQ BIA (ENTGET ENTNAME))
      (setq pn (cdr (assoc 90 bia)))
      (repeat pn
        (setq tmpbia (assoc 10 bia))
        (setq cbiao (cons (cdr tmpbia) cbiao))
        (setq bia (cdr (member tmpbia bia)))
      )
    )
  )
  (SETQ CBIAO (REVERSE CBIAO))
  (setq ii1 0 jj1 0)
  (setq x1 0 y1 0)
  (repeat (length Cbiao)
    (setq pt1(nth ii1 cbiao))
    (setq x1 (+ x1 (car pt1))
          y1 (+ y1 (cadr pt1)))
    (setq ii1(+ ii1 1))
    )
  (setq pt12(vlax-3D-point  (/ x1 ii1)
                  (/ y1 ii1)))
  )

CAD小白

很厉害，能不能设置字高于图层不？

sicky111

学习一下。

王子

谢谢回复。

mapinfo600

我已经解决了，谢谢晓东家园

mapinfo600

王子 发表于 2018-5-10 07:09
我编了一个，
(princ "\n面积输出程序,作者:王永高......")
(princ

谢谢王子，大救星

王子

我都好长时间没上线了，偶尔上来看看