Chuyển đến nội dung
Diễn đàn CADViet
Đăng nhập để thực hiện theo  
Người theo dõi 0
nguyenthaodang

Menu và Tool công cụ? làm thế nào? help me?

Bởi nguyenthaodang , trong Lập trình khác

Các bài được khuyến nghị

nguyenthaodang    0

nguyenthaodang
Đã đăng

menu.jpg

 

em muốn làm 2 việc:

 

1. tạo menu thì có nghiên cứu được rồi. Nhưng làm sao có thể đặt cái menu của mình vào vị trí mình muốn chứ ko phải là ở sau menu "express". VD muốn đặt vào sau menu "file" thì làm như thế nào!

 

2. Tạo ra một thanh công cụ riêng như trên hình thì phương pháp làm như thế nào?

 

Cảm ơn mọi người quan tâm và giúp đơr

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

nemo2004    100

nemo2004
Đã đăng

Chào bạn !

Tặng bạn tấm hình này.

1_31.jpg

Hy vọng nó giúp ích được cho bạn.Nếu muốn tìm hiểu thêm bạn nên vào phần delp để đọc thêm về nó, trong đó còn nhiều cái hay lắm đó.

Quên mình đang dngf cad 09 không biết cad khác thế nào nhưng chắc mấy bản cad mới từ 2006 chắc mới có tính năng này.

  • Vote tăng 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

nguyenthaodang    0

nguyenthaodang
Đã đăng
Chào bạn !

Tặng bạn tấm hình này.

1_31.jpg

Hy vọng nó giúp ích được cho bạn.Nếu muốn tìm hiểu thêm bạn nên vào phần delp để đọc thêm về nó, trong đó còn nhiều cái hay lắm đó.

Quên mình đang dngf cad 09 không biết cad khác thế nào nhưng chắc mấy bản cad mới từ 2006 chắc mới có tính năng này.

thanks u very much

cách này khá hay nếu dùng cho một mình, mình đang làm bt lớn, muốn dùng code để tạo ra menu và toolbar thì mới nộp được bài. có bạn nào biết ko 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

duy782006    1.544

duy782006
Đã đăng
thanks u very much

cách này khá hay nếu dùng cho một mình, mình đang làm bt lớn, muốn dùng code để tạo ra menu và toolbar thì mới nộp được bài. có bạn nào biết ko nhỉ?

Bạn dùng cách trên tạo ra menu và toolbar rồi copy file .mns đi máy khác load lên là được.

Tham khảo thêm ở

http://duy782006.blogspot.com/2009/07/menu-cad.html

và

http://duy782006.blogspot.com/2009/07/tao-...-trong-cad.html

  • Vote tăng 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

phantuhuong    217

phantuhuong
Đã đăng
Bạn dùng cách trên tạo ra menu và toolbar rồi copy file .mns đi máy khác load lên là được.

Tham khảo thêm ở

http://duy782006.blogspot.com/2009/07/menu-cad.html

và

http://duy782006.blogspot.com/2009/07/tao-...-trong-cad.html

 

 

Có lẽ cậu này dùng VBA, đây là 2 đoạn code từ Help.

 

Sub Example_InsertInMenuBar()
' This example creates a new menu called TestMenu and inserts a menu item
' into it. The menu is then displayed on the menu bar.
' To remove the menu after execution of this macro, use the Customize Menu
' option from the Tools menu.

Dim currMenuGroup As AcadMenuGroup
Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)

' Create the new menu
Dim newMenu As AcadPopupMenu
Set newMenu = currMenuGroup.Menus.Add("TestMenu")

' Add a menu item to the new menu
Dim newMenuItem As AcadPopupMenuItem
Dim openMacro As String
' Assign the macro string the VB equivalent of "ESC ESC _open "
openMacro = Chr(3) & Chr(3) & Chr(95) & "open" & Chr(32)

Set newMenuItem = newMenu.AddMenuItem(newMenu.Count + 1, "Open", openMacro)

' Display the menu on the menu bar
newMenu.InsertInMenuBar (ThisDrawing.Application.MenuBar.Count + 1)

