Gọi form vba bằng lisp

[dinhtuyendevil 0]

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

[garupro 7]

(defun C:ve1 (/)

(command "-vbarun" "Start")

)

 

Mà khi load lisp có load luôn cái file dvb vào ko vậy ???????

[nguyendan81985 3]

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

[Namvanvo 44]

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")

[nguyendan81985 3]

đây bạn ơi. xem giúp mình tí nhé. thanks

http://www.cadviet.com/upfiles/3/125152_autoshopdrawing.zip

[HungDHXD 6]

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 !!!

[nguyendan81985 3]

mình đã làm được. thanks bạn nhiều nhé.