1. Trang chủ
  2. » Cao đẳng - Đại học

Phát triển AutoCAD bằng ActiveX & VBA - Chương 10: Kỹ thuật vẽ nâng cao và tổ chức bản vẽ

10 9 0

Đang tải... (xem toàn văn)

THÔNG TIN TÀI LIỆU

Thông tin cơ bản

Định dạng
Số trang 10
Dung lượng 799,51 KB

Nội dung

2 B ả n v ẽ Vector : là bản vẽ thể hiện theo kiểu đồ họa hướng đối tượng, trong đó các đối tượng hình học được lưu trữ và xử lý bởi các phương trình, công thức toán học.[r]

(1)

Phát triển ứng dụng ActiveX VBA ||224477 K

K TTHHUUTT VV NNÂÂNNGG CCAAOO VVÀÀ T

T CCHHCC BBNN VV

10

Trong chương này

ƒ Làm việc với ảnh Raster ƒ Sử dụng Khối Thuộc

tính

ƒ Sử dụng Tham chiếu ngoài

ƒ Kết nối Khôi phục lại dữ liệu mở rộng

(2)

2

24488| Chương 10: Kỹ thuật vẽ nâng cao tổ chức vẽ | 1 Làm vic vi nh Raster

Có thể chèn ảnh raster1 vào vẽ AutoCAD (là vẽ dạng vector2 ), sau lưu lại Có nhiều lý cần kết hợp ảnh dạng Raster với tệp dạng véc tơ, bao gồm tài liệu quét lại, fax, sử dụng ảnh kỹ thuật số, ảnh hàng không, ảnh vệ tinh, tạo hiệu ứng hình mờ lơ gơ, chèn ảnh máy tính tạo từ chương trình biểu diễn hình ảnh trực quan AutoVision

1.1 Ảnh Raster vẽ

Ảnh Raster bao gồm lưới hình vng có kích thước nhỏ điểm biết đến điểm ảnh (pixel) Ví dụ ảnh ngơi nhà gồm hàng loạt điểm màu biểu diễn hình ảnh Mỗi ảnh Raster tương ứng với điểm ảnh lưới định

Ảnh Raster giống đối tượng khác vẽ AutoCAD chép, dịch chuyển hay cắt xén Ảnh có thểđược thay đổi, điều chỉnh độ tương phản hay cắn xén ảnh theo đường bao hình chữ nhật đa giác AutoCAD hỗ trợ

1Ảnh Raster: ảnh kiểu ánh xạ bit hay ảnh dạng mành, hình ảnh thể chấm nhỏ riêng biệt

(3)

Phát triển AutoCAD ActiveX VBA ||224499

hầu hết định dạng tệp ảnh sử dụng phổ biến ứng dụng kỹ thuật ảnh chủ yếu như: đồ hoạ máy tính, quản lý vẽ, đồ, hệ thống thông tin địa lý (GIS) Các ảnh Bitonal1, xám 8-bit, màu 8-bit, hoặc màu 24-bit Một số định dạng tệp ảnh hỗ trợ ảnh tạo chấm điểm suốt Khi ảnh suốt mở, AutoCAD nhận điểm ảnh cho phép đối tượng đồ họa hình AutoCAD “nhìn xuyên” qua điểm ảnh (Trong ảnh Bitonal, điểm ảnh coi suốt) Ảnh suốt thường có màu sắc thuộc dải màu xám

Mặc dù phần đuôi mở rộng liệt kê AutoCAD nhận dạng từ nội dung tệp chứa ảnh từ phần mở rộng tệp

Các định dạng ảnh hỗ trợ AutoCAD

Loại Mô tả phiên Phần mở rộng

BMP Windows and OS/2 bitmap format bmp, dib, rle

CALS-I Mil-R-Raster I gp4, mil, rst, cg4, cal GeoSPOT GeoSPOT ( tệp .bil phải kèm với tệp .hdr

.pal với tệp liệu liên quan thư mục)

.bil

IG4 Image Systems Group ig4 IGS Image Systems Grayscale igs JPEG Joint Photographics Expert Group jpg FLIC FLIC Autodesk Animator Animation flc, fli PCX Picture PC Paintbrush Picture pcx PICT Picture Macintosh Picture pct PNG Portable Network Graphic png RLC Run Length Compressed rlc TARGA True Vision Raster-Based Data Format tga TIF Tagged Image Format tif

