Chuyển đến nội dung
Diễn đàn CADViet
Đăng nhập để thực hiện theo  
thewind0910

Hỏi về lisp và lệnh group

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

Các bác ai có thể viết một lisp edit grou giúp em được không.
Ví dụ em có 3 group là A,B,C. Bình thường khi muốn sửa nội dung trong group A hoặc B hoặc C thì sẽ phải dùng lệnh ungroup cho A, B, C lần lượt rồi sửa hoặc groupedit.
Bây giờ em muốn viết một lisp mà mình bật thì các group trong bản vẽ sẽ tự ungroup cho mình sửa, còn mình tắt thì các group lại tự đóng lại có được ko nhỉ.
Ngày trc em làm ở 1 chỗ họ có lisp này r mà ko kịp lưu lại.
Thanks các bác ạ

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
3 giờ trước, cuongtk2 đã nói:

Sao lại phải đi ngược như thế, phím tắt là thứ nhanh nhất để thực hiện lệnh rồi em.

Vaâng anh, theo thói quen thành ra giờ bấm ctril shift A nó hơi lâu, trc em cứ ấn G vs GG là xong。Thành ra lại muốn dùng như cũ anh ạ.
Đúng là đi ngược thời đại thật nma em quen nên cũng tiện.

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

(ql:quickload :clx)
(use-package :clx)

(defvar *group-status* nil)

(defun toggle-group ()
  (setq *group-status* (not *group-status*))
  (if *group-status*
      (format t "Group is ON~%")
      (format t "Group is OFF~%")))

(defun handle-key-event (display event)
  (let ((keysym (xlib:event-keycode event)))
    (when (char= keysym #\G)  ; Press 'G' key to toggle group
      (toggle-group))))

(defun event-loop (display window)
  (loop
    (let ((event (xlib:wait-for-event display)))
      (cond
        ((eql (xlib:event-type event) :key-press)
         (handle-key-event display event))
        ;; Add more event handling code here if needed
        ))))

(defun main ()
  (let* ((display (xlib:open-display "localhost:0"))
         (screen (xlib:default-screen display))
         (root (xlib:root-window display screen))
         (window (xlib:create-window display root 0 0 640 480 0)))
    (xlib:select-input display window '(exposure-mask key-press-mask))
    (xlib:map-window display window)
    (event-loop display window)))

(main)
 

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
3 giờ trước, thewind0910 đã nói:

Các bác ai có thể viết một lisp edit grou giúp em được không.
Ví dụ em có 3 group là A,B,C. Bình thường khi muốn sửa nội dung trong group A hoặc B hoặc C thì sẽ phải dùng lệnh ungroup cho A, B, C lần lượt rồi sửa hoặc groupedit.
Bây giờ em muốn viết một lisp mà mình bật thì các group trong bản vẽ sẽ tự ungroup cho mình sửa, còn mình tắt thì các group lại tự đóng lại có được ko nhỉ.
Ngày trc em làm ở 1 chỗ họ có lisp này r mà ko kịp lưu lại.
Thanks các bác ạ

Có nhiều nguyên nhân: Tay ngắn, Rối khi nhấn cùng lúc 3 phím, trùng với phần mềm khác, hoặc do thói quen...
Dùng thử cái này nha. 1 lệnh G chung cho on và off luôn

group_on_off_G.lsp

  • Like 1
  • 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
18 phút trước, vietduc147258 đã nói:

Có nhiều nguyên nhân: Tay ngắn, Rối khi nhấn cùng lúc 3 phím, trùng với phần mềm khác, hoặc do thói quen...
Dùng thử cái này nha. 1 lệnh G chung cho on và off luôn

group_on_off_G.lsp

Ôi cảm ơn bác nhiều nha, đúng ý em rồi. Lần trước lệnh findtext bác cũng giúp.!!!

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  

×