Đến nội dung


Hình ảnh

My menu


  • Please log in to reply
17 replies to this topic

#1 tnmtpc

tnmtpc

    biết dimcontinue

  • Members
  • PipPipPipPipPip
  • 370 Bài viết
Điểm đánh giá: 206 (khá)

Đã gửi 15 November 2008 - 10:40 AM

Mình có một file Mymenu.mnu, muốn tự động chèn các menu tự tạo vào menubar mà không cần dùng lệnh Tools\Customize\menus...Nhờ các bạn chỉ cách.
Thanks
  • 0

#2 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3804 (đỉnh cao)

Đã gửi 15 November 2008 - 10:50 AM

Mình có một file Mymenu.mnu, muốn tự động chèn các menu tự tạo vào menubar mà không cần dùng lệnh Tools\Customize\menus...Nhờ các bạn chỉ cách.
Thanks

Bạn gõ lệnh menuload
  • 0

#3 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 15 November 2008 - 10:55 AM

Mình có một file Mymenu.mnu, muốn tự động chèn các menu tự tạo vào menubar mà không cần dùng lệnh Tools\Customize\menus...Nhờ các bạn chỉ cách.
Thanks

Bạn dùng dòng sau:
(command "_menuload" "C:\\Mymenu.mnu")
Phần đường dẩn bạn sửa lại cho đúng lưu ý dấu phân cách thư mục phài là hai dấu \\.
  • 0

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


#4 Taybac179

Taybac179

    biết vẽ line

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

Đã gửi 16 November 2008 - 04:17 PM

Bạn dùng dòng sau:
(command "_menuload" "C:\\Mymenu.mnu")
Phần đường dẩn bạn sửa lại cho đúng lưu ý dấu phân cách thư mục phài là hai dấu \\.


Tiện đây em hỏi các bác chút!
http://www.cadviet.c...pfiles/aaaa.jpg
Autocad2007 bị mất hết thanh công cụ lấy ra bằng cách nào vậy bác
  • 0

#5 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3804 (đỉnh cao)

Đã gửi 16 November 2008 - 04:29 PM

Tiện đây em hỏi các bác chút!
http://www.cadviet.c...pfiles/aaaa.jpg
Autocad2007 bị mất hết thanh công cụ lấy ra bằng cách nào vậy bác

Bạn chọn Tool ->Customize ->Toolbar -> Trong nhãn Toolbar bạn chọn các thanh công cụn cần lấy.
  • 0

#6 Taybac179

Taybac179

    biết vẽ line

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

Đã gửi 16 November 2008 - 06:24 PM

Bạn chọn Tool ->Customize ->Toolbar -> Trong nhãn Toolbar bạn chọn các thanh công cụn cần lấy.

http://www.cadviet.com/upfiles/aaa.jpg
Bác nhìn hộ em xem có thấy cái Toolbar như bác nói ko
  • 0

#7 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6007 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 16 November 2008 - 07:05 PM

http://www.cadviet.com/upfiles/aaa.jpg
Bác nhìn hộ em xem có thấy cái Toolbar như bác nói ko

Chào bạn Tây bắc 179,
Mình xài Cad 2004 nên cái toolbar nó nằm ở đây bạn ạ.
http://www.cadviet.c...pfiles/mh03.bmp

Chúc bạn sớm tìm lại được những gì chưa mất.
  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#8 minh2453

minh2453

    biết lệnh scale

  • Members
  • PipPipPip
  • 146 Bài viết
Điểm đánh giá: 42 (tàm tạm)

Đã gửi 16 November 2008 - 07:15 PM

Thái độ này ko đc, ko biết mà hỏi như quát người ta thế.
làm thế này nhé : tools --> customize -->Interface rồi làm như sau:
Hình đã gửi
  • 0
Đừng giấu những gì bạn biết và những thứ bạn không biết

#9 Taybac179

Taybac179

    biết vẽ line

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

Đã gửi 17 November 2008 - 08:37 AM

Thái độ này ko đc, ko biết mà hỏi như quát người ta thế.
làm thế này nhé : tools --> customize -->Interface rồi làm như sau:
Hình đã gửi


