Cách chọn đối tượng trong SendCommand

[phantuhuong 218]

Tôi sử dụng VBA để thực hiện công việc Break đối tượng, nhưng VBA lại không hỗ trợ. Vì vậy chuyển sang dùng SendCommand. Cái khổ là SendCommand chỉ nhận chuỗi, không nhận object (gán bằng VBA là nó báo lỗi). Mò mãi vẫn chưa ra, dùng cả phương thức ObjectID hỗ trợ cũng không được.

 

 

Không hiểu có bác nào biết cách không?

 

Sub Example_SendCommand()
  ' This example sends a command for evaluation to the AutoCAD command line
  ' of a particular drawing 

  ' Create a Circle in the active drawing and 
  ' zoom to display the entire circle
  ThisDrawing.SendCommand "_Circle" & vbCr & "2,2,0" & vbCr & "4" & vbCr
  ThisDrawing.SendCommand "_zoom" & vbCr & "a" & vbCr

  ' Refresh view
  ThisDrawing.Regen acAllViewports

  MsgBox "A circle command has been sent to the command line of the current drawing."
End Sub

[anhcos 196]

Kẹt lắm mới dùng đến SendCommand.

 

Tôi chưa dùng cái lệnh break này bao giờ, bạn tham khảo chỗ này xem ntn:

http://forums.augi.com/showthread.php?t=58553

[phantuhuong 218]

Kẹt lắm mới dùng đến SendCommand.

 

Tôi chưa dùng cái lệnh break này bao giờ, bạn tham khảo chỗ này xem ntn:

http://forums.augi.com/showthread.php?t=58553

 

Tôi cũng đã thử thục này nhưng thấy nó chạy vẫn chưa được ổn.