Đến nội dung


Hình ảnh
- - - - -

[Yêu cầu] lisp chuyển các đối tượng về 1 layer


  • Please log in to reply
41 replies to this topic

#41 tran.designer.int

tran.designer.int

    biết zoom

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

Đã gửi 29 June 2013 - 03:41 PM

Chào Bác Phamthanhbinh!
Cám ơdoan965 mã của bác. Em viết lại được rồi!
Em gửi bác xem thử rùi cho ý kiến nha!
  • 0

***Tran thien interior***


#42 phamthe

phamthe

    biết vẽ polygon

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

Đã gửi 07 August 2014 - 03:07 PM

Lisp O2L (Object to layer) dưới đây sẽ giúp bạn. Nếu bạn muốn chuyển các đối tượng khác, bạn hãy copy rồi thêm dòng lệnh (cons "KIEUDOITUONG" "TENLAYER") vào cụm các lệnh cons phía dưới.
 

(defun c:o2l ( / ss pp lstoblayer)  (setq    lstoblayer     (list       (cons "DIMENSION" "DIM")		; chuyen doi tuong Dimension ve layer DIM        (cons "HATCH" "HATCH")       (cons "INSERT" "BLOCK")		; BLOCK (la doi tuong insert) ve layer BLOCK       (cons "*TEXT" "TEXT")		; TEXT va MTEXT ve layer text     )      )  (foreach pp lstoblayer        (setq ss (ssget "X" (list (cons 0 (car pp)))))    (if (not (tblsearch "layer" (cdr pp)))      (command ".layer" "m" (cdr pp) "")    )    (command ".chprop" ss "" "la" (cdr pp) "")      )    (princ))

các bác cho em hỏi nếu muốn đổi tên Layer A sang tên Layer B trong code này thì làm thế nào nhỉ?


  • 0