1.2 Đính kèm đặt tỷ lệ ảnh Raster

Ảnh đặt tệp vẽ chúng thực phần vẽ Chúng liên kết với tệp vẽ thông qua đường dẫn ID

(4)

2

25500| Chương 10: Kỹ thuật vẽ nâng cao tổ chức vẽ |

tệp quản lý liệu Đường dẫn tệp ảnh bị thay đổi bị xoá lúc Sử dụng đường dẫn để gắn ảnh vào vẽ làm tăng không đáng kể dung lượng vẽ Để gắn ảnh, trước hết cần tạo đối tượng Raster vẽ phương thức AddRaster Phương thức yêu cầu tham sốđầu vào: tên tệp ảnh đính kèm, điểm chèn ảnh vẽ, tỷ lệ phóng đại góc quay ảnh Chú ý đối tượng Raster liên kết độc lập ảnh ảnh

Một ảnh Raster có thểđính kèm nhiều lần vào vẽ lần đính kèm tương ứng cần tạo đối tượng Raster Mỗi phần đính kèm có đường bao riêng thơng số độ sáng tối, tương phản, độđậm nhạt, độ suốt riêng Một ảnh đơn cắt thành nhiều phần xếp lại cách độc lập vẽ

Có thể gán tỷ lệ co giãn ảnh Raster tạo đối tượng Raster để tỷ lệ hình học ảnh phù hợp với tỷ lệ hình học vẽ Khi chọn ảnh đểđính kèm, ảnh sẽđược chèn vào với tỷ lệ đơn vịđo ảnh đơn vị vẽ Để thiết lập tỷ lệ phóng đại cho ảnh cần biết đơn vị đo (inches, feet, metres…) sử dụng đơn vị vẽ AutoCAD Tệp ảnh thiết phải có thơng tin độ phân giải xác định DPI (Dots Per Inche: sốđiểm inch) số điểm ảnh Nếu ảnh có thơng tin vềđộ phân giải, AutoCAD kết hợp giá trịđó với tỷ lệ co giãn đơn vịđo AutoCAD sử dụng vẽ Ví dụ: ảnh raster thiết kế quét với tỷ lệ: cm ảnh 6m (600 cm) thực tế, tức tỷ lệ 1:600; vẽ sử dụng đơn vị cm cm đơn vị vẽ tỷ số phóng đại ảnh lập cách gán giá trị cho thông số ScaleFactor

phương thức AddRaster 600 Khi AutoCAD chèn ảnh với tỷ lệ phù hợp

với đối tượng hình học vẽ vector

CHÚ Ý Nếu khơng có thơng số vềđộ phân giải cho tệp ảnh đính kèm AutoCAD tính bề rộng gốc ảnh đơn vị Sau chèn ảnh, bề rộng ảnh hệđơn vịđo AutoCAD với hệ số phóng đại

Đính kèm ảnh Raster

Ví dụ chèn ảnh Raster vào khơng gian mơ hình, ảnh chứa tệp

watch.jpg đặt thư mục Sample Nếu khơng tìm tệp ảnh đặt thư mục khác cần gán tên đường dẫn đầy đủ tệp ảnh có sẵn cho biến imageName

Sub Ch10_AttachingARaster()

Dim insertionPoint(0 To 2) As Double Dim scalefactor As Double

Dim rotationAngle As Double Dim imageName As String

Dim rasterObj As AcadRasterImage

imageName = "C:/Acad2000/sample/watch.jpg" insertionPoint(0) =

insertionPoint(1) = insertionPoint(2) = scalefactor =

rotationAngle =

On Error GoTo ERRORHANDLER

(5)

Phát triển AutoCAD ActiveX VBA ||225511

Set rasterObj = ThisDrawing.ModelSpace.AddRaster_

(imageName, insertionPoint,scalefactor, rotationAngle) ZoomAll

Exit Sub ERRORHANDLER:

MsgBox Err.Description End Sub

1.3 Quản lý ảnh Raster

Có thể thay đổi tên ảnh, tên tệp đường dẫn tệp thơng qua thuộc tính đối tượng Raster

1.3.1. Thay đổi đường dẫn tệp

