2013-05-18 明经AutoCAD.VBA编程(45054712) 群聊记录：有人在么

明经快报

gx 10:43:40

有人在么

sqbao 10:50:48

这个时候人不多

gx 10:51:22

有人就行，问点概念性的东西

gx 10:54:10

在派生AcDbObject自定义类的时候对象的引用这个概念

明经快报

狼图腾 13:39:46

Private Sub Command8_Click()
'画基准符号
Dim line1 As AcadLine
Dim D7 As Variant
D7 = AutoCAD.Application.ActiveDocument.Utility.GetPoint(, "请输入点坐标") '捕捉第一点坐标
Dim stp1(0 To 2) As Double
Dim edp1(0 To 2) As Double
stp1(0) = D7(0) - 4: stp1(1) = D7(1): stp1(2) = D7(2)
edp1(0) = D7(0) + 4: edp1(1) = D7(1): edp1(2) = D7(2)
Set line1 = AutoCAD.Application.ActiveDocument.ModelSpace.AddLine(stp1, edp1)
Dim line2 As AcadLine
Dim stp2(0 To 2) As Double
Dim edp2(0 To 2) As Double
stp2(0) = D7(0): stp2(1) = D7(1): stp2(2) = D7(2)
edp2(0) = D7(0): edp2(1) = D7(1) - 15: edp2(2) = D7(2)
Set line2 = AutoCAD.Application.ActiveDocument.ModelSpace.AddLine(stp2, edp2)
Dim cob1 As AcadCircle
Dim center(0 To 2) As Double
Dim r As Double
center(0) = D7(0): center(1) = D7(1) - 20: center(2) = D7(2)
r = 5
Set cob1 = AutoCAD.Application.ActiveDocument.ModelSpace.AddCircle(center, r)
'加字符
Dim textobj As AcadText
Dim textstring As String
Dim insertp(0 To 2) As Double
Dim height As Double
textstring = Form2.Text1.Text
insertp(0) = D7(0): insertp(1) = D7(1) - 26: insertp(1) = D7(2)
height = 15
Set textobj = AutoCAD.Application.ActiveDocument.ModelSpace.AddText(textstring, insertp, height)
End Sub
好心人帮我看一下
我的字符不出现在我定义的圆心的位置

明经快报

狐偃 21:48:32

在表格中填入汉字，和数字怎么使字体减小

小学生 21:50:39

改字高

无名 21:51:08

[qqimg]oldimg/{5CB284F6-8181-00D8-CB2B-7712646A5CB7}.jpg[/qqimg]

有声 21:51:31

酷酷无名

小学生 21:52:00

那好象是方便面

狐偃 21:53:22

Dim MyModelSpace As AcadModelSpace
Dim textheight As Double
Set MyModelSpace = ThisDrawing.ModelSpace
P1(0) = 1004#: 1(1) = 302#: 1(2) = 0#
    
Set MyTable = MyModelSpace.AddTable(P1, 52, 1, 5, 10)
MyTable.SetText 0, 0, "52"
MyTable.SetText 1, 0, "51"
MyTable.SetText 2, 0, "50"
MyTable.SetText 3, 0, "49"
MyTable.SetText 4, 0, "52"
MyTable.SetText 5, 0, "51"
MyTable.SetText 6, 0, "50"
MyTable.SetText 7, 0, "49"

为什么出来的表格尺寸对不上啊

狐偃 21:54:50

出来成这个样子

什么原因啊

狐偃 21:55:35

[qqimg]oldimg/{54F0D405-ABCB-CF23-FF66-D8C8E53DE873}.jpg[/qqimg]

狐偃 21:57:19

各位知道一下吧