Chuyển đến nội dung
Diễn đàn CADViet

kysu2tung

Thành viên
 Xem Hồ Sơ  Xem hoạt động của họ

  • Số lượng nội dung

    9

  • Đã tham gia

  • Lần ghé thăm cuối

Bài đăng được đăng bởi kysu2tung

  1. Đã đăng · Trả lời báo cáo

    kkkkkkk giang hồ tứ hải giai huynh đệ kkkkkkkkkk

    Tại hạ có tự tay viết một bản bằng VBA, xong dùng Lisp để tạo lệnh có thể gọi được cái VBA đó từ command line của AutoCad

    Mục đích ban đầu là để nghiên cứu chơi thôi, không dè được một số cao thủ sử dụng và cho ý kiến phản hồi nên được cập nhật thường xuyên

    Email của tại hạ là đây: kysu2tung@yahoo.com

    Các hạ nào quan tâm thì nhào vô đàm đạo 

    Bái biệt, hẹn ngày tái ngộ

     

     

  2. Đã đăng · Trả lời báo cáo

    Hiện nay đã có MathCad Prime 5.0 và tại hạ đang xài rất ư là đã.

    Tuy nhiên về Ebooks hiện chỉ có MathCad Prime 3.0 thôi

    Links:

    https://www.mediafire.com/file/ve0eebk09bcjzxo/Essential_PTC%28r%29_Mathcad_Prime%28_-_Maxfield%2C_Brent.pdf/file

    http://www.mediafire.com/file/7k83itd23atmedx/51637321-Essential-Mathcad-for-Engineering-Science-and-Math.pdf/file

     

    Bái biệt hẹn ngày tái ngộ   

  8. Đã đăng · Trả lời báo cáo

    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é

  9. Đã đăng · Trả lời báo cáo

    Hello các Bác,

    Tui mới tham gia diễn đàn thấy các Bác thảo luận về VBA trong Cad nhiều nên cũng ngứa miệng góp vào vài câu.

    Tui xem lướt qua diễn đàn, thấy các vấn đề được các Bác thảo luận đều có trong sách

    AutoCAD 2006 VBA: A Programmer's Reference (Programmer's Reference)

    của Joe Sutphin

     

    Sách này tui tải từ

    http://www.flazx.com/ebook4207.php

     

    Click vào các link download phía dưới nhé.

    Chịu khó đọc vì là tiếng Anh

     

    Tui đang tìm cách upload cho các Bác

    Bye bye

×