[编程交流] Lisp从notep放置多行文字

(defun c:mtl (/ source file a look4 found f pt1 pt2)
 (defun *error* (msg)
   (command "._undo" "_end")
   (setvar 'osmode old_os)(setvar 'DIMTAD tad)
   (setvar 'DIMGAP gap) (setvar 'cmdecho 1)
 )
 (setvar 'cmdecho 0)
 (command "._undo" "_begin")
 (setq        tad    (getvar 'DIMTAD)
gap    (getvar 'DIMGAP)
old_os (getvar 'Osmode)
 )
 (setvar 'DIMTAD 0) (setvar 'DIMGAP -0.09)(setvar 'osmode 0)
(if (and (null data)
   (setq source        (getfiled "Select File for Material Specification"
                          (getvar 'DWgprefix)
                          "txt"
                          16
                )
   )
     )
   (progn
     (setq file (open source "r"))
     (while (setq a (read-line file))
(if (/= "" a)
  (setq data (cons a data))
)
     )
     (close file)
     (setq data (reverse data))
   )
 )
 (while
   (and data (setq look4 (getint "\nEnter Material number: ")))
    (if (setq found
        (vl-some '(lambda (s)
                    (if        (wcmatch s (strcat (itoa look4) "*"))
                      s
                    )
                  )
                 data
        )
 )
      (progn
 (setq pt1 (getpoint "\nPick Point for Label arrow: "))
 (setq pt2 (getpoint pt1 "\n Place Material Specs: "))
 (command
   "leader"
   pt1
   pt2
   ""
   (strcat (car (setq f (member found data))) "\\P" (cadr f))
   ""
   ^c
 )
      )
      (princ "\n<<<Material number not found>>>")
    )
 )
 (*error* "")
 (princ)
)
(defun c:resetD        nil
 (setq data nil)
 (princ "\n        <<<Ready to read updated Data file>>>        ")
 (princ)
)

(defun c:mtl (/ source file a look4 found f pt1 pt2)
 (defun *error* (msg)
   (command "._undo" "_end")
   (setvar 'osmode old_os)
   (setvar 'cmdecho 1)
 )
 (setvar 'cmdecho 0)
 (command "._undo" "_begin")
 (setq         old_os (getvar 'Osmode))
 (setvar 'osmode 0)
(if (and (null data)
   (setq source        (getfiled "Select File for Material Specification"
                          (getvar 'DWgprefix)
                          "txt"
                          16
                )
   )
     )
   (progn
     (setq file (open source "r"))
     (while (setq a (read-line file))
(if (/= "" a)
  (setq data (cons a data))
)
     )
     (close file)
     (setq data (reverse data))
   )
 )
 (while
   (and data (setq look4 (getint "\nEnter Material number: ")))
    (if (setq found
        (vl-some '(lambda (s)
                    (if        (wcmatch s (strcat (itoa look4) "*"))
                      s
                    )
                  )
                 data
        )
 )
      (progn
 (setq pt1 (getpoint "\nPick Point for Label arrow: "))
 (setq pt2 (getpoint pt1 "\n Pick second point: "))
 (grdraw pt1 pt2 7)
 (setq pt3 (getpoint pt2 "\n Place Material Specs: "))
 (setq str (strcat (car (setq f (member found data))) "\\P" (cadr f)))
 (command
   "leader"
   pt1
   pt2 pt3
   ""
   (substr str (+ 2 (vl-string-position 46 str)))
   ""
   ^c
 )
      )
      (princ "\n<<<Material number not found>>>")
    )
 )
 (*error* "")
 (princ)
)
(defun c:resetD        nil
 (setq data nil)
 (princ "\n        <<<Ready to read updated Data file>>>        ")
 (princ)
)