Lisp với lệnh Zoom Center

[nghiactp 3]

Các Pro giúp mình viết lisp với nội dung như sau:

Lệnh Zoom/Center/2x chuyển thành lệnh Z2 chọn Center và Z2 Enter là xong.

cám ơn rất nhiều nhé!

[LuytBui 19]

Như này á
(defun c:Z2() (command "ZOOM" "c" (getpoint) "2x") (princ))

[nghiactp 3]

Cám ơn bạn @LuytBui

Vậy có thể thêm 1 lisp không cần chọn điểm Center được không? mình muốn bớt thao tác chọn center, lấy luôn điểm center của màn hình hiện hành luôn

[LuytBui 19]

Nó là zoom SCALE 2x mới đúng, không phải zoom Center
(defun c:Z2() (command "ZOOM" "s" "2x") (princ))

 

[nghiactp 3]

cám ơn bạn @LuytBui