[Yêu cầu] Sửa lisp Mview

[naturooo 36]

Các bác cho em hỏi chút với ạ.

Em muốn sau khi dùng lệnh Mview với layer Defpoints sau đó trở về layer mặc định trước đó. Vì nếu không về layer mặc định thì các nét vẽ tiếp theo sẽ trở thành nét Def khi mình không để ý in ra bị mất nét. Em có bắt trước mấy lisp đặt lại mặt định OSnap mà k được.

Các bác xem giúp em với ạ.

Trân trọng cảm ơn!

(defun C:VV() ((setq old_clayer (getvar "clayer")) (setvar "clayer" "defpoints") (command "mview") (setvar "clayer" old_layer))

 

[naturooo 36]

Em không biết lập trình lisp nên sửa nhao nhao có gì các bác bỏ qua :D

 

[Danh Cong 422]

Code của bạn đây:  Bạn học lisp cơ bản trên diễn đàn đi, chứ sửa lung tung là loạn xì ngầu..

(defun C:test ( / old_clayer)
  (command "mview" pause pause)
  (setq old_clayer (getvar "clayer"))
  (command "change" "l" "" "p" "layer" "defpoints" "")
  (setvar "clayer"  old_clayer)
  )

[naturooo 36]

1 giờ} trướ}c, Danh Cong cho biết:

Code của bạn đây:  Bạn học lisp cơ bản trên diễn đàn đi, chứ sửa lung tung là loạn xì ngầu..

(defun C:test ( / old_clayer)
  (command "mview" pause pause)
  (setq old_clayer (getvar "clayer"))
  (command "change" "l" "" "p" "layer" "defpoints" "")
  (setvar "clayer"  old_clayer)
  )

Cảm ơn bạn nhiều rất đúng ý mình :D