長さ記入後、直列寸法記入に移行するLISP

2026年4月25日

URLをコピーしました！

寸法を入れるとき、最初に1本入れてから直列寸法を続ける作業はよくあります。

ただし通常は、DIMLINEAR → DIMCONTINUE → 繰り返しとコマンドを切り替える必要があります。

このLISP「PDL」を使えば、最初の1本を入力するだけで、そのまま直列寸法を連続入力できます。

※このLISPは異尺度寸法を前提に作られています

;;=================================================================
;; 長さ + 直列寸法 専用
;;=================================================================
(defun c:PDL (/ p1 p2 first done oldlast tmp oldDimLayer)

  (vl-load-com)

  (prompt "\n=== 長さ + 直列寸法 専用 ===")

  ;;=======================================================
  ;; 寸法レイヤー設定
  ;;=======================================================
  (setq oldDimLayer (getvar "DIMLAYER"))

  (if (not (tblsearch "LAYER" "SUNPOU"))
    (command "_.LAYER" "_M" "SUNPOU" "_C" "7" "" "")
  )

  (setvar "DIMLAYER" "SUNPOU")

  ;;=======================================================
  ;; 寸法ループ
  ;;=======================================================
  (setq first T
        done nil)

  (while (not done)

    (if first

      ;;===========================================
      ;; 初回寸法（DIMLINEAR）
      ;;===========================================
      (progn
        (setq p1 (getpoint "\n1点目を指定 : "))
        (if (null p1) (setq done T))

        (if (not done)
          (progn
            (setq p2 (getpoint "\n2点目を指定: " p1))
            (if (null p2) (setq done T))
          )
        )

        (if (not done)
          (progn
            (command "_.DIMLINEAR" p1 p2 pause)
            (setq first nil)
          )
        )
      )

      ;;===========================================
      ;; 2回目以降：直列寸法（DIMCONTINUE）
      ;;===========================================
      (progn
        (prompt "\n直列寸法を続ける点をクリック : ")

        (setq oldlast (entlast))
        (command "_.DIMCONTINUE" pause)
        (setq tmp (entlast))

        ;; Enterで終了
        (if (= tmp oldlast)
          (setq done T)
        )
      )
    )
  )

  ;;=======================================================
  ;; レイヤー戻す
  ;;=======================================================
  (setvar "DIMLAYER" oldDimLayer)

  (prompt "\n処理を終了しました。")
  (princ)
)

すぐできる設定手順