[求助]：怎么加粗线段？？

mingxingstar

不好意思，请教各位如何加粗线段到指定宽度呀？几条连接线段能逼和成封闭的么 然后一起加粗么？？

zcf108

用pedit形成封闭回路，再改线宽

wsw4188

转化成pl或者用线宽设定

freehappy

2002里很容易啊
直接定义线宽就可以了

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











































End Sub

qinchao_qc

定义线宽就好了，再选择显示线宽。

colywate

用MPEDIT统一该

dsk

最初由 qinchao_qc 发布
[B]定义线宽就好了，再选择显示线宽。 [/B]

很好，原来我一直用多义线，现在这个更方便，谢谢

seeker

。。。给你个小程序，将其放在CAD根目录下，然后在CAD中载入该程序，点所要加粗的线段，命令行输入命令“WC”，再输入线宽，可批量修改。

zyqad

最初由 dsk 发布
[B]
很好，原来我一直用多义线，现在这个更方便，谢谢 [/B]

还是不明白，能解释一下吗？

4846136

我一般是先用ｐｌ线画，然后或者同时定义PL的线宽阿

xbx7920

在台湾祥虹CAD技术支持中心的网站可下载一个小LISP，可以把LINE，POLYLINE
CIECLE，RECTANGLE等统一加上所想要的宽度。

zhuhuifeng

可以直接改线宽

coln2001

用天正或理正,可以加粗

tsec

这是我以前编得小程序，你先用用看。