(vl-load-com)
(defun LAST_LOAD(/ path)
  (setq path (vl-registry-read
           (strcat "HKEY_CURRENT_USER\\"
               (vlax-product-key)
               "\\Profiles\\"
               (vla-get-activeprofile (vla-get-profiles (vla-get-preferences (vlax-get-acad-object))))
               "\\Dialogs\\Appload"
          )
          "MainDialog"
             )
  )
  (if path
    (progn
      (setq path (substr path 1 (- (strlen path) 1)))
      (if (not (vl-string-search Path (getenv "ACAD")))
    (setenv "ACAD" (strcat (getenv "ACAD") ";" Path))
      )
    )
  )
  (princ)
  (princ)
)
(LAST_LOAD)
 

;--------------------------+ Load Dll theo từng phiên bản AutoCAD
(setq v (atof (getvar 'AcadVer)))
(cond
  ((<= v 21.0) 
   (command "netload" "zCAD2015_2017.dll")) ; AutoCAD 2015-2017

  ((<= v 26.0) 
   (command "netload" "Zcad.dll")) ; AutoCAD 2018-2026
   
  ((<= v 26.1) 
   (command "netload" "Zcad_NET10.dll"))      ; AutoCAD 2027

  (t 
   (command "netload" "Zcad_NET10.dll"))     
)
(command "netload" "CZCAD\\zBTBV.dll")


;--------------------------+Load menu zCAD
(defun S::STARTUP()
(grtext -1 "Zcad - Nguy\U+1EC5n V\U+0103n Thanh - xdvietnam.com-Zalo: 0944 614 999")
)
(if (not (menugroup "Zcad")) (command "_menuload" "Zcad.cuix")) (menucmd "P19=+Zcad.pop1")
(princ)
(setvar "cmdecho" 1)


;--------------------------+Set luôn luôn load lisp khi khởi động
(defun set-secureload ()
(setq SECURELOAD 0)
)
(set-secureload)


;--------------------------+Set menubar tự động hiện
(setvar "menubar" 1)

;Thiết kế KCT nhà phố
(defun c:KTP()
(command "KTP_ZCAD"))

;Thiết kế KCT nhà công nghiệp
(defun c:KTN()
(command "KTN_ZCAD"))

;Hiện thông tin khai báo cột dầm sàn
(defun c:MBZ()
(command "MBZ_ZCAD"))

;Xuất chi tiết cấu kiện nhà phố
(defun c:CTP()
(command "CTP_ZCAD"))

;Xuất chi tiết cấu kiện nhà công nghiệp
(defun c:CTN()
(command "CTN_ZCAD"))

;Xuất chi tiết cửa trời, xà gồ, canopy ...
(defun c:CTK()
(command "CTK_ZCAD"))

;Thiết lập vẽ
(defun c:TLV()
(command "TLV_ZCAD"))

;Tổng hợp thép hình trong bảng thống kê
(defun c:THH()
(command "THH_ZCAD"))

;Vẽ 3D khung thép nhà côn nghiệp
(defun c:V3D()
(command "V3D_ZCAD"))

;Bảng thông tin thép hình
(defun c:TTH()
(command "TTH_ZCAD"))

;Vẽ giằng Rod, H, V, U, Hộp, ống, cáp, ...
(defun c:CTG()
(command "CTG_ZCAD"))

;Vẽ, xuất chi tiết bản mã
(defun c:CTB()
(command "CTB_ZCAD"))

;Vẽ cấu kiện cột, kèo bất kỳ trong khung, tạo 3D, thống kê...
(defun c:CKB()
(command "CKB_ZCAD"))

;Vẽ vì kèo thép, thống kê, tạo 3D, ...
(defun c:VKT()
(command "VKT_ZCAD"))

;Vẽ thang thép
(defun c:VTT()
(command "VTT_ZCAD"))
