Đến nội dung


Hình ảnh
- - - - -

[Hỏi] Cách load menu bằng lisp, không dùng lệnh "Menuload"


  • Please log in to reply
25 replies to this topic

#21 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5454 Bài viết
Điểm đánh giá: 2626 (tuyệt vời)

Đã gửi 09 October 2012 - 03:55 PM

Tôi học từ 3 nguồn: Cadviet, search google, help của cad. Bạn cứ chịu khó search, chịu khó lục cadviet, chịu khó đọc help thì nó lên tay lên chân thôi.
"... tự mò mà ra nó mới sướng bác ạh" => không cần bàn cãi: mò thì thích rồi; mò mà ra nữa thì quá sướng chứ lị!
  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#22 NguyenNgocSon

NguyenNgocSon

    biết dimbaseline

  • Members
  • PipPipPipPipPip
  • 368 Bài viết
Điểm đánh giá: 39 (tàm tạm)

Đã gửi 08 November 2012 - 11:53 AM

Mình có file .Cui tạo menu như sau
Giờ mình muốn load file cui bằng lisp mà không được:

;Tao menu bang lisp
(Defun C:ts()
(command "menuload" "C:\Tools-DS(VBA)\DS-HTKT.cui")
(menucmd "P17=+DS-HTKT.POP1")
(princ))
http://www.cadviet.c...8467_dshtkt.rar
  • 0

#23 avi612

avi612

    biết lệnh move

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

Đã gửi 08 November 2012 - 01:02 PM

Gửi bạn đoạn Code này, mình đã vận dụng được.....thay tên menu và vận dụng nó theo cách của bạn nhé>


(progn
(setq menu "C:\\ISO-Vinx.cui")
(setq acadobj (vlax-get-acad-object))
(setq menus (vla-get-menuGroups acadobj))
(setq flag nil)
(vlax-for n menus
(if (= (vla-get-name n) "ISO-Vinx")
(setq flag T)
)
(terpri)
)
(if (= flag nil)
(progn
(vla-load menus menu)
(setq PD1 (vla-item (vla-get-menus (vla-item menus "ISO-Vinx")) 0))
(vla-InsertInMenubar PD1 15)
)
)
(princ)
)

  • 1

#24 thanhduan2407

thanhduan2407

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 995 Bài viết
Điểm đánh giá: 223 (khá)

Đã gửi 22 July 2014 - 10:50 AM

Mình thấy avi612 có menu rất đẹp, tuy nhiên trong file bạn gửi có 2 file mnu và mnr.

Bạn có thể gửi cho mình cả bộ được không? Mình sẽ tham khảo cách làm của bạn.

Chân thành cảm ơn bạn rất nhiều.

P/s: Các bác có tài liệu tham khảo gì về cách tạo menu, toolbar thì cho mình xin với. Cảm ơn các bác.

Tài liệu tiếng Anh cũng đc ạ


  • 0



Tôi là con kiến bò trên sa mạc kiến thức bao la. Biển học thật rộng lớn







#25 thanhduan2407

thanhduan2407

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 995 Bài viết
Điểm đánh giá: 223 (khá)

Đã gửi 22 July 2014 - 11:07 AM

Ok rồi, em tự mò được rồi. 


  • 0



Tôi là con kiến bò trên sa mạc kiến thức bao la. Biển học thật rộng lớn







#26 hoquangvinh

hoquangvinh

    biết lệnh mirror

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

Đã gửi 18 January 2016 - 09:57 PM

Hiện tại mình đã tạo được cho mình 1 bộ Tool Lisp tương đối hoàn chỉnh và cho vào trong 1 thư mục đặt ở ổ C:\\.
Vướng mắc cuối cùng của mình là viết ra một hàm lisp load cái menu của mình lên khi mình gọi lệnh.
Ví dụ cho rõ ràng chút:
-- Mình tạo một hàm lisp có chức năng thực hiện 3 việc sau:

1. Bước đầu, load 1 lisp tổng có chứa tất cả các lệnh cần thiết. (để lấy đường dẫn cho bước 2).
 

2. Add vào trong Support File Search Path đường dẫn đến thư mục chứa những thứ kèm theo khi dùng lisp (như: file dwg, dialog...).
 

3. Load menu đã tạo sẵn lên thanh công cụ của CAD.


------------------------------------------------------------------------------------------------------------------------------------------------------------
Ý 1 và 2 đã giải quyết xong, còn ý 3 nữa là xong mà mò mẫm hoài không ra được. Mọi người giúp giùm nhá.
Àh!!! Nhớ là cả 3 bước này được thực hiện trong 1 lần gọi lệnh nhá. Ví như ta gõ trên command: RUN [enter] ----> Lisp sẽ thực hiện cả 3 bước trên.
---- Đợi comment thôi ...... :)

 

bạn có thể nói rõ hơn ý 1 của bạn ko mình cũng đang muốn tập hợp lại một số lisp hay dùng

mình cũng có ý định giống bạn nhưng bước 3 thì mình muốn dùng file CUI thôi

search mãi mà chưa thấy bước 1 ở đâu cả


  • 0