CXDIST测量与多段线版本 1.0.0已在 AutoCAD 中测试
逐点测量一条路径
沿着路线一路点击，每一段的长度、角度、X/Y 增量和累计总长都会显示，最后一点点错了可以 Undo。
怎么用
- 输入 CXDIST，点击第一个点。
- 依次点击后面的点；选 Undo 可以撤回最后一点。
- 按 Enter 结束，查看路径总长和闭合后的面积。
需要知道
- 不会在图中画任何东西，任何图纸上都可以放心使用。
在 AutoCAD 中加载
- 把文件保存在任意位置。
- 输入 APPLOAD，选择文件，点“加载”。
- 输入命令名：CXDIST。
想每次启动都可用，在同一个对话框里加入“启动组”，或用可选的加载器一次加载整个文件夹。 关于可选的加载器
已在 AutoCAD（完整版）中测试。其他能运行 AutoLISP 的软件也许可用，但未经测试。
代码
纯文本，没有任何隐藏内容。复制后存成名为 cxdist.lsp 的文件，或直接下载。
;;; ============================================================================
;;; CXDIST - Measure a path point by point
;;; Version 1.0.0
;;; CADXChange LISP tools - https://cadxchange.net/resources/lisp/cxdist
;;; 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
;;; ============================================================================
;; The length of the path through PTS and, when the path is closed back to its start, the area it encloses: (length area).
(defun cx:dist-stats (pts / total i n sum)
(setq total 0.0 sum 0.0 i 0 n (length pts))
(repeat (1- n)
(setq total (+ total (distance (nth i pts) (nth (1+ i) pts))) i (1+ i)))
(setq i 0)
(repeat n
(setq sum (+ sum (- (* (car (nth i pts)) (cadr (nth (rem (1+ i) n) pts)))
(* (car (nth (rem (1+ i) n) pts)) (cadr (nth i pts)))))
i (1+ i)))
(list total (abs (/ sum 2.0))))
(defun c:CXDIST ( / *error* cx:sv pts p r prec leg total)
(setq *error* cx:err)
(setq prec (getvar "LUPREC")
pts nil
total 0.0)
(setq p (getpoint "\nFirst point: "))
(while p
(if pts
(progn
(setq leg (distance (car pts) p)
total (+ total leg))
(princ (strcat "\nLeg " (cx:num leg prec)
" angle " (cx:num (* 180.0 (/ (angle (car pts) p) pi)) 2)
" dx " (cx:num (- (car p) (car (car pts))) prec)
" dy " (cx:num (- (cadr p) (cadr (car pts))) prec)
" total " (cx:num total prec)))))
(setq pts (cons p pts))
(initget "Undo")
(setq r (if (cdr pts)
(getpoint p "\nNext point or [Undo] (Enter to finish): ")
(getpoint p "\nNext point (Enter to finish): ")))
(cond
((= r "Undo")
(setq pts (cdr pts))
(if (cdr pts) (setq total (- total (distance (car pts) (cadr pts)))) (setq total 0.0))
(setq p (car pts)
pts (cdr pts)))
(T (setq p r))))
(if (cdr pts)
(progn
(setq r (cx:dist-stats (reverse pts)))
(princ (strcat "\nPath length " (cx:num (car r) prec)
". Area enclosed if closed back to the start: " (cx:num (cadr r) prec) ".")))
(princ "\nNeed at least two points."))
(princ))
;;; ---- Shared helpers (used by the command above; identical in every CADXChange tool) ----
;; 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))
;; 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))
(princ "\nCXDIST loaded. Type CXDIST to start.")
(princ)
版本记录
版本 1.0.0 · 2026年10月27日
首个版本。