Đến nội dung


Hình ảnh
- - - - -

Làm thế nào để load một file .lsp vào trong aCad bằng VBA hoặc vb6.0


  • Please log in to reply
4 replies to this topic

#1 rungxanhonline

rungxanhonline

    biết zoom

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

Đã gửi 27 March 2010 - 07:58 PM

Mình có một file *.lsp mình muốn dùng code VBA để load file này vào trong Autocad thì phải viết code thế nào.

Thank các bạn!
  • 0

#2 hoa35ktxd

hoa35ktxd

    biết lệnh move

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

Đã gửi 28 March 2010 - 06:44 PM

Tôi chưa nghiên cứu sâu về VBA trong CAD nhưng theo tôi: Nếu như bạn đã biết về Lisp rồi thì việc load file lisp bằng VBA có thể sử dụng chức năng sendcommand kết hợp với hàm vl-vbaload của lisp để load. Trong VBy6 chắc cũng tương tự.
  • 0

#3 rungxanhonline

rungxanhonline

    biết zoom

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

Đã gửi 29 March 2010 - 10:25 AM

Có bác nào biết cấu trúc lệnh Load trong send command như thế nào không nhỉ? Load một file .lsp ở D:\\lisp.lsp đó.
  • 0

#4 nvson

nvson

    biết vẽ ellipse

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

Đã gửi 02 April 2010 - 04:07 PM

Bạn thử nhé:
Public Sub Load_Lsp()
ThisDrawing.SendCommand "(load ""ABCD.lsp"")" & vbCr
End Sub

  • 1

#5 Phiphi-

Phiphi-

    biết lệnh minsert

  • Members
  • PipPipPipPipPipPip
  • 434 Bài viết
Điểm đánh giá: 175 (tàm tạm)

Đã gửi 12 June 2010 - 10:31 AM

Bạn thử nhé:

Public Sub Load_Lsp()
ThisDrawing.SendCommand "(load ""ABCD.lsp"")" & vbCr
End Sub

Nhờ bác nvson chỉ giúp đoạn code dùng để run lệnh của cái Lisp vừa load đó và code để chạy 1 script trong 1 folder nào đó (thí dụ: C:\Tools\Drawings\test1.scr)
Cám ơn nhiều.
  • 0