End Sub

 

 

 

 

Sub Example_AddToolbarButton()
' This example creates a new toolbar called TestToolbar and inserts a
' toolbar button into it. The toolbar is then displayed.
' To remove the toolbar after execution of this macro, use the Customize Menu
' option from the Tools menu.

Dim currMenuGroup As AcadMenuGroup
Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)

' Create the new toolbar
Dim newToolBar As AcadToolbar
Set newToolBar = currMenuGroup.Toolbars.Add("TestToolbar")

' Add a button to the new toolbar
Dim newButton As AcadToolbarItem
Dim openMacro As String

' Assign the macro string the VB equivalent of "ESC ESC _open "
openMacro = Chr(3) & Chr(3) & Chr(95) & "open" & Chr(32)

Set newButton = newToolBar.AddToolbarButton("", "NewButton", "Open a file.", openMacro)


' Display the toolbar
newToolBar.Visible = True

End Sub

 

 

Lần sau chịu khó mày mò help 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

gia_bach    1.549

gia_bach
Đã đăng
bro cho hỏi là hepl của cad hay của vb thía! em tìm hoài ko có đoạn bro tìm thấy

vô AutoCAD ActiveX and VBA Reference -> Methods -> InsertInMenuBar Method

 

insertmenu.jpg

 

code chèn menu TestMenu vào vị trí sau menu "Modify".

Public Sub addMenuItem()
   Dim oAcad As AcadApplication
   Set oAcad = ThisDrawing.Application
   Dim oPopup As AcadPopupMenu

   Dim currMenuGroup As AcadMenuGroup
   Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)
   ' Create the new menu
   Dim newMenu As AcadPopupMenu
   Set newMenu = currMenuGroup.Menus.Add("TestMenu")

   ' Add a menu item to the new menu
   Dim newMenuItem As AcadPopupMenuItem
   Dim openMacro As String
   ' Assign the macro string the VB equivalent of "ESC ESC _open "
   openMacro = Chr(3) & Chr(3) & Chr(95) & "open" & Chr(32)

   Set newMenuItem = newMenu.addMenuItem(newMenu.Count + 1, "Open", openMacro)

   Dim i As Integer
   'Chen phia sau menu Modify
   For i = 0 To oAcad.MenuBar.Count - 1
       Set oPopup = oAcad.MenuBar.Item(i)
       If oPopup.NameNoMnemonic = "Modify" Then
           newMenu.InsertInMenuBar (i + 1)
           Exit For
       End If
   Next i
End Sub

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

nemo2004    100

nemo2004
Đã đăng

chà nếu là lập trình thì mình bó tay thôi chỉ quen sài mấy cái lisp của các bán post lên thôi chứ chả viết được cái gì ra hồn cả :D

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

QKHS.LIVE    0

QKHS.LIVE
Đã đăng

Em chào các anh.

Em nhờ các anh xem giúp em vấn đề này.

Em có File QKHS.mns khi load trên Cad2005 thì được nhưng khi load trên Nova5 (chạy trên Cad2005) thì không được, khởi động lại Nova thì lại biến mất luôn.

Đây là nội dung File đó:

//
//      AutoCAD menu file - C:\Program Files\TienichAutoCad\QKHS1.mnu
//

***MENUGROUP=QKHS

***POP1

ID_MnQKHS [QKHS]
[--]
[Khoa ban ve khong cho in KHOA]_KHOA
[--]
[Don rac file ban ve RAC]_RAC
[--]

[->TIEN ICH IN AN HS..]
[in ban ve  IN1]_IN1
[in ban ve  IN2]_INAN
[in ban ve  IN3]_tpl
[<-In ban ve  IN4]_In4
  [Rai taluy TLTK]_TLTK
  [Danh bong vat lieu B2]_B2
[--]
[->BAT OSNAPS TRUY BAT DIEM..]
 ID_BD  [bat "Osnaps" thuong dung cho thiet ke BD]_bd
 ID_BD1 [bat "Osnaps" thuong dung cho khao sat BD1]_bd1
 ID_BD2 [<-Tat "Osnaps" BD2]_bd2
