CXDIST測定とポリラインバージョン 1.0.0AutoCAD で動作確認済み
経路を点ごとに測る
経路に沿ってクリックしていくと、各区間の長さ、角度、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日
最初のリリース。