[VBA程序]：过滤lwpoline的线宽？

xsquan

请问可以过滤lwpoline的线宽吗？是怎么样的，？我查了帮助好像没有？

efan2000

是在DXF This Reference的帮助文件中，找到Chapter 6 -- ENTITIES Section中的 LWPOLYLINE项（这是R2000的，其它版本可能有变化）
Lwpolyline group codes

Group code        Description
100        Subclass marker (AcDbPolyline)
90        Number of vertices
70        Polyline flag (bit-coded); default is 0:
1 = Closed; 128 = Plinegen
43         Constant width (optional; default = 0). Not used if variable width (codes 40 and/or 41) is set
38         Elevation (optional; default = 0)
39         Thickness (optional; default = 0)
10        Vertex coordinates (in OCS), multiple entries; one entry for each vertex
DXF: X value; APP: 2D point
20        DXF: Y value of vertex coordinates (in OCS), multiple entries; one entry for each vertex
40         Starting width (multiple entries; one entry for each vertex) (optional; default = 0; multiple entries). Not used if constant width (code 43) is set
41         End width (multiple entries; one entry for each vertex) (optional; default = 0; multiple entries). Not used if constant width (code 43) is set
42         Bulge (multiple entries; one entry for each vertex) (optional; default = 0)
210        Extrusion direction (optional; default = 0, 0, 1)
DXF: X value; APP: 3D vector
220, 230        DXF: Y and Z values of extrusion direction (optional)

上面的43组码就是全局宽度，40是起点线段宽度，41是终点线段宽度。

xsquan

多谢！！！！！！你的帮忙