[--]
[->HE CHIEU TRUC DO..]
   [HCTD 0do]_S0
   [HCTD 10do]_S10
   [HCTD 15do]_S15
   [HCTD 20do]_S20
   [HCTD 30do]_S30
   [HCTD 40do]_S40
   [HCTD 45do]_S45
   [HCTD 50do]_S50
   [HCTD 60do]_S60
   [HCTD 70do]_S70
   [HCTD 75do]_S75
   [HCTD 80do]_S80
   [HCTD 90do]_S90
   [<-HCTD 100do]_S100
[--]
[->TIEN ICH KICH THUOC "DIM"..]
[Tao &Dim moi TAOD ]^C^C_TAOD
[--]
[Dua &Dim, &Text len tren &Hacth TEXTTOFRONT]_TEXTTOFRONT
[--]
              [->Do kich thuoc]
ID_QDim        [&Kich thuoc nhanh ]^C^C_qdim 
              [--]
[Do kich cung tron F0]^C^C_f0 
ID_Dimlinear   [Do kich thuoc thang]^C^C_dimlinear 
ID_Dimaligne   [Kich thuoc cheo]^C^C_dimaligned 
ID_Dimordina   [Kich thuoc zizac]^C^C_dimordinate 
              [--]
ID_Dimradius   [Do ban kinh duong tron]^C^C_dimradius 
ID_Dimdiamet   [Do duong kinh duong tron]^C^C_dimdiameter 
ID_Dimangula   [Do goc]^C^C_dimangular 
              [--]
ID_Dimbaseli   [Lien tiep song song]^C^C_dimbaseline 
ID_Dimcontin   [Lien tiep thang]^C^C_dimcontinue 
              [--]
ID_Leader      [Mui ten ghi chu]^C^C_qleader 
ID_Tolerance   [Tien ich duong]^C^C_tolerance 
ID_Dimcenter   [Xac dinh tam duong tron]^C^C_dimcenter 
              [--]
ID_Dimedito    [Hieu chinh text Dim]^C^C_dimedit _o 
ID_MnAlign     [->Align Te&xt]
ID_DimteditH     [&Home]^C^C_dimedit _h 
ID_DimteditA     [&Angle]^C^C_dimtedit \_a 
                [--]
ID_DimteditL     [&Left]^C^C_dimtedit \_l 
ID_DimteditC     [&Center]^C^C_dimtedit \_c 
ID_DimteditR     [<-&Right]^C^C_dimtedit \_r 
              [--]
ID_Dimoverri   [O&verride]^C^C_dimoverride 
ID_DimstyleA   [&Update]^C^C_-dimstyle _apply 
ID_Dimreasso   [<-Reassociate Dime&nsions]^C^C_dimreassociate 
  [Do kich thuoc hang loat]_QDIM
[Chuyen Dim ve cung lop CKT]_CKT
[Chuyen Dim ve lop "DIM" DCL]_DCL
  [Pha ket qua DIM (^_^)]_FAKEDIM
  [Dua DIM ve ket qua ban dau DUP]_DUP
  [Dua tat ca DIM ve ket qua ban dau DUPA]_DUPA
  [Tha dong kich thuoc SD]_sd
  [Cat chan duong Dim xien XX  XY YY]_xy
  [->Chinh dim .. DIMEDIT]_DIMEDIT
  [Dim Home]_DIMEDIT_H
  [Chinh goc duong dong Dim]_DIMEDIT_O
  [Chinh goc text Dim]_DIMEDIT_R
  [<-Sua text Dim]_DIMEDIT_N
  [<-&Dat Type kich thuoc D...]'_dimstyle 
[--]
[->TIEN ICH TEXT..]
[Tao text moi (Unicode) TAOC]_TAOC
[--]
[Dua &Dim, &Text len tren &Hacth TEXTTOFRONT]_TEXTTOFRONT
[--]
[Xoay text di 1 goc xac dinh ROTXT]_rotxt
[Xoay text theo 2 diem  ROT]_rot
[Thay doi truc toa do Text  ANGBASE ]_angbase
[--]
[->Convert Text..]
     [Xuat Text sang Excel C2E]_C2E
     [Convert da chieu CVT]_vlconvert
     [Convert da chieu V2T]_V2T
     [Doi kieu chu DKC]_TCASE
     [Doi chu &hoa thanh &thuong THUONG]_THUONG
     [Doi chu &thuong thanh &hoa THUONG]_THUONG
     [<-Doi chu hoa thanh thuong va nguoc lai CA]_CA
