dinhtuyendevil 0 Báo cáo bài đăng Đã đăng Tháng 12 18, 2012 mình có 1 chương trình viết bằng vba. giờ muốn gọi lệnh trên cad trên chương trình vba mình để một hàm Sub Start() UserForm.Show End Sub sau đó mình tạo một lisp (defun C:ve1() (command "-VBARUN""start") ) sau đó chạy cad. Nhưng khi mình gõ lệch "ve1" thi trên cad cứ báo Macro not found. Command: nil ko biết mình làm sai ở đâu. ai đó biết làm ơn chỉ giúp mình xin cám ơn 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
garupro 7 Báo cáo bài đăng Đã đăng Tháng 12 28, 2012 (defun C:ve1 (/) (command "-vbarun" "Start") ) Mà khi load lisp có load luôn cái file dvb vào ko vậy ??????? 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
nguyendan81985 3 Báo cáo bài đăng Đã đăng Tháng 11 13, 2013 mình cũng làm như bạn mà ko đc nhỉ. khi load lisp mình cũng load luôn cái file .dvb vào luôn. vẫn báo là: Macro not found. Command: nil giúp mình tí nhé. thanks 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
Namvanvo 44 Báo cáo bài đăng Đã đăng Tháng 11 13, 2013 bạn gửi file .dvb lên mình xem thử, hình như trong câu lệnh này (command "-vbarun" "Start") thì bị thiếu module name bạn sửa lại thành (command "-vbarun" "module name.sub name") 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
nguyendan81985 3 Báo cáo bài đăng Đã đăng Tháng 11 13, 2013 đây bạn ơi. xem giúp mình tí nhé. thanks http://www.cadviet.com/upfiles/3/125152_autoshopdrawing.zip 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
HungDHXD 6 Báo cáo bài đăng Đã đăng Tháng 11 13, 2013 Bạn thêm đoạn mã sau vào module1 trong file DVB của mình : Sub main() AutoShopDrawing.show End Sub ** Tạo 1 lisp : (defun C:Main() (command "-VBARUN" "main") ) --> load cả 2 file DVD và lisp trên vào : gõ lệnh Main ===> thưởng thức và báo kết quả Sub main() AutoShopDrawing.show Sub main() AutoShopDrawing.show Sub main() AutoShopDrawing.show End Sub (defun C:Main() (command "-VBARUN" "main") ) Sub main() AutoShopDrawing.show End Sub Sau đó tạo 1 lisp với nội dung như sau : (defun C:Main() (command "-VBARUN" "main") ) ****==> load cả 2 file DVB, và lisp trên vào Tại autocad gõ lệnh Main --> và thưởng thức !!! 1 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
nguyendan81985 3 Báo cáo bài đăng Đã đăng Tháng 11 13, 2013 mình đã làm được. thanks bạn nhiều nhé. 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