tạo đối tượng hình học

[anh_tuan88 0]

Bác nào cho em hỏi: em muốn viết lệnh tao một đường thẳng mà mình chỉ một điểm trên Cad va nhập khoảng cách la ok.

Thanks trước!!!

[gia_bach 1.549]

Bác nào cho em hỏi: em muốn viết lệnh tao một đường thẳng mà mình chỉ một điểm trên Cad va nhập khoảng cách la ok.

Thanks trước!!!

Để vẽ đuờng thẳng cần :

- 2 điểm (điểm đầu và điểm cuối)

- hoặc điểm đầu, khoảng cách và góc của đuờng thẳng đó.

 

Với điều kiện của bạn : chỉ một điểm trên Cad va nhập khoảng cách, làm sao xác định đuợc đuờng thẳng?

[anh_tuan88 0]

thanks! bác chi giúp code câu lệnh này:" điểm đầu, khoảng cách và góc của đuờng thẳng " để tạo đường thẳng

[gia_bach 1.549]

thanks! bác chi giúp code câu lệnh này:" điểm đầu, khoảng cách và góc của đuờng thẳng " để tạo đường thẳng

Tham khao :

Public Sub TestDrawLine()
   Dim varpnt1 As Variant
   Dim varpnt2 As Variant
   Dim dblAngle As Double
   Dim dblLength As Double

   With ThisDrawing.Utility
       varpnt1 = .GetPoint(, vbCr & "Diem dau : ")
       dblLength = .GetDistance(varpnt1, vbCr & "Nhap chieu dai : ")
       dblAngle = .GetAngle(varpnt1, vbCr & "Nhap goc : ")

       varpnt2 = .PolarPoint(varpnt1, dblAngle, dblLength)
   End With

   With ThisDrawing
       .ModelSpace.AddLine varpnt1, varpnt2
   End With

End Sub

[anh_tuan88 0]

Các bác cho em hỏi: em đang thao tác với SelectionSet để copy một mặt cắt chữ T (vẽ bằng AcadLWPolyline và Acadline) bằng phương thức Select rồi dùng lệnh copy nhưng viết code rồi mà không được (nếu được cũng bị đứt đoạn).bác nào chỉ giúp ?!?