Đến nội dung


Hình ảnh
- - - - -

Làm thế nào sử dụng file *.dvb như *.lsp!


  • Please log in to reply
6 replies to this topic

#1 xuanthu189

xuanthu189

    biết zoom

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

Đã gửi 01 March 2009 - 11:03 PM

Các bác chỉ giùm em xem có cách nào đặt lệnh để chạy file ap của VBA như lisp ko?(Tức là ta ap file *.dvb rồi gõ lệnh trong cửa sổ command để chạy ứng dụng VBA ấy)!
Mong sớm hồi đáp!
  • 0

#2 phantuhuong

phantuhuong

    biết dimstyle

  • Moderator
  • PipPipPipPipPip
  • 383 Bài viết
Điểm đánh giá: 200 (khá)

Đã gửi 04 March 2009 - 10:03 AM

Các bác chỉ giùm em xem có cách nào đặt lệnh để chạy file ap của VBA như lisp ko?(Tức là ta ap file *.dvb rồi gõ lệnh trong cửa sổ command để chạy ứng dụng VBA ấy)!
Mong sớm hồi đáp!


Cái này đã có trên diễn đàn rồi, bạn tìm kiếm nhé.
  • 0
Bồi dưỡng Excel & VBA cho các đơn vị ở Hà Nội và khu vực lân cận

Từng bước loại đồ Tàu ra khỏi cuộc sống!


#3 xuanthu189

xuanthu189

    biết zoom

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

Đã gửi 04 March 2009 - 10:39 AM

Cái này đã có trên diễn đàn rồi, bạn tìm kiếm nhé.

Em đọc rồi.Câc bác ấy làm rối tung hết cả lên.Cuối cùng e thử tất cả các cách ấy đều ko được.Giờ em vẫn đang mò mẫm đây.Bác phantuhuong biết thì chỉ giùm em cái!thanks bác trước
  • 0

#4 kysu2tung

kysu2tung

    biết pan

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

Đã gửi 29 July 2009 - 06:45 PM

Em đọc rồi.Câc bác ấy làm rối tung hết cả lên.Cuối cùng e thử tất cả các cách ấy đều ko được.Giờ em vẫn đang mò mẫm đây.Bác phantuhuong biết thì chỉ giùm em cái!thanks bác trước


He he he,
KIến thức về LISP của tui rất bèo
về VBA có khá hơn chút đỉnh
Tui có viết một đoạn LISP load file dvb lên rồi chạy một macro trong file dvb

Tất nhiên là phải load lsp bình thường trước

_________________________
(defun c:sk()
(command "_-vbaload" "C:\\SK\\Input_Data.dvb") ; load file dvb, bác đổi đường dẫn cho phù hợp nhé
(princ)
(command "_-vbarun" "NHT_Main") ; chạy macro NHT_Main do tui viết trong dvb
(princ)
)

Tuy nhiên, chạy lần đầu thì không sao, lần thứ hai nó sẽ báo là file dvb đã được load , rất phiền nên tui làm theo kiểu nông dân
trước khi load dvb của mình tui đóng hết các dvb đang mở


----------------------
(defun Gvba ()

(vl-load-com) ;requires automation links

(if (and

;Drill down to the Projects object
(setq oApp (vlax-get-acad-object))
(setq oVBE (vla-get-vbe oApp))
(setq oProjs (vlax-get oVBE "VBProjects"))
)

;Loop through Projects object
(repeat (setq N (vla-get-count oProjs))

;get the item at position N
(setq oProj (vla-item oProjs N)

;get the name property,
;add it to the list.
Nams (cons
(list
(vlax-get oProj "Name")
(vlax-get oProj "FileName")
) Nams) N (1- N)))
)

; return list of names
Nams

);defun

(defun UNLOADALLVBA ()

(setq VBAProjs (Gvba))

(foreach VBAProj VBAProjs

(command "_VBAUNLOAD" (cadr VBAProj)))
)
; phần này tui viết
(defun c:sk()
(UNLOADALLVBA)
(command "_-vbaload" "C:\\SK\\Input_Data.dvb") ; load file dvb, bác đổi
(princ)
(command "_-vbarun" "NHT_Main")
(princ)
)
----------------------


Bác thử xem coi có được không nhé
  • 0

#5 qdzung

qdzung

    biết zoom

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

Đã gửi 29 March 2010 - 12:24 AM

Bạn nên add cả 2 file lisp và dvb vào mục startup suit của Application load của CAD, lúc đó file lisp chỉ cần 1 dòng gọi chạy macro :D
  • 0

#6 anonmyous

anonmyous

    biết vẽ arc

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

Đã gửi 26 August 2010 - 08:20 AM

Có 1 điều em hơi thắc mắc là : có bắt buộc phải tạo marco mới chạy được VBA hay ko ? có cách nào để load dvb bình thường rồi chạy trực tiếp các hàm xử lý trong dvb đó ko ?
  • 0

#7 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5682 Bài viết
Điểm đánh giá: 2605 (tuyệt vời)

Đã gửi 31 August 2010 - 09:48 AM

Thì bạn gõ vbarun rồi chọn module ^^ Nhưng như thế khéo còn lâu hơn tạo lệnh tắt từ lisp
  • 1

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC