Trang 1 trên 1

Menu AndDesign

Đã gửi: T.Năm 24/11/16 22:33
gửi bởi xquang
Em có một số tiện ích nho nhỏ dùng trong cad, viết code bằng VBA. Để tiện cho anh em sử dụng em có làm một menu (Tên Menu là TNXQ9). Code menu cũng viết bằng VBA.
Để tự động load menu mỗi khi khởi động em có chèn đoạn code sau vào file acad2008doc.lsp (em đang dùng cad 2008) của cad:

(defun S::STARTUP()
(command "-vbarun" "E:/BDC-TDC/MenuTN.dvb!Menu.AddMenuTN")
)

Việc chèn đoạn code vào file này đã xảy ra tình trạng là khởi động AndDeisgn không được, tức chỉ lên dạng cad thông thường mà không tải được And (cũng không xuất hiện Menu And luôn).
Và dĩ nhiên khi loại đoạn Code trên thì And trở lại bình thường.
Vậy cho em hỏi vì sao như vậy?
Em muốn menu tiện ích của em "sống chung" với And có được không?
Mong thầy hỗ trợ giúp. Cám ơn rất nhiều.

Re: Menu AndDesign

Đã gửi: T.Sáu 25/11/16 22:19
gửi bởi Viet Hai
Tại thư mục cài của ANDDesign có tệp acad.lsp trong đó cũng có hàm defun S::STARTUP()
Bạn cho nội dung (command "-vbarun" "E:/BDC-TDC/MenuTN.dvb!Menu.AddMenuTN") vào trong đó thử coi

Re: Menu AndDesign

Đã gửi: T.Bảy 26/11/16 1:16
gửi bởi xquang
Việc này thì em đã làm rồi, Menu thì tải được nhưng khổ nổi các lệnh tắt trong tiện ích nó lại không hiểu mới bất tiện. CHỉ có thể dùng chuột Click trên menu mới thực hiện lệnh được.
Ví dụ đoạn code cài đặt lệnh tắt sau:
(defun C:TKKL() (command "-vbarun" "E:/BDC-TDC/3in1.dvb!Module2.THKL"))
Thì đoạn code trên chỉ có thể để trong Acad2008doc.lsp nó mới hiểu. Còn để vào Acad.lsp thì không tải được. Thật bất tiện.
Không biết có cách nào không?
Thầy và các anh em trong diễn đàn này nếu biết có cách cho "bọn nó sống chung" xin chỉ dẫn ạ.