Cám ơn bác nhiều bài hướng dẫn rất chi tiết!! rất xin lỗi về thái độ hôm trước! :leluoi:
  • 0

#10 tnmtpc

tnmtpc

    biết dimcontinue

  • Members
  • PipPipPipPipPip
  • 370 Bài viết
Điểm đánh giá: 206 (khá)

Đã gửi 17 November 2008 - 08:42 AM

Bạn dùng dòng sau:
(command "_menuload" "C:\\Mymenu.mnu")
Phần đường dẩn bạn sửa lại cho đúng lưu ý dấu phân cách thư mục phài là hai dấu \\.

mình đã làm đúng như bạn, đồng ý nó đã load nhưng menu vẫn ko xuất hiện trên menu bar, vẫn phải dùng chức năng insert trong tab menubar.Dưới đây là một đoạn nội dung file mymenu.mnu, mình muốn tự động load (tạo file acad.lsp), và hiển thị trên menubar

***Menugroup=mymenu
***POP1

[MyUtility]

[->Các tiện ích về text]

[Điều chỉnh để các khoảng cách các dòng text đều nhau]cha
[Thay đổi khỏang cách dòng và canh trái text]rstext
;..........................................
Mình đang sưu tầm, tổng hợp các lisp hay trên diễn đàn và một số trang web khác (khoảng vài trăm lệnh), sau khi hoàn thành nội dung này, mình upload để các bạn sử dụng cho tiện.
các bạn giúp nhé
  • 0

#11 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 17 November 2008 - 04:55 PM

mình đã làm đúng như bạn, đồng ý nó đã load nhưng menu vẫn ko xuất hiện trên menu bar, vẫn phải dùng chức năng insert trong tab menubar.Dưới đây là một đoạn nội dung file mymenu.mnu, mình muốn tự động load (tạo file acad.lsp), và hiển thị trên menubar

***Menugroup=mymenu
***POP1

[MyUtility]

[->Các tiện ích về text]

[Điều chỉnh để các khoảng cách các dòng text đều nhau]cha
[Thay đổi khỏang cách dòng và canh trái text]rstext
;..........................................
Mình đang sưu tầm, tổng hợp các lisp hay trên diễn đàn và một số trang web khác (khoảng vài trăm lệnh), sau khi hoàn thành nội dung này, mình upload để các bạn sử dụng cho tiện.
các bạn giúp nhé


Đây bạn.

(setq tinhtrangmenu (menugroup "mymenu"))
(Cond
((= tinhtrangmenu nil)
(command "_menuload" "C:\\Mymenu.mnu")
(menucmd "P13=+mymenu.pop1")
)
((/= tinhtrangmenu nil)
)
)


Đoạn trên kiểm tra xem mymenu đã load chưa nếu rồi thì thôi còn nếu chưa thì load lên và đưa pop1 vào vị trí menu thứ 13.
  • 0

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


#12 tnmtpc

tnmtpc

    biết dimcontinue

  • Members
  • PipPipPipPipPip
  • 370 Bài viết
Điểm đánh giá: 206 (khá)

Đã gửi 17 November 2008 - 11:01 PM

Đây bạn.

(setq tinhtrangmenu (menugroup "mymenu"))
(Cond
((= tinhtrangmenu nil)
(command "_menuload" "C:\\Mymenu.mnu")
(menucmd "P13=+mymenu.pop1")
)
((/= tinhtrangmenu nil)
)
)


Đoạn trên kiểm tra xem mymenu đã load chưa nếu rồi thì thôi còn nếu chưa thì load lên và đưa pop1 vào vị trí menu thứ 13.

Cám ơn bạn, đã được như ý mình. Mình mày mò học lisp nên nhiều cái ko hiểu. bạn giải thích cho mình tý, sao lại là menu thứ 13 mà ko là p1,p2....
Cám ơn bạn lần nữa nhé, chúc vui
  • 0

#13 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 18 November 2008 - 08:18 AM

Cám ơn bạn, đã được như ý mình. Mình mày mò học lisp nên nhiều cái ko hiểu. bạn giải thích cho mình tý, sao lại là menu thứ 13 mà ko là p1,p2....
Cám ơn bạn lần nữa nhé, chúc vui

Cứ bạn để p mấy thì nó chèn vào vị trí đó như vậy mình làm sau họ thì mình để sau cho nó phải phép lịch sự ấy mà. bạn thích để chổ thứ bao nhiêu cũng được.
  • 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


#14 tnmtpc

tnmtpc

    biết dimcontinue

  • Members
  • PipPipPipPipPip
  • 370 Bài viết
Điểm đánh giá: 206 (khá)

Đã gửi 18 November 2008 - 06:17 PM

Có một trục trặc, nhờ các bạn chỉ giúp, file Acad mình tạo như ở dưới, khi mở một bản vẽ mới thì dùng menu kích hoạt các lệnh lisp bình thường, nhưng khi mở một bản vẽ cũ, thì không nhận biết được các lệnh lisp, mặc dù đã khai báo đường dẫn trong suppor file search path
Đây là file acad:
(setq tinhtrangmenu (menugroup "mymenu"))
(Cond
((= tinhtrangmenu nil)
(command "_menuload" "E:\\MyLISP full\\Mymenu.mnu")
(menucmd "P13=+mymenu.pop1")
)
((/= tinhtrangmenu nil)
)
)

(load "E:\\MyLISP full\\utility1")
(load "E:\\MyLISP full\\utility2")
(load "E:\\MyLISP full\\utility3")
(load "E:\\MyLISP full\\utility4")
(load "E:\\MyLISP full\\utility5")
(load "E:\\MyLISP full\\utility6")


;.......................Cám ơn các bạn trước nhé
  • 0

#15 minh2453

minh2453

    biết lệnh scale

  • Members
  • PipPipPip
  • 146 Bài viết
Điểm đánh giá: 42 (tàm tạm)

Đã gửi 21 November 2008 - 03:23 PM

mình đã làm đúng như bạn, đồng ý nó đã load nhưng menu vẫn ko xuất hiện trên menu bar, vẫn phải dùng chức năng insert trong tab menubar.Dưới đây là một đoạn nội dung file mymenu.mnu, mình muốn tự động load (tạo file acad.lsp), và hiển thị trên menubar

***Menugroup=mymenu
***POP1

[MyUtility]

[->Các tiện ích về text]

[Điều chỉnh để các khoảng cách các dòng text đều nhau]cha
[Thay đổi khỏang cách dòng và canh trái text]rstext
;..........................................
Mình đang sưu tầm, tổng hợp các lisp hay trên diễn đàn và một số trang web khác (khoảng vài trăm lệnh), sau khi hoàn thành nội dung này, mình upload để các bạn sử dụng cho tiện.
các bạn giúp nhé


Cám ơn bạn, đã được như ý mình. Mình mày mò học lisp nên nhiều cái ko hiểu. bạn giải thích cho mình tý, sao lại là menu thứ 13 mà ko là p1,p2....
Cám ơn bạn lần nữa nhé, chúc vui

Vị trí POP1 là của menu file nên không thể chèn đc menu này.Theo chuẩn của CAD thì menu help cuối cùng là Pop thứ 12 thì menu của bạn nên có stt từ 13 trở đi thì mới insert thêm đc vào menu của cad.


Có một trục trặc, nhờ các bạn chỉ giúp, file Acad mình tạo như ở dưới, khi mở một bản vẽ mới thì dùng menu kích hoạt các lệnh lisp bình thường, nhưng khi mở một bản vẽ cũ, thì không nhận biết được các lệnh lisp, mặc dù đã khai báo đường dẫn trong suppor file search path
Đây là file acad:
(setq tinhtrangmenu (menugroup "mymenu"))
(Cond
((= tinhtrangmenu nil)
(command "_menuload" "E:\\MyLISP full\\Mymenu.mnu")
(menucmd "P13=+mymenu.pop1")
)
((/= tinhtrangmenu nil)
)
)