Đường dẫn tên tệp ảnh lấy thay đổi thuộc tính

ImageFile Đường dẫn tạo thuộc tính đường dẫn thật để AutoCAD

tìm kiếm ảnh

Nếu AutoCAD định vị vẽ (ví dụ trường hợp vẽ bị chuyển chỗ khác sau tên tệp gán cho thuộc tính ImageFile)

nó xố thông tin vềđường dẫn tương đối hay tuyệt đối chứa tên tệp (ví dụ, \images\tree.tga hoặc c:\myproject\images\tree.tga sẽ chuyển thành tree.tga) tìm đường dẫn định nghĩa phương thức SetProjectFilePathcủa đối

tượng Preferences Nếu vẽ khơng định vị theo đường dẫn,

dùng đường dẫn tìm lại Có thể xố đường dẫn tên tệp đường dẫn tương đối cách gán lại thuộc tính ImageFile

Thay đổi đường dẫn thuộc tính ImageFile khơng ảnh hưởng đến thiết lập tìm

kiếm đường dẫn tệp dự án 1.3.2. Đặt tên ảnh

Tên ảnh không thiết trùng với tên tệp ảnh Khi đính kèm ảnh vào vẽ, AutoCAD sử dụng tên tệp không bao gồm phần mở rộng làm tên ảnh Có thể thay đổi tên ảnh mà khơng làm ảnh hưởng đến tên tệp ảnh Tệp ảnh thể thơng qua thuộc tính ImageFilecủa đối tượng Raster Thay đổi

thuộc tính ImageFilesẽ dẫn đến thay đổi ảnh vẽ Tên ảnh thể

bởi thuộc tính Namevà thay đổi thuộc tính Namethì thay đổi tên ảnh mà

khơng ảnh hưởng đến tệp liên kết với ảnh

1.4 Hiệu chỉnh ảnh đường biên

Tất ảnh có đường biên Khi đính ảnh vào vẽ, đường biên ảnh kế thừa thuộc tính thiết lập bao gồm: màu, lớp, kiểu đường tỷ lệ kiểu đường Nếu định dạng ảnh bitonal màu ảnh màu đường biên Cũng đối tượng khác AutoCAD, hiệu chỉnh ảnh thuộc tính đường biên sau:

ƒ Hiển thị dấu đường biên

(6)

2

25522| Chương 10: Kỹ thuật vẽ nâng cao tổ chức vẽ |

ƒ Đặt tỷ lệ, góc quay thay đổi chiều cao, chiều rộng ảnh ƒ Bật tắt chếđộ hiển thị ảnh

ƒ Thay đổi độ suốt ảnh

ƒ Thay đổi độ sáng tối, tương phản độ mờ

ƒ Thay đổi chất lượng tốc độ hiển thịảnh 1.4.1.Hiển thị che giấu đường biên ảnh

Giấu đường biên sẽđảm bảo ảnh bị dịch chuyển hay hiệu chỉnh cách ngẫu nhiên đường biên không in hiển thị Khi đường biên bị giấu đi, phần ảnh cắt biểu diễn theo giới hạn đường biên xác định, có đường biên chịu ảnh hưởng Khi chọn hiển thị hay không hiển thị đường biên ảnh tức hiển thị khơng hiển thịđường biên tồn ảnh vẽ

Để hiển thị dấu đường biên ảnh, sử dụng thuộc tính ClippingEnabled

CHÚ Ý Thuộc tính tác động lên đường biên ảnh Để nhìn thấy thay đổi ảnh bật tắt thuộc tính cần quan sát kỹđường viền nhỏ xung quanh ảnh 1.4.2.Thay đổi lớp ảnh, màu kiểu đường đường biên Có thể thay đổi màu kiểu đường đường biên ảnh lớp ảnh cách sử dụng thuộc tính sau:

Layer Xác định layer ảnh

Color Xác định màu đường biên

Linetype Xác định kiểu đường đường biên

1.4.3.Thay đổi tỷ lệ, góc quay, vị trí, bề rộng chiều cao ảnh Có thể thay đổi tỷ lệ, góc quay, vị trí, bề rộng chiều cao ảnh cách sử dụng phương thức thuộc tính sau:

ScaleEntity Đặt tỷ lệảnh Rotate Quay ảnh

(7)

Phát triển AutoCAD ActiveX VBA ||225533

