网友答:

- (defun c:z1 (/ ss zpp1)
- (setvar "cmdecho" 0)
- (setq ss (ssget))
- (setq zpp1 (getpoint "\n選擇基點:"))
- (command "move" ss "" zpp1 "m2p" pause)
- (princ "\n選擇物件已置於兩點之間")
- (princ)
- )