菜鳥發問請多包涵
(defun c:TT1()
(setq AP3 (getpoint "\n左上點:"))
(setq AP1 (getpoint AP3 "\n右下點:"))
(command "_explode" "C" AP3 AP1 "") ;
↧