[--]
[->Tinh gia tri Text..]
[Tinh gia tri text CALT]_calt
[Cong cac text +]_+
[Tru text -]_-
[Nhan text *]_*
[<-Chia text /]_/
[--]

     [->Can chinh text..]
     [Can chinh le CLTXT]_cltxt
     [Can chinh le trai CLT]_clt
     [Can chinh le phai CLP]_clp
     [Can chinh le giua CLG]_clg
     [Can chinh le ngang CLN]_cln
     [Can chinh text theo phuong ngang XA]_xa
     [<-Can chinh text theo phuong dung YA]_ya
[Giu huong text khi Mirror MIRRTEXT-"0"]_MIRRTEXT
ID_GC [Gach chan Text GC]_GC
ID_GC [Gach chan Text bang Line GCM]_GCm
[chen Text vao duong thang IST]_IST
[Dua text ve Layer rieng CTLA]_CTLA
[Tao Type UNICODE]_TAOC
[Quet Text giong Text khac (Ma Text) MAT]_mat
[Hieu chinh Text hang loat CHT]_CHT
[Hieu chinh Text Block CHTGTEXT]_CHTGTEXT
[Dong khung text DKT]_dkt

 ID_ACETRTEXT     [&Remote Text]^C^Crtext 
ID_ACETTXTFIT      [Text &Fit]^C^Ctextfit 
                [--]
ID_ACETTXTMSK    [Text &Mask]^C^Ctextmask 
ID_ACETTXTUMSK   [&Unmask Text]^C^Ctextunmask 
                [--]
ID_ACETTXTEXP    [E&xplode Text]^C^Ctxtexp 
ID_ACETTXT2MT    [Chuyen Text -> Mtext]^C^Ctxt2mtxt 
ID_ACETARCTXT    [&Viet chu theo cung tron]^C^C_.arctext 
                [--]
ID_ACETTJUST     [Noi chu]^C^Ctjust 
ID_ACETTORIEN    [Quay chu]^C^Ctorient 
ID_ACETTCIRCL    [Enclo&se Text with Object]^C^Ctcircle 
ID_ACETTCOUNT    [Automatic Text &Numbering]^C^Ctcount 
                [--]
ID_MNACETTCASE   [<-Chan&ge Text Case]^C^Ctcase 
[--]
[->TIEN ICH LAYER..]
[Tao Layer moi 01_Khung-in TAOL]_TAOL
 [Khai bao "LWPOLYLINE" PLINETYPE(2)]_PLINETYPE
 [Khoa lop KL]_kl
 [Mo lop bi khoa ML]_ml
 [Tat lop LF]_lf
 [Chon tach lop LI]_li
 [bat tat ca cac lop LO]_lo
 [Chuyen Lop cho doi tuong MAN]_MAN
 [Dong bang tat ca layer-FZA]_fza
 [Dong bang layer-FZ]_fz
 [Mo bang layer-UFZ]_ufz
 [Dong bang doi tuong_FZD]_fzd
 [Doi mau cho layer LAC]_lac
 [Xoa doi tuong thuoc layer LAD]_lad
 [<-Chon Layer theo mau  FIL]_chon_doi_tuong_theo_mau_LH_0983400370
 	[--]

[->TIEN ICH HACTH..]
 [Copy Hacth HC]_hc
 [Move Hacth HM]_hm
 [Chinh goc Hacth HA]_ha
 [scale Hacth HS]_hs
	 [<-Chuyen Hatch ve cung lop CVL]_CVL

[--]
  [->TIEN ICH DUONG..]  
