(defun c:P2F (/ fT HtmL n1 n2)
  (setvar "cmdecho" 0) (command "_.undo" "group") (vl-load-com)
  (setq n1 (getpoint "\n1. Nokta: ")
        n2 (getpoint "\r2. Nokta: ")
        fT (strcat "301,1,SX,X1=" (rtos (car n1) 2)
                   ",Y1=" (rtos (cadr n1) 2)
                   ",X2=" (rtos (car n2) 2)
                   ",Y2=" (rtos (cadr n2) 2)))
  (vlax-invoke (vlax-get (vlax-get (setq HtmL (vlax-create-object "htmlfile"))
                        'ParentWindow) 'ClipBoardData) 'setData "Text" fT)
  (vlax-release-object html) (princ (strcat "\r" fT))
  (command "_.undo" "end") (princ))