Phát triển AutoCAD bằng ActiveX & VBA - Chương 3 potx

Phát triển ứng dụng ActiveX và VBA | | 6 6 1 1 Đ Đ I I Ề Ề U U K K H H I I Ể Ể N N M M Ô Ô I I T T R R Ư Ư Ờ Ờ N N G G A A u u t t o o C C A A D D 3 Trong chương này  Mở, Lưu và Đóng các bản vẽ  Thiết lập các lựa chọn trong AutoCAD  Điều khiển cửa sổ ứng dụng  Điều khiển cửa sổ bản vẽ  Thiết lập lại các đối tượng hiện hành  Gán và lấy biến hệ thống  Vẽ với độ chính xác cao  Nhắc người dùng nhập dữ liệu  Truy xuất dòng lệnh của AutoCAD  Thao tác khi không mở bản vẽ nào  Nhập vào các định dạng khác  Xuất sang các định dạng khác Chương này trình bày những vấn đề cơ bản cần biết để xây dựng một ứng dụng trong AutoCAD cũng như sẽ giải thích rõ cách thức điều khiển môi trường AutoCAD và cách làm việc hiệu quả trong môi trường này. 6 6 2 2 | | Chương 3: Điều khiển môi trường AutoCAD 1. Mở, Lưu và Đóng các bản vẽ Tập Documents và đối tượng Document cho phép thực hiện các hàm liên quan đến tệp trong AutoCAD. Để tạo một bản vẽ mới, hoặc mở một bản vẽ đã có, ta phải sử dụng các phương thức trong tập đối tượng Documents. Phương thức Add sẽ tạo một bản vẽ mới và thêm bản vẽ đó vào tập đối tượng Documents. Phương thức Open sẽ mở một bản vẽ đã có. Ngoài ra còn có phương thức Close trong tập đối tượng Documents dùng để đóng tất các các bản vẽ đang mở trong phiên làm việc của AutoCAD. Để lưu, nhập hoặc xuất một bản vẽ, ta sử dụng các phương thức của đối tượng Document: Save, Save As, Import và Export. 1.1. Mở bản vẽ Ví dụ sau sử dụng phương thức Open để mở một bản vẽ đã có. Hàm Dir của Visual Basic dùng để kiểm tra sự tồn tại của tệp trước khi tiến hành mở bản vẽ. Ta nên thay đổi tên bản vẽ hoặc đường dẫn để chỉ đến một bản vẽ đã có trong hệ thống. Sub Ch3_OpenDrawing() Dim dwgName As String dwgName = "c:\Program Files\acad2000\sample\campus.dwg" If Dir(dwgName) <> "" Then ThisDrawing.Application.Documents.Open dwgName Else MsgBox "File " & dwgName & " does not exist." End If End Sub 1.2. Tạo bản vẽ mới Ví dụ này sử dụng phương thức Add để tạo một bản vẽ mới dựa trên khuôn thức mặc định. Sub Ch3_NewDrawing() Dim docObj As AcadDocument Set docObj = ThisDrawing.Application.Documents.Add End Sub 1.3. Lưu bản vẽ Có thể dụng phương thức Save hoặc Save As để lưu bản vẽ. Lưu bản vẽ hiện hành Ví dụ sau sẽ lưu bản vẽ hiện hành sử dụng tên tệp sẵn có đồng thời cũng lưu bản vẽ với một tên khác. Sub Ch3_SaveActiveDrawing() ’ Lưu bản vẽ hiện hành sử dụng tên tệp sẵn có ThisDrawing.Save ’ Lưu bản vẽ sử dụng tên khác ThisDrawing.SaveAs "MyDrawing.dwg" End Sub Phát triển AutoCAD bằng ActiveX và VBA | | 6 6 3 3 Thông thường, khi ta muốn kiểm tra xem bản vẽ hiện hành có lưu những thay đổi hay chưa trước khi thoát khỏi phiên làm việc của AutoCAD hoặc khi bắt đầu một bản vẽ mới, hãy sử dụng thuộc tính Saved để kiểm tra chắc chắn rằng bản vẽ đã lưu những thay đổi trước đó. Kiểm tra xem bản vẽ đã lưu hay chưa Ví dụ sau sẽ kiểm tra xem bản vẽ đã được lưu hay chưa và sẽ hỏi người dùng xem có đồng ý để lưu bản vẽ hay không (Nếu không đồng ý, sẽ thoát khỏi chương trình). Nếu đồng ý, sẽ sử dụng phương thức Save để lưu bản vẽ hiện hành. Sub Ch3_TestIfSaved() If Not (ThisDrawing.Saved) Then If MsgBox("Do you wish to save this drawing?", _ vbYesNo) = vbYes Then ThisDrawing.Save End If End If End Sub 2. Thiết lập các lựa chọn trong AutoCAD Có chín đối tượng gắn với các lựa chọn khác nhau, mỗi đối tượng tương ứng với một thẻ trong hộp thoại Options. Thông qua các đối tượng này, ta có thể truy cập được tất cả các dữ liệu về lựa chọn được lưu giữ trong hộp thoại Options. Do vậy, người lập trình có thể tuỳ biến các thiết lập trong AutoCAD thông qua các thuộc tính có trong những đối tượng đó. Chín đối tượng này bao gồm:  PreferencesDisplay  PreferencesDrafting  PreferencesFiles  PreferencesOpenSave  PreferencesOutPut  PreferencesProFile  PreferencesSelection  PreferencesSystem  PreferencesUser Tất cả các đối tượng trên đều có thể được truy xuất thông qua đối tượng Preferences. Để có được quyền truy cập đến đối tượng Preferences, ta sử dụng thuộc tính Preferences của đối tượng Application như sau: Truy xuất đối tượng Preference Dim acadPref As AcadPreferences Set acadPref = ThisDrawing.Application.Preferences Sau đó, người lập trình có thể truy xuất đến bất kỳ đối tượng Preferences nào sử dụng các thuộc tính Display, Drafting, Files, OpenSave, Output, Profile, Selection, 6 6 4 4 | | Chương 3: Điều khiển môi trường AutoCAD System và User. Ví dụ: người lập trình có thể điều chỉnh kích thước của dấu thập con trỏ với thuộc tính CursorSize. Thiết lập kích thước dấu thập con trỏ thành toàn màn hình Ví dụ này thiết lập kích thước dấu thập con trỏ thành toàn màn hình acadPref.Display.CursorSize=100 Người lập trình có thể muốn ứng dụng của mình kích hoạt hoặc vô hiệu hoá một số tính năng nào đó trong giao diện AutoCAD. Hiển thị screen menu 1 và các thanh cuộn Ví dụ sau đây kích hoạt screen menu và vô hiệu hoá các thanh cuộn sử dụng thuộc tính DisplayScreenMenu và DisplayScrollBars acadPref.Display.DisplayScreenMenu = True acadPref.Display.DisplayScrollBars = False 2.2. Lựa chọn về CSDL Ngoài 9 đối tượng Preferences, đối tượng DatabasePrefernces bao gồm những lựa chọn được lưu trong bản vẽ. Đối tượng tách biệt này được dùng để chứa các lựa chọn lưu cùng bản vẽ sử dụng cho các ứng dụng truy xuất vào trong bản vẽ AutoCAD mà không cần phải có trước chương trình AutoCAD (ứng dụng ObjectDBX TM 2 ). Đối tượng DatabasePreferences nằm trong đối tượng Document. 3. Điều khiển cửa sổ ứng dụng Khả năng điều khiển cửa sổ ứng dụng đem đến cho người phát triển ứng dụng tính linh hoạt để tạo ra những chương trình thật hiệu quả và thông minh. Sẽ có những lúc ứng dụng cần phải thu nhỏ cửa sổ AutoCAD, có lẽ là lúc chương trình thực hiện các thao tác trong các chương trình khác, chẳng hạn như Excel. Thêm nữa, ta cũng cần phải thường xuyên kiểm tra trạng thái của cửa sổ ứng dụng AutoCAD trước khi thực hiện các thao tác, chẳng hạn như nhắc nhập liệu từ người dùng. Bằng cách sử dụng các phương thức và thuộc tính trong đối tượng Application, ta có thể thay đổi vị trí, kích thước và tính nhìn thấy của cửa sổ ứng dụng. Ngoài ra ta cũng có thể thu nhỏ hoặc phóng to cửa sổ ứng dụng, kiểm tra trạng thái hiện hành của cửa sổ. 1 Screen menu: là một dạng trình đơn được tổ chức theo phương thẳng đứng của màn hình (thường ở bên phải) để thực hiện các chức năng hỗ trợ cho lệnh đang thực thi của AutoCAD. 2 ObjectDBX TM , hiện nay đã được đổi tên thành RealDWG, là thư viện phần mềm cho phép người phát triển C++ và .NET thực hiện các thao tác đọc và ghi tệp AutoCAD DWG và DXF mà không cần phải cài đặt chương trình AutoCAD. Phát triển AutoCAD bằng ActiveX và VBA | | 6 6 5 5 3.1. Thay đổi vị trí và kích thước của cửa sổ ứng dụng Người lập trình còn có thể sử dụng đối tượng Application để điều chỉnh vị trí và kích thước của cửa sổ ứng dụng AutoCAD. Định vị trí cửa sổ ứng dụng Ví dụ dưới đây sử dụng thuộc tính WindowTop, WindowLeft, Width, và Height để định vị trí của cửa sổ ứng dụng AutoCAD ở góc trên bên trái của màn hình và định kích thước của cửa sổ là 400 điểm theo chiều rộng và 400 điểm theo chiều cao. Sub Ch3_PositionApplicationWindow() ThisDrawing.Application.WindowTop = 0 ThisDrawing.Application.WindowLeft = 0 ThisDrawing.Application.Width = 400 ThisDrawing.Application.Height = 400 End Sub 3.2. Thu phóng cửa sổ ứng dụng AutoCAD Cửa sổ AutoCAD có thể được thu nhỏ hoặc phóng to bằng cách sử dụng thuộc tính WindowState. Những ví dụ sau minh hoạ điều này. Phóng to cửa sổ ứng dụng ThisDrawing.Application.WindowState = acMax Thu nhỏ cửa sổ ứng dụng ThisDrawing.Application.WindowState = acMin 3.3. Xác định trạng thái hiện hành của cửa sổ AutoCAD Trạng thái hiện hành của cửa sổ AutoCAD có thể xác định được bằng cách sử dụng thuộc tính WindowState. Xác định trạng thái hiện hành của cửa sổ ứng dụng Ví dụ sau sẽ truy vấn trạng thái của cửa sổ ứng dụng và hiển thị trạng thái cửa sổ trong một hộp thông báo. Sub Ch3_CurrentWindowState() Dim CurrWindowState As Integer Dim msg As String CurrWindowState = ThisDrawing.Application.WindowState msg = Choose _ (CurrWindowState, "Bình thường", "Thu nhỏ", "Phóng to") MsgBox "Trạng thái hiện hành của cửa sổ là: " + msg End Sub 3.4. Ẩn cửa sổ ứng dụng Có thể ẩn cửa sổ ứng dụng khỏi màn hình của người dùng. Ẩn cửa sổ ứng dụng Đoạn mã sau sử dụng thuộc tính Visible để ẩn cửa sổ ứng dụng: ThisDrawing.Application.Visible = False 6 6 6 6 | | Chương 3: Điều khiển môi trường AutoCAD 4. Điều khiển cửa sổ bản vẽ Cũng giống như cửa sổ ứng dụng AutoCAD, ta có thể thu nhỏ, phóng to, định lại vị trí, thay đổi kích thước và kiểm tra trạng thái của bất kỳ một cửa sổ bản vẽ nào. Tuy nhiên, ta còn có thể thay đổi cách thức thể hiện bản vẽ trong cửa sổ bằng cách sử dụng các phương thức về cảnh nhìn (views), khung nhìn (viewports) và thu phóng (zooming). AutoCAD ActiveX cung cấp nhiều cách thức thể hiện bản vẽ. Ta có thể điều khiển sự hiển thị của bản vẽ để di chuyển nhanh đến những vùng khác nhau của bản vẽ trong khi có thể theo dõi toàn bộ hiệu ứng của các thay đổi. Ngoài ra cũng có thể thay đổi độ phóng đại của bản vẽ hoặc trượt bản vẽ để định lại vị trí quan sát trong vùng đồ hoạ, lưu cảnh nhìn và khôi phục lại khi cần để in hoặc tham khảo đến một chi tiết cụ thể nào đó, hoặc thể hiện vài cảnh nhìn cùng một lúc bằng cách phân màn hình thành vài khung nhìn xếp cạnh nhau. 4.1. Thay đổi vị trí và kích thước của cửa sổ bản vẽ Sử dụng đối tượng Document để điều chỉnh vị trí và kích thước của các cửa sổ bản vẽ. Định vị trí của cửa sổ bản vẽ Ví dụ sau sử dụng thuộc tính Width và Height để thiết lập kích thước cửa sổ bản vẽ hiện hành với bề rộng 400 điểm và chiều cao 400 điểm. ThisDrawing.Width = 400 ThisDrawing.Height = 400 4.2. Thu phóng cửa sổ bản vẽ Cửa sổ bản vẽ có thể được thu nhỏ hoặc phóng to sử dụng thuộc tính WindowState. Phóng to cửa sổ bản vẽ hiện hành ThisDrawing.WindowState = acMax Thu nhỏ cửa sổ bản vẽ hiện hành ThisDrawing.WindowState = acMin 4.3. Xác định trạng thái hiện hành của cửa sổ bản vẽ Có thể xác định cửa sổ hiện hành của cửa sổ bản vẽ bằng cách sử dụng thuộc tính WindowState. Xác định trạng thái hiện hành của cửa sổ bản vẽ hiện hành Sub Ch3_CurrentWindowState() Dim CurrWindowState As Integer Dim msg As String CurrWindowState = ThisDrawing.WindowState msg = Choose(CurrWindowState, "Bình thường", "Thu nhỏ", "Phóng to") MsgBox "Trạng thái hiện hành của cửa sổ bản vẽ là " + msg End Sub Phát triển AutoCAD bằng ActiveX và VBA | | 6 6 7 7 4.4. Sử dụng chức năng thu phóng Cảnh nhìn là sự quan sát bản vẽ với độ phóng đại, vị trí và hướng nhất định. Cách phổ biến nhất để thay đổi cảnh nhìn là sử dụng một trong rất nhiều lựa chọn trong lệnh Zoom để tăng hay giảm kích thước hình ảnh hiển thị trong vùng đồ hoạ. Phóng hình ảnh ra để quan sát chi tiết gọi là phóng to. Còn thu hình ảnh lại để quan sát tổng quát hơn gọi là thu nhỏ. Thu nhỏ (Zoom out) Phóng to (Zoom in) Phóng to không thay đổi kích thước tuyệt đối của bản vẽ, chỉ thay đổi kích thước thể hiện trong vùng đồ hoạ. AutoCAD đưa ra nhiều cách để thay đổi cảnh nhìn, bao gồm xác định vùng hiển thị, phóng đại đến một tỷ lệ nhất định và thể hiện toàn bộ bản vẽ. 4.4.1. Xác định cửa sổ phóng đại Người lập trình có thể nhanh chóng phóng đại một vùng trên bản vẽ bằng cách xác định góc định vị cho vùng đó. Cửa sổ phóng đại Cảnh nhìn ban đầu Cảnh nhìn mới Vùng được xác định bằng góc định vị đã lựa chọn sẽ được canh vào giữa vùng đồ hoạ nếu vùng phóng đại không có kích thước tỷ lệ với khung nhìn hiện hành. Để thực hiện phóng đại một vùng theo đường bao cho trước, ta có thể sử dụng một trong hai phương thức ZoomWindow hoặc ZoomPickWindow. Phương thức ZoomWindow cho phép lập trình để định nghĩa hai điểm để làm cửa sổ bao. Còn phương thức ZoomPickWindow lại yêu cầu người dùng phải chọn hai điểm trên màn hình và hai điểm này sẽ trở thành điểm để làm cửa sổ bao. Phóng đại bản vẽ hiện hành theo một cửa sổ bao xác định bởi hai điểm Sub Ch3_ZoomWindow() MsgBox "Dùng phương thức ZoomWindow với:" & vbCrLf & _ "1.3, 7.8, 0" & vbCrLf & _ "13.7, -2.6, 0", , "ZoomWindow" Dim point1(0 To 2) As Double Dim point2(0 To 2) As Double point1(0) = 1.3: point1(1) = 7.8: point1(2) = 0 6 6 8 8 | | Chương 3: Điều khiển môi trường AutoCAD point2(0) = 13.7: point2(1) = -2.6: point2(2) = 0 ThisDrawing.Application.ZoomWindow point1, point2 MsgBox " Dùng phương thức ZoomPickWindow", , "ZoomPickWindow" ThisDrawing.Application.ZoomPickWindow End Sub 4.4.2. Tỷ lệ của cảnh nhìn Nếu cần tăng hoặc giảm mức phóng đại của hình ảnh theo một tỷ lệ chính xác, ta có thể thực hiện theo 3 cách:  Tương đối so với vùng giới hạn vẽ  Tương đối so với cảnh nhìn hiện hành  Tương đối so với đơn vị trang in Khi thay đổi tỷ lệ cảnh nhìn tương đối so với vùng giới hạn vẽ, chỉ cần nhập giá trị bằng 1 để hiện tất cả giới hạn của vùng vẽ trong vùng đồ hoạ và tất cả sẽ được canh giữa theo điểm giữa của cảnh nhìn trước đó. Để phóng to hay thu nhỏ, chỉ cần nhập vào số lớn hơn hoặc nhỏ hơn 1. Ví dụ, nhập vào số 2 sẽ cho cảnh nhìn lớn gấp 2 lần so với khi quan sát toàn bộ bản vẽ hoặc 0.5 khi cảnh nhìn chỉ bằng một nửa so với khi quan sát toàn bộ bản vẽ. Khi thay đổi tỷ lệ cảnh nhìn tương đối so với cảnh nhìn hiện hành, chỉ cần nhập vào số 2 để nhân đôi hay 0.5 để hiện chỉ một nửa kích thước so với cảnh nhìn hiện hành. Và đương nhiên nhập vào số 1 thì sẽ không có hiệu ứng gì. Khi thay đổi tỷ lệ cảnh nhìn tương đối so với đơn vị trang in, giá trị tỷ lệ nhập vào sẽ có thể tăng hoặc giảm cảnh nhìn tương đối so với tỷ lệ hiện tại trong không gian in và được sử dụng để thay đổi tỷ lệ của khung nhìn trước khi in. 4.4.2.1. Tạo cảnh nhìn theo tỷ lệ Để tạo cảnh nhìn theo tỷ lệ, phải sử dụng phương thức ZoomScaled. Phương thức này cần có hai thông số đầu vào: tỷ lệ và loại tỷ lệ. Tỷ lệ: đơn giản chỉ là một con số. Việc xử lý con số này trong AutoCAD phụ thuộc vào loại tỷ lệ được lựa chọn. Loại tỷ lệ sẽ xác định cách thức cần thể hiện theo tỷ lệ, bao gồm: tương đối so với vùng giới hạn vẽ, so với cảnh nhìn hiện hành, hay so với đơn vị trang in. Để thay đổi tỷ lệ tương đối so với vùng giới hạn vẽ, ta sử dụng hằng số acZoomScaledAbsolute. Để thay đổi tỷ lệ so với cảnh nhìn hiện hành, sử dụng hằng số acZoomScaledRelative. Để thay đổi tỷ lệ so với đơn vị trang in, sử dụng hằng số acZoomScaledRelativePSpace. Phóng đại bản vẽ hiện hành với tỷ lệ cho trước Sub Ch3_ZoomScaled() MsgBox "Perform a ZoomScaled using:" & vbCrLf & _ "Scale Type: acZoomScaledRelative" & vbCrLf & _ "Scale Factor: 2", , "ZoomScaled" Dim scalefactor As Double Dim scaletype As Integer scalefactor = 2 scaletype = acZoomScaledRelative Phát triển AutoCAD bằng ActiveX và VBA | | 6 6 9 9 ThisDrawing.Application.ZoomScaled scalefactor, scaletype End Sub 4.4.3. Căn giữa Ta có thể di chuyển một điểm nào đó trong bản vẽ vào giữa vùng đồ hoạ. Phương thức ZoomCenter rất hữu ích trong việc thay đổi tỷ lệ hiển thị của đối tượng và di chuyển đối tượng đó vào giữa khung nhìn. Ví dụ sau sẽ làm rõ cách sử dụng lệnh ZoomCenter để hiển thị đối tượng mà vẫn giữ nguyên tỷ lệ và ở mức phóng đại gấp hai lần: Điểm sẽ hiện ở trọng tâm Cảnh nhìn hiện hành ZoomCenter giữ nguyên tỷ lệ ZoomCenter sử dụng tỷ lệ 2x Bằng cách sử dụng ZoomCenter, ta có thể xác định tỷ lệ bằng cách nhập vào giá trị phóng đại so với cảnh nhìn hiện hành. Phóng đại bản vẽ hiện tại với chế độ căn giữa Sub Ch3_ZoomCenter() MsgBox "Perform a ZoomCenter using:" & vbCrLf & _ "Center 3, 3, 0" & vbCrLf & _ "Magnification: 10", , "ZoomCenter" Dim Center(0 To 2) As Double Dim magnification As Double Center(0) = 3: Center(1) = 3: Center(2) = 0 magnification = 10 ThisDrawing.Application.ZoomCenter Center, magnification End Sub 4.4.3.2. Hiển thị vùng giới hạn vẽ và vùng đối tượng Để hiển thị vùng quan sát dựa trên biên của bản vẽ hoặc vùng đối tượng trong bản vẽ, ta sử dụng phương thức ZoomAll, ZoomExtents, hoặc ZoomPrevious. 7 7 0 0 | | Chương 3: Điều khiển môi trường AutoCAD Phương thức ZoomAll sẽ hiển thị toàn bộ bản vẽ. Nếu có đối tượng vẽ ở ngoài vùng giới hạn vẽ, phương thức ZoomAll sẽ hiện thị toàn bộ các đối tượng. Nếu các đối tượng được vẽ bên trong vùng giới hạn vẽ, phương thức ZoomAll sẽ hiển thị toàn bộ vùng giới hạn vẽ. Phương thức ZoomExtents xác định tỷ lệ phóng đại dựa trên vùng đối tượng của khung nhìn hiện hành (không phải là cảnh nhìn hiện hành). Thông thường, toàn bộ khung nhìn hiện hành đều có thể nhìn thấy được, và do đó, kết quả là rất rõ ràng, trực quan. Tuy nhiên, khi sử dụng phương thức Zoom trong không gian mô hình trong khi đang làm việc trong khung nhìn của không gian in, nếu phóng to bên ngoài biên của khung nhìn trong không gian in thì có thể không nhìn thấy được một số khu vực đã phóng đại. Phương thức ZoomExtents sẽ thay đổi cảnh nhìn để có thể bao quát tất cả các đối tượng của bản vẽ hiện hành. Trong một vài trường hợp (đối với cả phương thức ZoomAll và phương thức ZoomExtents), điều này có thể sẽ kích hoạt quá trình tái tạo bản vẽ 1 . Quá trình tái tạo bản vẽ không được kích hoạt với các lớp đóng băng hoặc lớp đã bị tắt. Nếu bản vẽ không có đối tượng nào cả, phương thức ZoomExtents sẽ hiển thị vùng giới hạn vẽ. Cảnh nhìn hiện tại Phóng đại vùng đối tượng Phóng đại để thể hiện toàn bộ bản vẽ 1 Regeneration: quá trình tái tạo bản vẽ. Mục đích của quá trình tái tạo bản vẽ nhằm: phát sinh lại toàn bộ dữ liệu của bản vẽ, tính toán lại hệ toạ độ màn hình, tạo lại chỉ mục CSDL bản vẽ để tăng tốc độ hiển thị (tạo lại trình tự hiển thị) [...]... point of the ray is: " & _ rayObj.basePoint(0) & ", " & _ Phát triển AutoCAD bằng ActiveX và VBA | 81 End Sub rayObj.basePoint(1) & ", " & _ rayObj.basePoint(2) & vbCrLf & _ "The directional vector for the ray is: " & _ rayObj.DirectionVector(0) & ", " & _ rayObj.DirectionVector(1) & ", " & _ rayObj.DirectionVector(2), , "Edit Ray" 7.4 Tính toán điểm và các giá trị liên quan Bằng cách sử dụng các phương... MsgBox "Viewport: " & vport.Name & " is now active." & _ vbCrLf & "Lower left corner: " & _ LLCorner(0) & ", " & LLCorner(1) & vbCrLf & _ "Upper right corner: " & _ URCorner(0) & ", " & URCorner(1) Next vport End Sub 4.7 Cập nhật đặc tính hình học trong của sổ bản vẽ Rất nhiều thao tác mà ta thực hiện thông qua AutoCAD ActiveX Automation làm thay đổi những gì được hiển thị trong bản vẽ AutoCAD Không phải... MsgBox "The base point of the ray is: " & _ rayObj.basePoint(0) & ", " & _ rayObj.basePoint(1) & ", " & _ rayObj.basePoint(2) & vbCrLf & _ "The directional vector for the ray is: " & _ rayObj.DirectionVector(0) & ", " & _ rayObj.DirectionVector(1) & ", " & _ rayObj.DirectionVector(2), , "Edit Ray" ’ Thay đổi hướng cho tia Dim newVector(0 To 2) As Double newVector(0) = -1 newVector(1) = 1 newVector(2) =... hằng số sau, tương ứng với các kiểu cấu hình mặc định như đã được minh hoạ ở trên: acViewport2Horizontal, acViewport2Vertical, Phát triển AutoCAD bằng ActiveX và VBA | 73 acViewport3Left, acViewport3Right, acViewport3Horizontal, acViewport3Vertical, acViewport3Above, acViewport3Below, hoặc acViewport4 Ví dụ sau sẽ tạo ra một khung nhìn mới và sau đó phân chia khung nhìn thành hai cửa số xếp ngang Phân... Sub 9 Truy xuất dòng lệnh của AutoCAD Ta có thể gửi một lệnh trực tiếp đến dòng lệnh AutoCAD bằng cách sử dụng phương thức SendCommand Phương thức SendCommand sẽ gửi một chuỗi đơn đến dòng lệnh AutoCAD Chuỗi này phải chứa các đầy đủ các tham số theo trình tự thực thi của lệnh cần thực hiện Dấu cách hoặc mã ASCII tương đương với phím Phát triển AutoCAD bằng ActiveX và VBA | 87 ENTER trong chuỗi tương... tượng ThisDrawing sẽ làm phát sinh lỗi khi chạy chương trình (lỗi run-time) 88 | Chương 3: Điều khiển môi trường AutoCAD Để tránh lỗi này, ta sử dụng một hàm VBA là GetObject để tạo kết nối với AutoCAD khi không có bản vẽ nào được mở 11 Nhập vào các định dạng khác Ta có thể nhập các bản vẽ hoặc hình ảnh của các ứng dụng khác bằng cách thực hiện quá trình mở theo một định dạng nào đó AutoCAD có thể xử lý... khác nhau Việc hiển thị các khung nhìn như thế nào phụ thuộc vào số lượng và kích thước của 72 | Chương 3: Điều khiển môi trường AutoCAD các cảnh nhìn mà ta cần Minh hoạ sau thể hiện các kiểu cấu hình các khung nhìn mặc định: 2, xếp đứng 2, xếp ngang 3, xếp trái 3, xếp phải 3, xếp ngang 3, xếp đứng 3, xếp trên 3, xếp dưới 4 Để phân chia khung nhìn hiện hành, sử dụng phương thức Split Phương thức này cần... nhắc người dùng nhập vào 2 điểm, sau đó vẽ một đường thẳng nối hai điểm này lại Sub Ch3_GetPointsFromUser() Dim startPnt As Variant Dim endPnt As Variant Dim prompt1 As String Dim prompt2 As String Phát triển AutoCAD bằng ActiveX và VBA | 85 prompt1 = vbCrLf & "Enter the start point of the line: " prompt2 = vbCrLf & "Enter the end point of the line: " ’ Chọn điểm đầu tiên không có điểm cơ sở startPnt... hai thuộc tính đều cần phải gọi phương thức Update để cập nhật hiển thị trong AutoCAD Phát triển AutoCAD bằng ActiveX và VBA | 77 Thay đổi điểm cơ sở và góc quay bắt điểm Ví dụ sau sẽ thay đổi điểm cơ sở thành (1,1) và góc bắt điểm thành 30 độ Hệ thống lưới được bật lên để ta có thể nhìn thấy được những thay đổi trên Sub Ch3_ChangeSnapBasePoint() ’ Bật hệ thống lưới trong khung nhìn hiện hành ThisDrawing.ActiveViewport.GridOn... tượng Views bằng cách chỉ ra tên cảnh nhìn cần xoá Xoá một cảnh nhìn từ bản thân đối tượng View ViewObj.Delete Xoá cảnh nhìn từ tập đối tượng Views ThisDrawing.Views(“View1”).Delete 1 Đường tạm (Construction line): là một loại đối tượng của AutoCAD và thường được dùng để giúp vẽ các đối tượng khác được chính xác Phát triển AutoCAD bằng ActiveX và VBA | 71 4.6 Sử dụng các khung nhìn xếp cạnh nhau AutoCAD . Sub Ch3_ZoomWindow() MsgBox "Dùng phương thức ZoomWindow với:" & vbCrLf & _ "1 .3, 7.8, 0" & vbCrLf & _ " 13. 7, -2 .6, 0", , "ZoomWindow". MsgBox "Viewport: " & vport.Name & " is now active." & _ vbCrLf & "Lower left corner: " & _ LLCorner(0) & ", " & LLCorner(1) &. Ch3_ZoomCenter() MsgBox "Perform a ZoomCenter using:" & vbCrLf & _ "Center 3, 3, 0" & vbCrLf & _ "Magnification: 10", , "ZoomCenter" Dim Center(0