[->VE NET CAT..]
	 ID_CT1 [Ve net cat loai 1 CT1]_ct1
 	ID_CT3 [Ve net cat loai 3 CT3]_ct3
	 ID_CT4 [<-Ve net cat loai 4 CT4]_ct4
[--]
 [Ve duong Pline theo do doc VPL]_VPL
 [Noi lien cac doi tuong NN]_nn
 [Ve may MAY]_may
 [Copy va xoay doi tuong CX]_CX
 [<-Chia nho doi tuong CNDT]_CNDT
[--]

[->TIEN ICH DO..]
 [Do tong chieu dai doi tuong AAO]_AAO
 [Do tong chieu dai doi tuong AAO1]_AAO1
[--]
 [Do do doc cua doan thang 1/m IDD1]_IDD1
 [Do do doc cua doan thang % IDD]_IDD
[--]
 ID_TDT1 ["S1">Tinh dien tich loai 1 TDT1]_tdt1
 ID_TDT2 ["S2">Tinh dien tich loai 2 TDT2]_tdt2
 ID_TDT2 ["S3">Tinh dien tich loai 3 TDT3]_tdt3
 ID_TDT4 ["S4">Tinh dien tich loai 4 TDT4]_tdt4
 ID_TDT5 ["S5">Tinh dien tich loai 5 TDT5]_tdt5
ID_TDT5 ["S5">Tinh dien tich loai 5 TDT6]_tdt6
 ID_TDT6 [<-"S6">Tinh dien tich loai 7 TDT7]_tdt7

[--]
[->DANH SO (CHU) THU TU ->..]
[Danh chu, so tang dan (Dang 1) CTT]_ctt
[Danh chu, so tang dan (Dang 2) SBV1]_SBV1
[Danh chu, so tang dan (Dang 3) SBV2]_SBV2
[Danh so thu tu theo hang dang 1/n DSTT]_dstt
[Danh so thu tu theo cot va hang dang 1/n DSBV]_DSBV
[<-Danh chu, so tang dan (Copy thong minh) CPTM]_cptm

 	[--]
[->TINH VA GHI CAO DO..]
 ID_GCD1 [ban ve TL1:1 in 1:50 GCD1]_GCD1
 ID_GCD2 [ban ve TL1:1 in 1:100 GCD2]_GCD2
 ID_GCD3 [ban ve tuy chon TL GCD3]_DN_DCT
 ID_GCD4 [ban ve nhieu TL GCD4]_GCD4
[--]

ID_Wel [<-Ghi cao do thiet ke tren binh do WEL]_wel
[--]
ID_CONGDIM [Cong cac duong ghi kich thuoc CONGDIM]_congdim
ID_TRUDIM [Tru cac duong ghi kich thuoc TRUDIM]_trudim


[--]
[->XOAY....]
ID_RT [Xoay doi tuong di 90 do RT]_rt
[Xoay doi tuong theo doi tuong khac ROSS]_ross
[Xoay Text theo hai diem ROT]_rot
[<-Xoay Text theo 1 goc bat ky ROTXT]_rotXT
[--] 
[->DOI TUONG....]
 [Extrim-cat binh do CCT1]_CCT1
 [Xoa doi tuong trong vung kin TRK]_TRK
 [Phong doi tuong EXN]_exn
 [<-Cat doi tuong (Trim) TRN]_trn
[--] 
[->DINH DANG....]
[bo an phim Shift PCI]_PICKADD
[Lam tron so tren ban ve UN]_UNITS
[Lay lai dong Command ]_commandline
[Giu huong Text khi Mirror MIT ]_MIRRTEXT
[Dinh dang Polyline DZP]_PLINETYPE
[<-Dinh dang truc toa do Text  DZT]_angbase
[--] 
[->TIEN ICH KHAC....]
[--]
[&Tinh dien tich, the tich cac hinh-TDTCH]_TDTCH
[--]

[&Tinh mong coc dai cao-MCDC]_MCDC
[--]
[<-&Tra cuu thep hinh-TCTH]_tcth
[--]
***TOOLBARS

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

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay
Đăng nhập để thực hiện theo  
Người theo dõi 0
Về Đầu Trang Lập trình khác
×