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
-
Ðề: 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
-
Ðề: 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ỉ!
Leave a comment:
-
Ðề: 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 SubLeave a comment:
-
Ðề: 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???
Leave a comment:
-
VBA in CAD! Nhờ giúp đỡ!
Em có 1 cái bình đồ giới hạn trong rec(0,0;aaa,bbb) (trong nó gồm các dtext ghi cao độ).
Em muốn hỏi các bác là trong VBA có hàm nào có thể giúp em làm 2 việc sau không nhé:
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à)
Em có đọc help rồi nhưng nhiều quá, chưa tìm ra được, Bác nào biết thì cho em biết tên hàm được không?
Thank các bác trước nhé!
--
Best Regards!Last edited by nguyenthehungsan; 13-07-2006, 02:21 PM.
Leave a comment: