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

[thewind0910 11]

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 ạ

[thewind0910 11]

em tìm được lệnh on vs off là Ctrl + shift+A
Mong ai đi ngang qua viết cho em 1 cái lisp thành lệnh G được k ạ

[cuongtk2 342]

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.

[tannguyen291 135]

Mình cài cad 2024 của bác nào share lâu lâu rồi á. Có sẵn cái Ctrl H này tiện phết.

[thewind0910 11]

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.

[thewind0910 11]

[thewind0910 11]

(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)
 

[vietduc147258 54]

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

[thewind0910 11]

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.!!!