Width Xác định bề rộng ảnh theo pixel Height Xác định chiều cao ảnh theo pixel

ImageWidth Xác định bề rộng ảnh theo đơn vị sở liệu ImageHeight Xác định bề rộng ảnh theo đơn vị sở liệu ShowRotation Quyết định ảnh raster hiển thị quay hay không 1.4.4. Thay đổi chếđộ nhìn thấy ảnh

Chế độ nhìn thấy ảnh tác động tới tốc độ vẽ lại việc ảnh vẽ Các ảnh bị giấu hay in mà thể đường biên ảnh Gán giá trị FALSE cho thuộc tính ImageVisibility để

không hiển thịảnh gán TRUE để hiển thịảnh trở lại

1.4.5. Thay đổi màu ảnh Bitonal độ suốt

Ảnh Raster dạng Bitonal ảnh gồm màu tiền cảnh màu Khi đính ảnh dạng vào vẽ, điểm tiền cảnh ảnh kế thừa toàn thiết lập màu sắc lớp Bên cạnh thay đổi thực với ảnh đính kèm, thay đổi ảnh Bitonal cách chuyển màu chữ bật tắt chếđộ suốt màu

CHÚ Ý Ảnh Bitonal đường biên ln có màu

Để thay đổi màu tiền cảnh ảnh Bitonal, sử dụng thuộc tính Color

Để bật tắt chếđộ suốt, sử dụng thuộc tính Transparency

1.4.6. Điều chỉnh độ sáng tối, tương phản độ mờ

Có thể điều chỉnh độ sáng tối, tương phản độ mờ AutoCAD để biểu diễn ảnh in ảnh mà không làm ảnh hưởng đến tệp ảnh Raster ban đầu Điều chỉnh độ sáng tối để thay đổi độ sáng ảnh Điều chỉnh độ tương phản để làm cho ảnh có chất lượng dễ xem Điều chỉnh độ mờđể hình học biểu diễn theo dạng Vector dễ nhìn so với ảnh tạo hiệu ứng vệt nước in Sử dụng thuộc tính sau để thực điều chỉnh đó:

Brightness Xác đinh mức sáng tối ảnh Contrast Xác đinh mức độ tương phản ảnh Fade Xác đinh mức độ mờ ảnh

1.5 Cắt xén ảnh

(8)

2

25544| Chương 10: Kỹ thuật vẽ nâng cao tổ chức vẽ |

Cắt ảnh đường bao cắt hình chữ nhật Ảnh nhận sau cắt

Các bước thực cắt ảnh

1 Bật đường biên ảnh thuộc tính ClippingEnabled

2 Xác định đường biên cắt thực cắt với phương thức ClipBoundary Phương thức yêu cầu tham sốđầu vào mảng kiểu variant1

toạđộ hệ toạđộ 2D WCS để xác định đường biên cắt ảnh 1.5.1.Thay đổi đường biên cắt

Đểđổi đường biên cắt có sẵn cần lặp lại bước nêu trên, đường biên cũ bị xoá đường biên thay thếđường biên cũ

1.5.2.Hiển thị không hiển thịđường biên cắt

Ảnh cắt từảnh ban đầu có thểđược hiển thị với đường biên cắt; giấu đường bao cắt hiển thị đường biên ảnh gốc Để giấu đường biên cắt hiển thị ảnh gốc, thực gán thuộc tính ClippingEnabled

FALSE Và ngược lại để biểu diễn ảnh cắt gán thuộc tính thành TRUE

Cắt đường biên ảnh Raster

Ví dụ chèn ảnh raster vào khơng gian mơ hình Sau thực cắt ảnh đường biên cắt Ví dụ sử dụng tệp ảnh có tên downtown.jpg lưu thư mục Sample chương trình Nếu khơng tìm thấy tệp thư mục nói tệp lưu thư mục khác dùng tệp ảnh khác cách gán tên đường dẫn tệp cho biến imageName

Sub Ch10_ClippingRasterBoundary()

Dim insertionPoint(0 To 2) As Double Dim scalefactor As Double

Dim rotationAngle As Double Dim imageName As String

Dim rasterObj As AcadRasterImage

imageName = "C:\AutoCAD\sample\downtown.jpg" insertionPoint(0) =

