点线输出坐标值到TXT，同时复制到系统剪切版

(DEFUN C:44 (/ aa)
  (setq aa (car(entsel "\n选择多段线: ")))
  (getpt aa)
  (dcfc ptlst)
  (SET-CLIP-STRING wjyh1)
(princ)
)
;;获取坐标函数
(defun getpt(ss)
(setq ptlst (vl-remove-if 'not (mapcar '(lambda (x) (if (= (car x) 10) (cdr x))) (entget ss))))
)
;;把坐标值写入E盘的“坐标表值.txt”里
(defun dcfc (ptlst / wjmdz file1 n JXY1 xy X1 y1 TX1 Ty1 TXY J1 JXY JXY1)
  (setq wjmdz (strcat "e:/坐标表值.txt"))
  (setq file1 (open wjmdz "w"))
  (setq n 0)
  (setq JXY1 (strcat ""))
  (repeat (length ptlst)
    (setq xy (nth n ptlst))
    (setq X1 (RTOS (cadr xy) 2 2))  ;每一组坐标依次求出X的字符
    (setq y1 (RTOS (car xy) 2 2))  ;每一组坐标依次求出Y的字符
    (setq TX1 (strcat X1 "\t"))
    (setq Ty1 (strcat Y1 "\n"))
    (setq TXY (strcat TX1 Ty1))
    (setq n (+ n 1))
    (setq J1 (strcat "J" (itoa n) "\t"))
    (setq JXY (strcat J1 TXY))
    (setq JXY1 (strcat JXY1 JXY))
  )
  (setq wjyh1 JXY1)
  (write-line wjyh1 file1)
  (alert wjyh1)
  (princ)
  (close file1)
  (princ)
)
;;;功能：向系统剪贴板写入文字
(defun SET-CLIP-STRING (STR / HTML RESULT)
    (and (= (type STR) 'STR)
   (setq HTML (vlax-create-object "htmlfile"))
   (setq RESULT (vlax-invoke
        (vlax-get (vlax-get HTML 'PARENTWINDOW)
            'CLIPBOARDDATA
        )
        'SETDATA
        "Text"
        STR
          )
   )
   (vlax-release-object HTML)
    )
)