[nhờ viết lisp] Paste đối tượng giữ nguyên tọa độ gốc

[nguyenkienAgr 7]

Chào các bạn, 

Bình thường mình muốn paste 1 đối tượng (line chẳng hạn) từ 1 bản vẽ sang 1 bản vẽ khác mà muốn giữ nguyên tọa độ như file gốc thì mình click phải chuột  -> chọn Clipboard -> chọn Paste to Original Coordinates.

Nhưng mất nhiều thao tác quá, với lại mình không muốn sử dụng menu phải chuột. Vậy nên mình nhờ các bạn thạo lisp viết giúp 1 mã paste từ clipboard giữ nguyên tọa độ gốc.

Cám ơn các bạn ạ.

 

[gia_bach 1.549]

Dùng lệnh có sẵn của CAD:  PASTEORIG

[limfx 21]

Không thích dusncgf chuột phải thì bạn copy tại điểm gốc: 0,0,0 và paste sang bảng vẽ kia tại điểm đó 0,0,0

[Duong Nhat Duy 302]

Bạn thử cái này xem:

;Copy voi diem goc 0,0
(defun C:cb ( / OTHO SNAP SS)
  (setvar "CMDECHO" 0)
  (vla-startundomark (vla-get-activedocument (vlax-get-acad-object)))
  (setq ss (ssget))
  (setq snap (getvar "OSMODE"))
  (setq otho (getvar "ORTHOMODE"))
  (setvar "OSMODE" 0)
  (setvar "ORTHOMODE" 0)
  (command "COPYBASE" '(0 0) ss "")
  (setvar "OSMODE" snap)
  (setvar "ORTHOMODE" otho)
  (vla-endundomark (vla-get-activedocument (vlax-get-acad-object)))
  (princ)
  )

;Paste voi diem goc 0,0
(defun C:vb ( / OTHO SNAP)
  (setvar "CMDECHO" 0)
  (vla-startundomark (vla-get-activedocument (vlax-get-acad-object)))
  (setq snap (getvar "OSMODE"))
  (setq otho (getvar "ORTHOMODE"))
  (setvar "OSMODE" 0)
  (setvar "ORTHOMODE" 0)
  (command "PASTECLIP" '(0 0))
  (setvar "OSMODE" snap)
  (setvar "ORTHOMODE" otho)
  (vla-endundomark (vla-get-activedocument (vlax-get-acad-object)))
  (princ)
  )

;Paste as block voi diem goc 0,0
(defun C:vbb ( / OTHO SNAP)
  (setvar "CMDECHO" 0)
  (vla-startundomark (vla-get-activedocument (vlax-get-acad-object)))
  (setq snap (getvar "OSMODE"))
  (setq otho (getvar "ORTHOMODE"))
  (setvar "OSMODE" 0)
  (setvar "ORTHOMODE" 0)
  (command "PASTEBLOCK" '(0 0))
  (setvar "OSMODE" snap)
  (setvar "ORTHOMODE" otho)
  (vla-endundomark (vla-get-activedocument (vlax-get-acad-object)))
  (princ)
  )

 

[nguyenkienAgr 7]

Vào lúc 21/3/2024 tại 09:52, gia_bach đã nói:

Dùng lệnh có sẵn của CAD:  PASTEORIG

ui đúng lệnh mình cần. Cám ơn bạn nhiều!

[nguyenkienAgr 7]

Vào lúc 21/3/2024 tại 10:04, limfx đã nói:

Không thích dusncgf chuột phải thì bạn copy tại điểm gốc: 0,0,0 và paste sang bảng vẽ kia tại điểm đó 0,0,0

Cách này cũng rất hay. Cám ơn bạn nhiều!

[nguyenkienAgr 7]

Vào lúc 21/3/2024 tại 11:14, Duong Nhat Duy đã nói:

Bạn thử cái này xem:

;Copy voi diem goc 0,0
(defun C:cb ( / OTHO SNAP SS)
  (setvar "CMDECHO" 0)
  (vla-startundomark (vla-get-activedocument (vlax-get-acad-object)))
  (setq ss (ssget))
  (setq snap (getvar "OSMODE"))
  (setq otho (getvar "ORTHOMODE"))
  (setvar "OSMODE" 0)
  (setvar "ORTHOMODE" 0)
  (command "COPYBASE" '(0 0) ss "")
  (setvar "OSMODE" snap)
  (setvar "ORTHOMODE" otho)
  (vla-endundomark (vla-get-activedocument (vlax-get-acad-object)))
  (princ)
  )

;Paste voi diem goc 0,0
(defun C:vb ( / OTHO SNAP)
  (setvar "CMDECHO" 0)
  (vla-startundomark (vla-get-activedocument (vlax-get-acad-object)))
  (setq snap (getvar "OSMODE"))
  (setq otho (getvar "ORTHOMODE"))
  (setvar "OSMODE" 0)
  (setvar "ORTHOMODE" 0)
  (command "PASTECLIP" '(0 0))
  (setvar "OSMODE" snap)
  (setvar "ORTHOMODE" otho)
  (vla-endundomark (vla-get-activedocument (vlax-get-acad-object)))
  (princ)
  )

;Paste as block voi diem goc 0,0
(defun C:vbb ( / OTHO SNAP)
  (setvar "CMDECHO" 0)
  (vla-startundomark (vla-get-activedocument (vlax-get-acad-object)))
  (setq snap (getvar "OSMODE"))
  (setq otho (getvar "ORTHOMODE"))
  (setvar "OSMODE" 0)
  (setvar "ORTHOMODE" 0)
  (command "PASTEBLOCK" '(0 0))
  (setvar "OSMODE" snap)
  (setvar "ORTHOMODE" otho)
  (vla-endundomark (vla-get-activedocument (vlax-get-acad-object)))
  (princ)
  )

 

Cám ơn bạn đã bỏ thời gian code giúp mình!