(load "E:\\MyLISP full\\utility1")
(load "E:\\MyLISP full\\utility2")
(load "E:\\MyLISP full\\utility3")
(load "E:\\MyLISP full\\utility4")
(load "E:\\MyLISP full\\utility5")
(load "E:\\MyLISP full\\utility6")


;.......................Cám ơn các bạn trước nhé

Cái mà bạn nói có thể là do ko đặt chế độ Autoload cho các lisp này, nên khi exit CAD và chạy lại CAd thì các lệnh này ko còn nữa.
Bạn thử vào đây xem thêm
http://www.cadviet.c...amp;hl=minh2453
  • 0
Đừng giấu những gì bạn biết và những thứ bạn không biết

#16 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 21 November 2008 - 03:38 PM

Vị trí POP1 là của menu file nên không thể chèn đc menu này.Theo chuẩn của CAD thì menu help cuối cùng là Pop thứ 12 thì menu của bạn nên có stt từ 13 trở đi thì mới insert thêm đc vào menu của cad.
Cái mà bạn nói có thể là do ko đặt chế độ Autoload cho các lisp này, nên khi exit CAD và chạy lại CAd thì các lệnh này ko còn nữa.
Bạn thử vào đây xem thêm
http://www.cadviet.c...amp;hl=minh2453

-Vẩn chèn menu của mình vào vị trí thứ 1 như thường. Lúc này nó lấn cái menu flie dăng đi về sau làm vậy không lịch sự lắm :leluoi: phải có trước có sau.
-Bạn mở bản vẽ cũ bằng cách kích đôi lên file chứ gì. Cứ phải khởi động cad lên và dủng lệnh open thì bao nhiêu bảng líp vẩn chạy tốt.
*Lưu ý cad đời 2000 trở lên file líp của bạn phải tên là acaddoc.lsp chứ không phải cad.lsp. Chúc bạn thành công và thành đủ thứ :s_big: :P
  • 0

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


#17 minh2453

minh2453

    biết lệnh scale

  • Members
  • PipPipPip
  • 146 Bài viết
Điểm đánh giá: 42 (tàm tạm)

Đã gửi 22 November 2008 - 11:28 AM

-Vẩn chèn menu của mình vào vị trí thứ 1 như thường. Lúc này nó lấn cái menu flie dăng đi về sau làm vậy không lịch sự lắm :leluoi: phải có trước có sau.
-Bạn mở bản vẽ cũ bằng cách kích đôi lên file chứ gì. Cứ phải khởi động cad lên và dủng lệnh open thì bao nhiêu bảng líp vẩn chạy tốt.
*Lưu ý cad đời 2000 trở lên file líp của bạn phải tên là acaddoc.lsp chứ không phải cad.lsp. Chúc bạn thành công và thành đủ thứ :s_big: :P

uhm..2 điều bạn nói chưa chuẩn lắm.
1.Nếu để chế độ cho AutoCAD tự động load file lisp thì dù bạn open file = cách nào thì lisp vẫn đc load lên.
2.Tên file lisp là tùy ý miễn sao không vi phạm nguyên tắc của windows là đc và lệnh lisp cũng vậy, tùy ý, miễn là không trùng nhau.
  • 0
Đừng giấu những gì bạn biết và những thứ bạn không biết

#18 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 November 2008 - 09:47 AM

uhm..2 điều bạn nói chưa chuẩn lắm.
1.Nếu để chế độ cho AutoCAD tự động load file lisp thì dù bạn open file = cách nào thì lisp vẫn đc load lên.
2.Tên file lisp là tùy ý miễn sao không vi phạm nguyên tắc của windows là đc và lệnh lisp cũng vậy, tùy ý, miễn là không trùng nhau.

Theo mình hiểu bạn tnmtpc tạo file acad.lsp có nội dung như đã nêu và copy nó vào thư mục cài đặt của cad . Mục đích làm cad tự load file này khi khởi động. Nên mình nói theo ý đó:
-Cad 2000 trở lên chỉ load tự động file acaddoc.lsp nếu nó nằm trong đường dẩn mặc định của cad, và phải đúng tên như thế.
-Nếu mở file bằng cách kích đôi lên nó thì file acaddoc.lsp sẽ không được tự động load.
  • 0

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