Phương thức chọn Group theo tên

[limfx 21]

Trong bản vẽ mình có nhiều Group được đặt tên theo A, B, C..

Mình muốn chọn một Group khi biết tên của nó để xử lý với các  thành phần bên trong Group đó (tìm các đối tượng con  trong group và thay đổi các giá trị con) thì làm cách nào theo phương thức ssget or phương thức khác ? Các bạn có thể giúp mình? Thanks!

[cuongtk2 341]

Hy vọng 2 hàm này có thể giúp bạn

(getgroup "B") để lấy id của group

(ents-int-group id) để tra danh sách entities trong group

(defun get-group (name / GR GRPDICT I)
(setq gr nil)
(setq grpdict (dictsearch (namedobjdict) "ACAD_GROUP" t))
(setq i 0)
(repeat (length grpdict)
(if  (and (= 3 (car (nth i grpdict)))
         (= name (cdr (nth i grpdict)))
         )
(setq gr (cdr (nth (+ i 1) grpdict)))
)
(setq i (+ 1 i ))
)
  gr 
  )

(defun ents-int-group (gr / ls)  
  (foreach n (entget gr) (if (= 340 (car n)) (setq ls (append ls (list (cdr n)))) ) 
          )
  ls
  )

  

  

[limfx 21]

Cảm ơn anh. Đúng đã giải quyết được vấn đề em cần a!

[limfx 21]

23 giờ trước, cuongtk2 đã nói:

Hy vọng 2 hàm này có thể giúp bạn

(getgroup "B") để lấy id của group

(ents-int-group id) để tra danh sách entities trong group

(defun get-group (name / GR GRPDICT I)
(setq gr nil)
(setq grpdict (dictsearch (namedobjdict) "ACAD_GROUP" t))
(setq i 0)
(repeat (length grpdict)
(if  (and (= 3 (car (nth i grpdict)))
         (= name (cdr (nth i grpdict)))
         )
(setq gr (cdr (nth (+ i 1) grpdict)))
)
(setq i (+ 1 i ))
)
  gr 
  )

(defun ents-int-group (gr / ls)  
  (foreach n (entget gr) (if (= 340 (car n)) (setq ls (append ls (list (cdr n)))) ) 
          )
  ls
  )

  

  

Thanks!

Chỉnh sửa Tháng 11 1, 2022 theo limfx

[limfx 21]

Em vận dụng code ở trên lấy name được rồi a

[cuongtk2 341]

Đáng tiếc không có cách nào khác, phương thức (ssget "G") chỉ mới có trên vỏ, chưa chính thức hoạt động.