把标注数值导出为 CSV 文件

纯文本，没有任何隐藏内容。复制后存成名为 cxdim2csv.lsp 的文件，或直接下载。

;;; ============================================================================
;;; CXDIM2CSV - Export dimension values to a CSV file
;;; Version 1.0.0
;;; CADXChange LISP tools - https://cadxchange.net/resources/lisp/cxdim2csv
;;; Tested in: AutoCAD (full version). Other programs that run AutoLISP may work but are not tested.
;;; Copyright (c) CADXChange. Free for personal and commercial use; do not resell or
;;; republish it as a collection. Terms: https://cadxchange.net/legal/lisp-terms
;;; ============================================================================

;; CSV lines (header first) for the dimensions in NAMES: handle, layer, measured value, text shown ("<>" means the
;; measured value), dimension style.
(defun cx:dim2csv-lines (names / rows ed)
  (foreach e names
    (setq ed (entget e))
    (setq rows (cons (cx:csv-line (list (cx:dxf 5 ed) (cx:dxf 8 ed)
                                        (if (cx:dxf 42 ed) (cx:n4 (cx:dxf 42 ed)) "")
                                        (if (cx:dxf 1 ed) (cx:dxf 1 ed) "")
                                        (cx:dxf 3 ed)))
                     rows)))
  (cons "Handle,Layer,Measurement,Text,Style" (reverse rows)))

(defun c:CXDIM2CSV ( / *error* cx:sv ss file)
  (setq *error* cx:err)
  (setq ss (if (= (cx:ask-kw "Export dimensions in" "All Selection" "All") "All")
             (ssget "X" (list '(0 . "DIMENSION") (cons 410 (getvar "CTAB"))))
             (cx:pick "\nSelect dimensions: " '((0 . "DIMENSION")))))
  (if ss
    (if (setq file (cx:file-save "Save the dimension list as CSV" "dimensions"))
      (cx:csv-save file (cx:dim2csv-lines (cx:ss->list ss))))
    (princ "\nNo dimensions found."))
  (princ))


;;; ---- Shared helpers (used by the command above; identical in every CADXChange tool) ----

;; 1-based position of SUB in STR at or after START, or nil.
(defun cx:find (str sub start / n i r)
  (setq n (strlen sub) i start r nil)
  (if (> n 0)
    (while (and (not r) (<= i (1+ (- (strlen str) n))))
      (if (= (substr str i n) sub) (setq r i))
      (setq i (1+ i))))
  r)

;; Replace every OLD in STR by NEW (case sensitive).
(defun cx:replace (str old new / n out pos)
  (setq n (strlen old) out "" pos 1)
  (if (= n 0)
    str
    (progn
      (while (<= pos (1+ (- (strlen str) n)))
        (if (= (substr str pos n) old)
          (setq out (strcat out new) pos (+ pos n))
          (setq out (strcat out (substr str pos 1)) pos (1+ pos))))
      (strcat out (substr str pos)))))

;; One CSV field: quoted when it holds a comma, a quote or a line break.
(defun cx:csv-field (s)
  (if (or (cx:find s "," 1) (cx:find s "\"" 1) (cx:find s "\n" 1) (cx:find s "\r" 1))
    (strcat "\"" (cx:replace s "\"" "\"\"") "\"")
    s))

(defun cx:join (lst delim / out)
  (setq out "")
  (foreach s lst
    (setq out (if (= out "") s (strcat out delim s))))
  (if lst out ""))

(defun cx:csv-line (fields)
  (cx:join (mapcar 'cx:csv-field fields) ","))

(defun cx:dxf (code ed)
  (cdr (assoc code ed)))

;; Real X as text with at most PREC decimals and no trailing zeros ("2.50" -> "2.5", "3.00" -> "3").
(defun cx:num (x prec / s)
  (setq s (rtos x 2 prec))
  (if (wcmatch s "*.*")
    (progn
      (while (= (substr s (strlen s)) "0") (setq s (substr s 1 (1- (strlen s)))))
      (if (= (substr s (strlen s)) ".") (setq s (substr s 1 (1- (strlen s)))))))
  (if (or (= s "-0") (= s "")) "0" s))

;; A real as text with at most 4 decimals.
(defun cx:n4 (x) (cx:num x 4))

;;; Geometry helpers: polylines with arcs, length, area, centroid, a point inside a shape.
;;; See helpers.lsp for the format.

;; Close the undo step and put the system variables back.
(defun cx:end ()
  (foreach v cx:sv (setvar (car v) (cdr v)))
  (command "_.UNDO" "_End")
  (setq cx:sv nil)
  (princ))

;; Error handler: restores everything, stays quiet on Esc.
(defun cx:err (msg)
  (if (> (getvar "CMDACTIVE") 0) (command))
  (cx:end)
  (if (and msg (not (wcmatch (strcase msg) "*BREAK*,*CANCEL*,*EXIT*")))
    (princ (strcat "\nError: " msg)))
  (princ))

;; Ask for one of the keywords in BITS ("Yes No"), default DEF; returns the keyword.
(defun cx:ask-kw (msg bits def / v)
  (initget 0 bits)
  (setq v (getkword (strcat "\n" msg " [" (cx:replace bits " " "/") "] <" def ">: ")))
  (if v v def))

;; Use the objects already selected, or ask the user to select; FILTER is an ssget filter list or nil.
(defun cx:pick (msg filter / ss)
  (setq ss (if filter (ssget "_I" filter) (ssget "_I")))
  (if (null ss)
    (progn
      (princ msg)
      (setq ss (if filter (ssget filter) (ssget)))))
  ss)

;; Ask where to save a CSV file; BASE is the proposed file name without folder and extension. Returns a path or nil.
;; With FILEDIA 0 the name is typed at the command line instead of picked in a dialog.
(defun cx:file-save (title base / def f)
  (setq def (strcat (getvar "DWGPREFIX") base ".csv"))
  (if (= (getvar "FILEDIA") 0)
    (progn
      (setq f (getstring T (strcat "\n" title " <" def ">: ")))
      (if (= f "") def f))
    (getfiled title def "csv" 1)))

;; Write LINES to FILE; returns T, or nil when the file cannot be written.
(defun cx:write-lines (file lines / f)
  (if (setq f (open file "w"))
    (progn
      (foreach l lines (write-line l f))
      (close f)
      T)))

;; Write CSV LINES to FILE and report it; returns T when the file was written.
(defun cx:csv-save (file lines)
  (if (cx:write-lines file lines)
    (progn (princ (strcat "\n" (itoa (1- (length lines))) " row(s) written to " file)) T)
    (progn (princ (strcat "\nThe file could not be written: " file)) nil)))

;; Selection set to a list of entity names.
(defun cx:ss->list (ss / i out)
  (setq i 0)
  (if ss
    (repeat (sslength ss)
      (setq out (cons (ssname ss i) out)
            i   (1+ i))))
  (reverse out))

(princ "\nCXDIM2CSV loaded. Type CXDIM2CSV to start.")
(princ)

更多命令：导出与导入（CSV）

• CXTXT2CSV把文字导出为 CSV 文件
• CXBLK2CSV把图块及其属性导出为 CSV 文件
• CXCOORD2CSV把坐标导出为 CSV 文件
• CXLAYER2CSV把图层清单导出为 CSV 文件
• CXAREA2CSV把面积和周长导出为 CSV 文件
• CXOBJ2CSV把对象清单导出为 CSV 文件
• CXCSV2TXT按 CSV 文件放置文字
• CXPTS按 CSV 文件绘制带名称的点
• CXCSV2ATT按 CSV 文件填写图块属性