nhờ viết lisp: chuyển toàn bộ các đối tượng dimension có dim scale linear khác 1 sang 1 layer mới

[saiky 0]

- Mục đích lệnh:

     + kiểm tra những kích thước nào bị thay đổi dimscale rồi và chuyển sang 1 layer khác để dễ nhận biết.

- Cách thức lệnh: 

    + B1: Nhập lệnh CL

    + B2: Tất cả các đối tượng dimension có dim scale linear khác 1 sẽ chuyển sang layer khác (layer 0), các đối tượng dimension có dim scale linear bằng 1 vẫn giữ nguyên layer hiện hữu.

Nhờ mọi người hỗ trợ giúp mình

Best thank!!

[cuongtk2 431]

Nó đây

(defun c:test ( / OBJ SS)
  (setq ss (ACET-SS-TO-LIST (ssget '((0 . "DIMENSION")))))
  (foreach ent ss    
      (setq obj (vlax-ename->vla-object ent))
      (if (/= (vla-get-LinearScaleFactor obj) 1.0)
        (vla-put-layer obj "0")
        ) ))
            

 

[saiky 0]

8 phút trước, cuongtk2 đã nói:

Nó đây

(defun c:test ( / OBJ SS)
  (setq ss (ACET-SS-TO-LIST (ssget '((0 . "DIMENSION")))))
  (foreach ent ss    
      (setq obj (vlax-ename->vla-object ent))
      (if (/= (vla-get-LinearScaleFactor obj) 1.0)
        (vla-put-layer obj "0")
        ) ))
            

 

dạ vâng, đúng cái em cần ạ, em CẢM ƠN ANH NHIỀU !!