Chuyển đến nội dung
Diễn đàn CADViet
Đăng nhập để thực hiện theo  
phuonghuynhduy

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

Các bài được khuyến nghị

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

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

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

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay
Đăng nhập để thực hiện theo  

×