Ðề: Ebook VBA

Mình chưa có. Anfrohel có thể gửi cho mình được không? Email của mình : kthung78@yahoo.com

Ðề: Ebook VBA

Biếu các Bác vài file dùng thủ.

Ðề: Ebook VBA

Minh chua co ban gui cho minh voi
hai_cv_02d1@yahoo.com.vn

Ðề: Ebook VBA

Anfrohel có thể gửi cho mình được không? Email của mình : hai_cv_02d1@yahoo.com.vn
Minh cam on nhieu

Ðề: Ebook VBA

gửi cho mình với :email của mình là Thienthan152002@yahoo.com

Ðề: Ebook VBA

anh có thê gửi cho em với mail của em là bui_tiendung2003@yahoo.com
À tại nhà sách nhân văn đối diện nhà sách nguyẽn thị minh khai trên đường ngthminh khai có bán cuốn VBA bằng tiếng việt đó
anh em nào có nhu cầu thì tới đó nhé
À nhà sách này giảm giá 30% cho mọi sách đó
Zo đi anh em !

Ðề: Ebook VBA

Chao cac Bac, em moi tham gia dien dan duoc vai hom, cung mau me cai mon VBA lam nhung toan danh "chay" thoi, toan tu nghien hoc.Em co lap dc 1 chuong trinh tu dong in ban ve trong Cad chi can chon khung la in tuot bao nhieu cung dc(Tuy vao kha nang chiu nhiet cua may in).Bac nao can thi lien he nhe(dung thu cung phat trien).
Muc dich chu yeu len la de tham gia hoc hoi va trao doi.Em rat muon xin tai lieu "AutoCAD 2004 VBA programmer reference" cua Bac (anfrohel).Bac gui cho em nhe hpd181@yahoo.com

Ðề: Ebook VBA

Apress
AutoCAD 2006 VBA: A Programmer’s Reference
Copyright © 2005 by Joe Sutphin

Mọi người down nhanh lên nhá, ko là ..."xoá mất đấy!!!"

http://rapidshare.de/files/26254530/..._Book.rar.html

Ðề: Ebook VBA

Chị Hương à!
Em có đọc được rất nhiều bài viết của chị về VBA in autocad.Em thấy chị rât có kinh nghiệm về VBA
Hiện nay em đang tự học VBA mà sách thì em tìm mãi những rất khó.Em đến các hiệu sách chuyên bán sách xây dựng cũng ko có.
Vậy chị có thể chỉ cho em chỗ mua sách ở Hà Nội hoặc tư vấn cho em sách nào hay đc ko chị!
Email của em là spear_britney49@yahoo.com
Em cảm ơn

Ðề: Ebook VBA

Chao ban PhanTuHuong, minh cung rat me cai mon VBA. Ban co the gui cho minh duoc khọng. Dia chi hpd181@yahoo.com

Ðề: Ebook VBA

Các cao thủ VBA giúp em cái!!!!
Em mới tập tành cái này thôi nên có gì yếu kém các bác chỉ giúp em.
Bây giờ em muốn chọn 1 line = cách selectonscreen sau đó em lấy luôn cái line này để dựng kích thước = kiểu .adddimalign nhưng em ko gán được cái line vừa chọn as acadline để lấy điểm đầu, điểm cuối để vẽ kích thước ,các bác xem guíp em có cách nào ko nhé!

Private Sub CommandButton5_Click()

Dim objdimension As AcadDimension
Dim objDimStyle As AcadDimStyle
Dim setobjonscr As AcadSelectionSet
Dim objline As AcadLine
Dim fristpoint, endpoint, midpoint As AcadPoint
Set setobjonscr = ThisDrawing.SelectionSets.Add("VBA")
setobjonscr.SelectOnScreen
Set objline = setobjonscr.Item(AcadLine)
Set firstpoint = objline.StartPoint
Set endpoint = objline.endpoint
Set midpoint = ThisDrawing.Utility.GetPoint(, vbCr & "chon diem cho text")
Set objdimension = ThisDrawing.ModelSpace.AddDimAligned(firstpoint, endpoint, midpoint)
objdimension.Update

End Sub

các bác kiểm tra cho em với (nếu có gì ko phải xin các bác chỉ giáo)

Ðề: Ebook VBA


Đoạn code trên tôi viết lại như sau :

Private Sub CommandButton5_Click()
Dim objdimension As AcadDimension
Dim objDimStyle As AcadDimStyle
Dim setobjonscr As AcadSelectionSet
Dim objline As AcadLine
Dim firstpoint, endpt, midpoint
Set setobjonscr = ThisDrawing.SelectionSets.Add("VBA")
setobjonscr.SelectOnScreen
Set objline = setobjonscr.Item(AcadLine)
firstpoint = objline.StartPoint
endpt = objline.endpoint
midpoint = ThisDrawing.Utility.GetPoint(, vbCr & "Chon diem cho text")
Set objdimension = ThisDrawing.ModelSpace.AddDimAligned(firstpoint, endpt, midpoint)
objdimension.Update
setobjonscr.Delete
End Sub

Bác nên lưu ý 1 vài vấn đề như sau :
1/ Dim fristpoint, endpoint, midpoint As AcadPoint --> dòng này thật ra máy chỉ khai báo duy nhất biến sau cùng là midpoint là AcadPoint, các biến trước máy sẽ tự khai báo là Variant (theo tôi biết).
2/ Bác nên xem kỹ phần help để khai báo biến cho đúng, ở đoạn code trên 3 biến FirstPt, MidPt và EndPt bác phải khai báo là "Variant", cái này tôi xem cách khai báo biến trong phần help/example của StartPoint và GetPoint.
3/Set firstpoint = objline.StartPoint
Set endpoint = objline.endpoint
Set midpoint = ThisDrawing.Utility.GetPoint(, vbCr & "chon diem cho text")
Các dòng trên không dùng Set khi gán biến, bác xem phần help/example của StartPoint và GetPoint.
4/ Bác không nên đặt tên biến trùng với 1 số hàm, biến, ... của chương trình, biến Endpoint mà bác dùng trùng với điểm endpoint property của line.

Tôi cũng tự học thôi (chủ yếu là đọc phần help của chương trình), không phải cao thủ gì hết, có gì mong được các bác chỉ bảo thêm.

Ðề: Ebook VBA

Cảm ơn bác bkxd98.Em vừa làm theo bác bảo thấy được luôn.
Mặc dù đây chỉ là đoạn code nhỏ nhưng bác đã chỉ cho em nhiều cái cơ bản mà em ko biết.
Em cũng muốn hỏi bác cái này.Em có đọc phần help của VBA nhưng tại sao em ko tìm được các ví dụ của nó như phần help/example như bác bảo.
Em có search có tìm trong tab index và tab content của phần help nhưng ko thấy cách khai báo getpoint ,adddimalign vv...và nhiều cái khác nữa.Nó chỉ có mấy cái chung chung như các phương thức (method) getfilename ,getdriver method thôi chứ ko có cái em cần
Em tìm mãi mà tiếng anh của em cũng khá, em dịch được hầu như toàn bộ mà ko thể nào tim đc mấy
CÁc bác giúp em cái!!!!!!!!!!

Ðề: Ebook VBA

Sao có cái trang google gi đó.Các bác vào tìm thử xem.Em thấy rất hiệuquả. Em hay làm thế này này : "getpoint"+"code VBA"+"Autocad"......