Pick 1 điểm bất kỳ - nhận text lân cận!

[phuonghuynhduy 4]

Hi all!

Mình có thấy lisp coorn.lsp trên diễn đàn dùng để pick tọa độ rồi xuất sang excel có 1 đoạn. Mình pick tọa độ 1 điểm bất kỳ, nó lậy tọa độ điểm pick và lấy được text lân cận (gần nhât).

Mình muốn viết bang VBA - mong các bạn giúp.

Thx

[dinhvantrang 151]

Gửi bạn đoạn code này nhé.

http://www.cadviet.com/upfiles/3/37575_selectatpoint.txt

 

Sub SelecAtPoint ()

Dim YourPoint(0 to 2) as double

Dim Setobj as acadselectionset

Dim SetColl as acadselectionsets

Dim dxfcode(0) as Integer

dxfcode(0) = 0

Dim dxfdata(0) as variant

dxfdata(0) = "Text"

With thisdrawin

Set Setcoll =.Selectionsets

For each setObj in SetColl

if SetObj.name = "Myselectionset" then

.Selectionsets.Item("Myselectionset").Delete

Exit for

End if

Next

Set Setobj =.Selectionsets.Add("Myselectionset")

 

End With

Dim P1(0 to 2) as double

Dim P2(0 to 2) as double

P1(0) = YourPoint(0) + 1:P1(1) = YourPoint(1) + 1

P2(0) = YourPoint(0) - 1:P2(1) = YourPoint(1) - 1

SetObj.select acSelectionsetCrossing,P1,P2,dxfcode,dxfdata

End Sub