Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
1 reply to this topic

#1 phuonghuynhduy

phuonghuynhduy

    biết vẽ line

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

Đã gửi 25 June 2013 - 10:58 AM

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


  • 0

#2 dinhvantrang

dinhvantrang

    biết lệnh copy

  • Members
  • PipPipPip
  • 117 Bài viết
Điểm đánh giá: 26 (tàm tạm)

Đã gửi 25 June 2013 - 04:31 PM

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

http://www.cadviet.c...lectatpoint.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

  • 0

Thanks and Best Regards

Skype : dinhvantrang73