填充数据格式及重建边界的代码

marting

1、命令方法

(command "-hatchedit" OBJ "b" "r" "y")

2、VLISP方法

(defun c:ReBound (/ loops layerN HObjts Hobj_ Hobj_VLA lpNum)
  (defun AT:Test (ent layer / _2dpt layer ss i a b ss2 i2 d)
    (vl-load-com)

    (defun _2dpt (pt) (list (car pt) (cadr pt) 0.))

    (vla-getboundingbox (vlax-ename->vla-object ent) 'a 'b)
    (if        (setq ss2
               (apply
                 'ssget
                 (append
                   (list "_W")
                   (mapcar
                     '(lambda (x) (trans (_2dpt (vlax-safearray->list x)) 0 1))
                     (list a b)
                   )
                   '(((0 . "~HATCH,ARC,CIRCLE,LINE,LWPOLYLINE")))
                 )
               )
        )

      (repeat (setq i2 (sslength ss2))

        (entmod
          (subst
            (cons 8 layer)
            (assoc 8 (setq d (entget (ssname ss2 (setq i2 (1- i2))))))
            d
          )
        )
      )
    )

    (princ)
  )
  (defun Loops (lpn Vlnme EntN Lynm / BndL)
    (vla-GetLoopAt Vlnme lpn 'lp)
    (if        (vl-catch-all-error-p
          (setq        BndL (vl-catch-all-apply
                       'vlax-safearray->list
                       (list lp)
                     )
          )
        )
      (progn
        (command "_-HATCHEDIT" EntN "_B" "_P" "_Y")
        (AT:Test EntN Lynm)
      )
      (foreach itm BndL
        (vla-put-layer itm Lynm)
      )
    )
  )
  (prompt "\nSelect Hatch for Boundary:")
  (setq HObjts (ssget ":L" '((0 . "HATCH"))))
  (repeat (setq i (sslength HObjts))
    (setq Hobj_ (ssname HObjts (setq i (1- i))))
    (setq Hobj_VLA (vlax-ename->vla-object Hobj_))
    (if        (= (setq lpNum (vla-get-numberofloops Hobj_VLA)) 1)
      (loops 0 Hobj_VLA Hobj_ (vla-get-layer Hobj_VLA))
      (progn
        (setq lp_ -1)
        (repeat        lpNum
          (loops (setq lp_ (1+ lp_)) Hobj_VLA Hobj_ layerN)
        )
      )
    )
  )
  (princ)
)

HATCH填充的数据格式：

Hatch boundary path data group codes
Group code	Description
92	Boundary path type flag (bit coded): 0 = Default; 1 = External; 2 = Polyline 4 = Derived; 8 = Textbox; 16 = Outermost
varies	Polyline boundary type data (only if boundary = polyline). See Polyline boundary data table below
93	Number of edges in this boundary path (only if boundary is not a polyline)
72	Edge type (only if boundary is not a polyline): 1 = Line; 2 = Circular arc; 3 = Elliptic arc; 4 = Spline
varies	Edge type data (only if boundary is not a polyline). See appropriate Edge data table below
97	Number of source boundary objects
330	Reference to source boundary objects (multiple entries)

Polyline boundary data group codes
Group code	Description
72	Has bulge flag
73	Is closed flag
93	Number of polyline vertices
10	Vertex location (in OCS) DXF: X value; APP: 2D point (multiple entries)
20	DXF: Y value of vertex location (in OCS) (multiple entries)
42	Bulge (optional, default = 0)

Line edge data group codes
Group code	Description
10	Start point (in OCS) DXF: X value; APP: 2D point
20	DXF: Y value of start point (in OCS)
11	Endpoint (in OCS) DXF: X value; APP: 2D point
21	DXF: Y value of endpoint (in OCS)

Arc edge data group codes
Group code	Description
10	Center point (in OCS) DXF: X value; APP: 2D point
20	DXF: Y value of center point (in OCS)
40	Radius
50	Start angle
51	End angle
73	Is counterclockwise flag

Ellipse edge data group codes
Group code	Description
10	Center point (in OCS) DXF: X value; APP: 2D point
20	DXF: Y value of center point (in OCS)
11	Endpoint of major axis relative to center point (in OCS) DXF: X value; APP: 2D point
21	DXF: Y value of endpoint of major axis (in OCS)
40	Length of minor axis (percentage of major axis length)
50	Start angle
51	End angle
73	Is counterclockwise flag

Spline edge data group codes
Group code	Description
94	Degree
73	Rational
74	Periodic
95	Number of knots
96	Number of control points
40	Knot values (multiple entries)
10	Control point (in OCS) DXF: X value; APP: 2D point
20	DXF: Y value of control point (in OCS)
42	Weights (optional, default = 1)
97	Number of fit data
11	Fit datum (in OCS) DXF: X value; APP: 2D point
21	DXF: Y value of fit datum (in OCS)
12	Start tangent DXF: X value; APP: 2D vector
22	DXF: Y value of start tangent (in OCS)
13	End tangent DXF: X value; APP: 2D vector
23	DXF: Y value of end tangent (in OCS)

longer1000

啥也不说了，感谢楼主分享哇！

zhangq_cai1

正需要，支持楼主大人了！

yoyoho

感谢 marting 分享学习!!!!

yudore

如果只是重建边界的话，楼主要不要试试，cad自带的功能“hatchgenerateboundary”，直接选中图案，输入”hatchgenerateboundary“，会自动生成边界。生成的边界跟楼主软件编出来的相比有不同，楼主的是通过hatchedit里的b重建边界，p多段线，y多段线关联填充。cad自带的生成边界是不关联填充的多段线，我一般会把这个长长的命令，替换成he，也比较简单不需要加载lsp