[编程交流] 保存“文本”及其坐标

(defun c:TextToFIle( / *error* allText lenTxt idx fName txtFile dName
thisTxtObj thisText)
(vl-load-com)
(defun *error*(msg)
(if msg
(if txtFile
(progn
(close txtfile)
(setq txtFile nil)
(gc)
)
)
)
)
(setq allText(ssget"x"(list(cons 0 "Text"))))
(if allText
(progn
(princ(strcat(itoa(setq lenTxt(sslength allText)))" text objects to
export"))
(setq idx -1)
(setq fName(strcat(getvar"DwgPrefix")(setq
dName(vl-filename-base(getvar"Dwgname")))"-Text.txt"))
(setq txtFile(open fName "w"))
(repeat lenTxt
(setq thisTxtObj
(vlax-ename->vla-object(ssname allText (setq idx(1+ idx))))
thisText (vla-get-textstring thisTxtObj))
(write-line thisText txtFile)
);repeat
(close txtFile)
(setq txtFile nil)
(gc)
(princ"\nDone writing to file")
);progn
);if text
(princ)
)

(setq thisTxtObj (vlax-ename->vla-object(ssname allText (setq idx(1+ idx))))
     ipt (vlax-get thisTxtObj 'InsertionPoint)
     xdata (rtos (car ipt))
     ydata (rtos (cadr ipt))
     thisText (vla-get-textstring thisTxtObj))
(write-line (strcat xdata ", " ydata ", " thisText) txtFile))

(defun c:Test (/ ss fl o)
 ;; Tharwat 21. Feb. 2014    ;;
 (if (and (setq ss (ssget '((0 . "TEXT")(8 . "Dz 02,Dz 02 new"))))
          (setq fl (strcat (getvar 'DWGPREFIX) (vl-filename-base (getvar 'DWGNAME)) ".txt"))
          )
   (progn
     (setq o (open fl "w"))
     (write-line (strcat "X," "\t" "Y," "\t" "Text") o)
   ((lambda (x / e p)
      (while (setq e (ssname ss (setq x (1+ x))))
        (setq p (cdr (assoc 10 (entget e))))
        (write-line (strcat (rtos (car p) 2) "\t" (rtos (cadr p) 2) "\t" (cdr (assoc 1 (entget e)))) o)
        ))
     -1)
     (close o))
   )
 (if fl (startapp "Notepad" fl))
 (princ)
 )

[b][color=BLACK]([/color][/b]defun c:extxt [b][color=FUCHSIA]([/color][/b]/ wf ss i en ed tx ip ap[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]setq wf [b][color=NAVY]([/color][/b]open [b][color=MAROON]([/color][/b]strcat [b][color=GREEN]([/color][/b]getvar [color=#2f4f4f]"DWGPREFIX"[/color][b][color=GREEN])[/color][/b] [color=#2f4f4f]"\\-TEXT.TXT"[/color][b][color=MAROON])[/color][/b] [color=#2f4f4f]"w"[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]and [b][color=NAVY]([/color][/b]setq ss [b][color=MAROON]([/color][/b]ssget '[b][color=GREEN]([/color][/b][b][color=BLUE]([/color][/b]0 . [color=#2f4f4f]"TEXT"[/color][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
      [b][color=NAVY]([/color][/b]setq i 0[b][color=NAVY])[/color][/b]
      [b][color=NAVY]([/color][/b]while [b][color=MAROON]([/color][/b]setq en [b][color=GREEN]([/color][/b]ssname ss i[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]setq ed [b][color=GREEN]([/color][/b]entget en[b][color=GREEN])[/color][/b]
                   tx [b][color=GREEN]([/color][/b]cdr [b][color=BLUE]([/color][/b]assoc  1 ed[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                   ip [b][color=GREEN]([/color][/b]cdr [b][color=BLUE]([/color][/b]assoc 10 ed[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                   ap [b][color=GREEN]([/color][/b]cdr [b][color=BLUE]([/color][/b]assoc 11 ed[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]prin1 ip wf[b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]princ [color=#2f4f4f]" "[/color] wf[b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]prin1 ap wf[b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]princ [color=#2f4f4f]" "[/color] wf[b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]prin1 tx wf[b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]write-line [color=#2f4f4f]""[/color] wf[b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]setq i [b][color=GREEN]([/color][/b]1+ i[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]close wf[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]

  (if (and (setq ss (ssget '((0 . "TEXT")(8 . "Layer #2"))))

(8 . "*2")