Đến nội dung


Hình ảnh
- - - - -

Đo khoảng cách (VBA trong cad)


  • Please log in to reply
6 replies to this topic

#1 hungklc

hungklc

    Chưa sử dụng CAD

  • Members
  • Pip
  • 2 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 17 May 2013 - 02:17 PM

Ai cho mình hỏi lệnh đo khoảng cách vuông góc từ 1 điểm đến 1 đường thẳng trong vba autocad như thế nào vậy?

Mình có 1 đường polyline và 1 đường thẳng. Giờ mình muốn viết 1 vba để đo khoảng cách của các đỉnh polyline đến đường thằng kia (Khoảng cách vuông góc).

Tks


  • 0

#2 gia_bach

gia_bach

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1436 Bài viết
Điểm đánh giá: 1426 (rất tốt)

Đã gửi 17 May 2013 - 03:54 PM

Lệnh thì VBA không có.

Tuy nhiên có thể viết hàm cho nó :

- bài toán của bạn là : tìm chân đường cao của tam giác khi biết tọa độ 3 đỉnh 

(điểm 1 là đỉnh của Pline, 2 điểm còn lại là 2 đầu của đường thẳng)

dùng kiến thức hình học lớp 8-9 giải được rồi, khỏi cần đạo hàm tích phân nhé.


  • 0

#3 anhcos

anhcos

    biết lệnh hatchedit

  • Advance Member
  • PipPipPipPip
  • 260 Bài viết
Điểm đánh giá: 170 (tàm tạm)

Đã gửi 17 May 2013 - 04:36 PM

Trong VBA, đường thẳng qua 2 điểm p1 và p2 sẽ có vector chỉ phương là mảng gồm 3 phần tử nằm trong thuộc tính Normal (A,B,C) của đối tượng.

Khoảng cách từ M(x,y,z) đến p1p2 tính theo công thức:

 

Tính các giá trị sau:

- Tích có hướng giữa Normal và vector đi qua (M,p1), sau đó tính giá trị tuyệt đối của vector tích, goi đó là V1

- Trị tuyệt đối của vector chỉ phương: V2 = Sqrt(A*A + B*B + C*C)

 

D = V1/V2

 

Công thức này áp dụng cho 2D và cả 3D (Theo sách HHKG lớp 12)


  • 0
Clear sky!

MF Rock collection.

#4 hungklc

hungklc

    Chưa sử dụng CAD

  • Members
  • Pip
  • 2 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 17 May 2013 - 09:15 PM

Cám ơn 2 bạn nhiều

Đang tập viết vba trong cad nên có nhiều cái khó quá :)

Mà cái cad lại ko có kiểu record vba giống excell :D

Để tui thử, có j khó lại lên hỏi các bác tiếp.


  • 0

#5 nguyendan81985

nguyendan81985

    biết vẽ circle

  • Members
  • PipPip
  • 30 Bài viết
Điểm đánh giá: -3 (bình thường)

Đã gửi 13 November 2013 - 08:57 AM

hi. mình đag viết một VBA vẽ shop drawing tự động. và khi xuất ra bản vẽ thì bao gồm cả kích thước.

bạn nào biết code để lấy kích thước 2 điểm thì giúp mình với nhé. thanks


  • 0

#6 NguyenNgocSon

NguyenNgocSon

    biết dimbaseline

  • Members
  • PipPipPipPipPip
  • 368 Bài viết
Điểm đánh giá: 39 (tàm tạm)

Đã gửi 13 November 2013 - 12:35 PM

Cái ý tưởng của bạn lớn quá ?

Mà những cái cơ bản bạn còn chưa nắm vững sao mà viết được?

Bạn nên tìm hiểu trước về VBA, các đoạn code đơn giản sau đó mới ráp nối được vào chương trình lớn

Chúc bạn thành công.


  • 0

#7 nguyendan81985

nguyendan81985

    biết vẽ circle

  • Members
  • PipPip
  • 30 Bài viết
Điểm đánh giá: -3 (bình thường)

Đã gửi 13 November 2013 - 08:35 PM

Cái ý tưởng của bạn lớn quá ?

Mà những cái cơ bản bạn còn chưa nắm vững sao mà viết được?

Bạn nên tìm hiểu trước về VBA, các đoạn code đơn giản sau đó mới ráp nối được vào chương trình lớn

Chúc bạn thành công.

chương trình của mình viết cũng gần xong rồi. và cái dimension cũng đã làm đc. nhưng ko biết chỉnh các thông số của dimension như thê nào. vd như mũi tên, font chữ, cỡ chữ....

bạn biết thì giúp mình với. thanks


  • 0