[文章]：如何改变多条多义线的宽度

亚尔佛莉德

组码
说明

100
子类标记 (AcDbPolyline)

90
顶点数

70
多段线标志（位码）；缺省值为 0：

1 = 关闭的； 128 = 多段线生成

43
常量宽度（可选，缺省值= 0）；当设置了变化的宽度（组码 40 和/或 41）时，不使用该组码

38
标高（可选，缺省值= 0）

39
厚度（可选，缺省值= 0）

10
顶点坐标（在 OCS 中）（多图元），每个顶点都有该条目。：X 值；APP：二维点

20
DXF：顶点坐标的 Y 值（在 OCS 中）（多图元）；每个顶点都有该条目。

40
起始宽度（多图元，每个顶点都有该条目）（可选，缺省值= 0，多条目）。如果设置了常量宽度（组码 43），则不使用该组码。

41
结束宽度（多图元，每个顶点都有该条目）（可选，缺省值= 0，多条目）。如果设置了常量宽度（组码 43），则不使用该组码。

42
凸度（多图元，每个顶点都有该条目）（可选，缺省值= 0）。

210
拉伸方向（可选，缺省值= 0, 0, 1）。

DXF：X 值；APP：三维矢量

220, 230
DXF：拉伸方向的 Y 和 Z 值

lsjjm

[QUOTE]最初由 亚尔佛莉德 发布
[B]如何改变多条多义线的宽度...[B]

Pedit-M-W不行吗?

eggbag

2楼说的对

myfreemind

还是用程序来改，直线和多段线都可以改！
Sub jcx() '加粗直线程序

Dim a
On Error Resume Next
Dim i As Integer
Dim allobj As AcadEntity
Dim spnt As Variant
Dim epnt As Variant
Dim plineobj As AcadLWPolyline
Dim ver(0 To 3) As Double

For i = 0 To ThisDrawing.SelectionSets.Count - 1
ThisDrawing.SelectionSets.Item(i).Clear
ThisDrawing.SelectionSets.Item(i).Delete
Next
Dim sset As AcadSelectionSet
Set sset = ThisDrawing.SelectionSets.Add("lineset")
sset.SelectOnScreen
If sset.Count = 0 Then Exit Sub

Dim w As String
w = ThisDrawing.Utility.GetString(1, vbCrLf & "请输入宽度:")
For Each allobj In sset
If allobj.ObjectName <> "AcDbLine" Then
allobj.ConstantWidth = w
End If
If allobj.ObjectName = "AcDbLine" Then
spnt = allobj.StartPoint

epnt = allobj.EndPoint

ver(0) = spnt(0): ver(1) = spnt(1)
ver(2) = epnt(0): ver(3) = epnt(1)



Set plineobj = ThisDrawing.ModelSpace.AddLightWeightPolyline(ver)



plineobj.ConstantWidth = w
allobj.Delete
End If




Next
Exit Sub

maijinghua1001

工具条里有呀，是属于BONUS工具的，不知你装了没有？

chj_china

还是5楼的比较厉害，我本来是用前面的方法的，用过5楼的方法后才知道厉害，真的！

playboy

不行的你用3dpoly试一下就知道了

lsjjm

贴一个简单的:
(defun c:test ()
  (vl-load-com)
  (setq        w (getdist "\nNew Width: "))
  (prompt "\nSelect Polyline:")
  (setq ss (ssget '((0 . "*polyline"))) n 0)
  (while (< n (sslength ss))
    (setq obj (vlax-ename->vla-object (ssname ss n)))
    (vla-put-constantwidth obj w)
    (setq n (1+ n))
  )
)

playboy

对3dpoly线还是不好使呀

tomsdwf

5楼的程序是用VB编的吧？不知怎么样调入CAD应用，还望指教。
9楼的程序调入CAD后不运行呀，是不是有问题呀？

myfreemind

最初由 tomsdwf 发布
[B]5楼的程序是用VB编的吧？不知怎么样调入CAD应用，还望指教。
9楼的程序调入CAD后不运行呀，是不是有问题呀？ [/B]

在autocad的命令行中键入vbaide,然后将代码COPY到THISDRAWING中，运行即可！

dengfei2000

www.xdcad.net

wangwei_66

[QUOTE]最初由 myfreemind 发布
[B]

在autocad的命令行中键入vbaide,然后将代码COP... [/B][/QUTE]
不好意思，请教如何运行？