Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
8 replies to this topic

#1 nguyenthaodang

nguyenthaodang

    biết vẽ line

  • Members
  • PipPip
  • 26 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 24 March 2010 - 08:49 AM

Hình đã gửi


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
  • 0

#2 nemo2004

nemo2004

    biết lệnh break

  • Advance Member
  • PipPipPipPip
  • 229 Bài viết
Điểm đánh giá: 98 (tàm tạm)

Đã gửi 24 March 2010 - 11:52 AM

Chào bạn !
Tặng bạn tấm hình này.
Hình đã gửi
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.
  • 1

Spoiler


#3 nguyenthaodang

nguyenthaodang

    biết vẽ line

  • Members
  • PipPip
  • 26 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 24 March 2010 - 02:34 PM

Chào bạn !
Tặng bạn tấm hình này.
Hình đã gửi
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ỉ?
  • 0

#4 duy782006

duy782006

    PHẠM QUỐC DUY

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 2155 Bài viết
Điểm đánh giá: 1360 (rất tốt)

Đã gửi 24 March 2010 - 02:41 PM

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.blo...7/menu-cad.html

http://duy782006.blo...-trong-cad.html
  • 1

Cứ ngỡ trần gian là cõi thật.Cho nên tất bật đến bây giờ.
Tạo hộp thoại bằng lisp My blog QUY ĐỊNH ĐẶT TÊN TOPIC TRONG CHUYÊN MỤC LISPD http://ktsduy.wordpress.com/
Để cám ơn chỉ cần nhấn rep_up.png
(Là nhấn vào nút đó phía bài viết của người ta í chứ đừng có nhè cái hình này mà nhấn miết đi nha :-D


#5 phantuhuong

phantuhuong

    biết dimstyle

  • Moderator
  • PipPipPipPipPip
  • 383 Bài viết
Điểm đánh giá: 200 (khá)

Đã gửi 24 March 2010 - 08:52 PM

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.blo...7/menu-cad.html

http://duy782006.blo...-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é!
  • 0
Bồi dưỡng Excel & VBA cho các đơn vị ở Hà Nội và khu vực lân cận

Từng bước loại đồ Tàu ra khỏi cuộc sống!


#6 nguyenthaodang

nguyenthaodang

    biết vẽ line

  • Members
  • PipPip
  • 26 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 24 March 2010 - 11:38 PM

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

Lần sau chịu khó mày mò help nhé!

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
  • 0

#7 gia_bach

gia_bach

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1435 Bài viết
Điểm đánh giá: 1426 (rất tốt)

Đã gửi 25 March 2010 - 11:16 AM

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

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

Hình đã gửi

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

  • 0

#8 nemo2004

nemo2004

    biết lệnh break

  • Advance Member
  • PipPipPipPip
  • 229 Bài viết
Điểm đánh giá: 98 (tàm tạm)

Đã gửi 25 March 2010 - 04:43 PM

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
  • 0

Spoiler


#9 QKHS.LIVE

QKHS.LIVE

    Chưa sử dụng CAD

  • Members
  • Pip
  • 2 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 04 June 2011 - 04:16 PM

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

  • 0