insertionPoint(1) = insertionPoint(2) =

(9)

Phát triển AutoCAD ActiveX VBA ||225555

scalefactor = rotationAngle =

On Error GoTo ERRORHANDLER

’ Tạo ảnh raster khơng gian mơ hình Set rasterObj = ThisDrawing.ModelSpace.AddRaster _

(imageName, insertionPoint,scalefactor, rotationAngle) ZoomAll

’ Xây dựng đường biên cắt mảng điểm Dim clipPoints(0 To 9) As Double

clipPoints(0) = 6: clipPoints(1) = 6.75 clipPoints(2) = 7: clipPoints(3) = clipPoints(4) = 6: clipPoints(5) = clipPoints(6) = 5: clipPoints(7) = clipPoints(8) = 6: clipPoints(9) = 6.75 ’ Cắt ảnh

rasterObj.ClipBoundary clipPoints ’ Cho phép thể đường biên cắt rasterObj.ClippingEnabled = True ThisDrawing.Regen acActiveViewport Exit Sub

ERRORHANDLER:

MsgBox Err.Description End Sub

2 S dng khi thuc tính

AutoCAD hỗ trợ số đặc tính giúp quản lý đối tượng vẽ Với khối, tổ chức thao tác với nhiều đối tượng đối tượng Các thuộc tính liên kết với mục thông tin khối vẽ, ví dụ: số lượng giá Sử dụng tham chiếu ngồi AutoCAD đểđính kèm ghi đè toàn vẽ khác lên vẽ Khi mở vẽ tồn thay đổi vẽ mà tham chiếu đến sẽđược cập nhật

2.1 Làm việc với khối

Một khối tập hợp nhiều đối tượng liên kết với để tạo thành đối tượng độc lập khối tham chiếu Các khối tham chiếu có thểđược chèn, phóng đại xoay vẽ Các khối tham chiếu có thểđược tách thành đối tượng thành phần để sửa đổi định nghĩa lại khối AutoCAD cập nhật thay đổi sử dụng khối lần sau dựa vào định nghĩa khối Các khối giúp tổ chức hợp lý trình vẽ Ví dụ khối sử dụng trường hợp sau:

ƒ Xây dựng thư viện chuẩn ký hiệu, cấu kiện, phận chuẩn thường dùng để chèn khối tham chiếu nhiều lần thay tạo lại thành phần chúng sử dụng

ƒ Sửa lại vẽ cách hiệu cách chèn thêm, định vị lại chép khối cấu kiện thực đối tượng hình học riêng lẻ

(10)

2

25566| Chương 10: Kỹ thuật vẽ nâng cao tổ chức vẽ |

Mỗi chèn khối vào vẽ lần tạo tham chiếu đến khối, cần đặt hệ số phóng đại góc quay cho khối chèn Khối phóng đại với tỷ lệ khác theo hướng khác cách nhập giá trị phóng đại theo trục toạđộ (X,Y,Z)

Giá trị mặc định Tỷ lệ theo trục X= 0.5

Tỷ lệ theo trụcY= TTỷỷ l lệệ theo tr theo trụục X= cY= 0.5 Góc quay= 45 Các khối giúp tổ chức thao tác vẽ cách hệ thống nên thiết lập, thiết kế lại xếp đối tượng vẽ thông tin liên kết với chúng

2.1.1.Làm việc với lớp, màu sắc, kiểu đường

Khối có thểđược định nghĩa từ đối tượng vẽ từ ban đầu lớp khác với màu kiểu đường khác Các khối giữ ngun thuộc tính đối tượng Do đó, chèn khối đối tượng khối sẽđược vẽ lớp, màu sắc kiểu đường ban đầu chúng

Khi tham chiếu khối chứa đối tượng vẽ từ lớp (với màu kiểu đường gán BYLAYER) đặt vào lớp hành nhận màu kiểu đường lớp hành Các thuộc tính lớp hành thay màu sắc kiểu đường gán cho khối tham chiếu

Lớp kích thước mẫu tô

Lớp bulông

Lớp đối tượng

Tất lớp

Khi tham chiếu khối chứa đối tượng mà màu kiểu đường gán

BYBLOCK sẽđược vẽ với màu kiểu đường thiết lập chèn khối Nếu màu

Ngày đăng: 10/03/2021, 13:55

w