面域的操作

王子

;;;面域的操作
(vl-load-com)
(setq AcadObject   (vlax-get-acad-object)

      AcadDocument (vla-get-ActiveDocument AcadObject)

      mSpace           (vla-get-ModelSpace AcadDocument)

)
;;;建面域
(defun c:scmy (/ os od ii ss1 ss11 xobj1 xobj1color xobj1layer p0)
  (setq os (getvar "osmode"))
  (setq od (getvar "cmdecho"))
  (setvar "osmode" 0)                        ;15359
  (setvar "cmdecho" 0)
  (setq ii 0)
  (setq ss1 (ssget))
  (if ss1
    (progn
      (repeat (sslength ss1)
        (setq ss11 (ssname ss1 ii))
        (setq xobj1 (vlax-ename->vla-object ss11))
        (setq xobj1color (vla-get-color xobj1)
              xobj1layer (vla-get-layer xobj1)
        )
        (vl-cmdf "region" ss11 "")
        (vl-cmdf "chprop"
                 (entlast)
                 ""
                 "p"
                 "c"
                 xobj1color
                 "la"
                 xobj1layer
                 ""
        )
        (setq ii (1+ ii))
      )
    )
    (progn
;;;      (vl-cmdf "pline")
;;;      (setq pt1 (getpoint "\n屏幕上选择点:"))
;;;      (vl-cmdf pt1)
;;;      (while (setq pt2 (getpoint pt1 "\n屏幕上选择点:"))
;;;        (vl-cmdf pt2)
;;;        (setq pt1 pt2)
;;;      )
;;;      (vl-cmdf "c")
;;;      (vl-cmdf)
;;;      (vl-cmdf "region" (entlast) "")
      (setq p0 (getpoint "\n请指定闭合区域内一点:"))
      (vl-cmdf "_.bpoly" "a" "o" "r" "" p0 "") ;boundary跟bpoly功能一样
      (setq ii 1)
    )
  )
  (alert (strcat "共" (itoa ii) "个面域建成功."))
  (setvar "osmode" os)
  (setvar "cmdecho" od)
  (princ "\n OK!")
  (princ)
)
;;;面域的三种方法
(defun c:mianyu        (/ xobj1 xobj2 xobj3 pt1 pt2 area1)
  (setq xobj1 (vlax-ename->vla-object (car (entsel "\n第一个面域:"))))
  (setq xobj2 (vlax-ename->vla-object (car (entsel "\n第二个面域:"))))
;;;  (setq objent (vlax-dump-object obj))
  (setq        xobj1-name (vla-get-objectname xobj1)
        xobj2-name (vla-get-objectname xobj2)
  )
  (if (and (equal (strcase xobj1-name) "ACDBREGION")
           (equal (strcase xobj2-name) "ACDBREGION")
      )
    (progn
      (setq xuanxian (getint "\n并集<1>/差集<2>/交集<3>:"))
      (cond
        ((= xuanxian 1)
         (progn
           (vla-boolean xobj1 acunion xobj2)
           (setq xobj3 (vlax-ename->vla-object (entlast)))
           (setq pt1 (vla-get-Centroid xobj3)
                 pt2 (vlax-safearray->list (vlax-variant-value pt1))
           )
           (setq area1 (vla-get-area xobj3))
         )
        )
        ((= xuanxian 2)
         (progn
           (vla-boolean xobj1 acsubtraction xobj2)
           (setq xobj3 (vlax-ename->vla-object (entlast)))
           (setq pt1 (vla-get-Centroid xobj3)
                 pt2 (vlax-safearray->list (vlax-variant-value pt1))
           )
           (setq area1 (vla-get-area xobj3))
         )
        )
        ((= xuanxian 3)
         (progn
           (vla-boolean xobj1 acintersection xobj2)
           (setq xobj3 (vlax-ename->vla-object (entlast)))
           (setq pt1 (vla-get-Centroid xobj3)
                 pt2 (vlax-safearray->list (vlax-variant-value pt1))
           )
           (setq area1 (vla-get-area xobj3))
         )
        )
      )
    )
    (alert "选择的物体不是面域:")
  )
  (princ "\n")
  (if area1
    (princ area1)
  )
  (princ "\nOK!")
  (princ)
)

王子

试着编的，大家批评改正。

qyming2000

很给力!经验