[求助]：用vb 编程如何设置线宽。

zlgtongyu

用vb 编程如何设置线宽。谢谢

myfreemind

编程申请里我有一个，你去找找！

yfy2003

楼上！给个联接！
我找了半天，没有找到！
你自己的知道位置，方便一下！

myfreemind

楼上的，我自己也不知道连接啊，呵呵，如果我知道我肯定帖上去了！

efan2000

设置线宽要分成两种情况，一是实体的类型不是多段线的要先转换成多段线。二是使用SetWidth来设置多段线的线宽。

自由的鱼

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

pillar

能否为小弟介绍一下VB与AUTOCAD的接口技术
我写了下面的程序可就是CAD 程序不出来
Dim acadapp As AcadApplication
On Error Resume Next
Set acadapp = GetObject(, "Autocad.Application")
If Err Then
Err.Clear
Set acadapp = New AcadApplication
  If Err Then
  MsgBox Err.Description
  Exit Sub
  End If
End If
MsgBox "Now running" + acadapp.Name + "version" + acadapp.Version
ThisDrawing.Application.Documents.Add
Dim inspoint(0 To 2) As Double
Dim textheight As Double
Dim textstr As String
Dim textobj As AcadText
inspoint(0) = Val(TextBox1)
inspoint(1) = Val(TextBox2)
inspoint(2) = Val(TextBox3)
textheight = Val(TextBox4)
textstr = TextBox5
Set textobj = ThisDrawing.ModelSpace.AddText(textstr, inspoint, textheight)
ThisDrawing.SaveAs ("hello.dwg")

自由的鱼

出来了，只是没有显示出来！
加上下面这行代码
acadapp.Visible=True

LQH

需要明确一下，许多文章都介绍采用GetObject(, "Autocad.Application")与CAD建立联系，其实这还差一点点，造成联接不稳定，CAD2002应为GetObject(, "Autocad.Application.15") ,CAD2004应为GetObject(, "Autocad.Application.16") ,这以前很少提及。

自由的鱼

楼上说的很对，不加版本号是一种通用调用，在写程序给不知道对方装的是什么版本的autocad时最为适用，当然如果知道版本加上则更为准确！~