QUẢNG CÁO ĐẦU TRANG

**joa** · 13-07-2006, 03:58 PM

Ðề: VBA in CAD! Nhờ giúp đỡ!

1. Quét toàn bộ rec để nhặt được các tọa độ của dtext không (x,y)

2. Nhận đối tượng dtext rồi thì có nhận được giá trị của dtext không (nhặt được cao độ ý mà)

...
1. dtext.InsertionPoint ...
...
2. dtext.TextString...

Nếu có thể đưa lên đây file autoCad tui giúp gì được Pác chăng???

**Bulongneo** · 13-07-2006, 05:38 PM

Ðề: VBA in CAD! Nhờ giúp đỡ!

Chao minh co mot file nho xem co gip gi dc ko nhe...

Public Sub TimDText()
Dim ssetObj As AcadSelectionSet
Dim entry As AcadEntity
Dim Text As AcadText
Dim x As Double, y As Double, z As Double
Dim Dtext As String
'===================================================
Set ssetObj = ThisDrawing.ActiveSelectionSet
ssetObj.Clear
ssetObj.SelectOnScreen
For Each entry In ssetObj
If entry.ObjectName = "AcDbText" Then
Set Text = entry
'Diem chen Dtext
x = Text.InsertionPoint(0)
y = Text.InsertionPoint(1)
z = Text.InsertionPoint(2)
Dtext = Text.TextString
End If
Next entry
End Sub

**nguyenthehungsan** · 13-07-2006, 10:10 PM

Ðề: VBA in CAD! Nhờ giúp đỡ!

Thank JOA và BULONGNEO nhé!

Chiều nay mình đã làm được rồi. Hoàn toàn như các bạn bảo. VBA thật tuyệt vời nhỉ!

**PHONG 00KC** · 29-07-2006, 12:32 PM

Ðề: VBA in CAD! Nhờ giúp đỡ!

Cách Chèn 1 Bảng Vẽ Cad Khác Vào Bản Vẽ Hiện Thời đang Mở Thì Chúng Ta Viết Như Thế Nào.mà Chèn Tại 1 điểm

Của Bản Vẽ Khác

QUẢNG CÁO ĐẦU TRANG

Thông báo

VBA in CAD! Nhờ giúp đỡ!

VBA in CAD! Nhờ giúp đỡ!

Ghi chú

Ghi chú

Ghi chú

Ghi chú

Quảng cáo cuối trang