水平,垂直切替え構築線が 出来ないでしょうか
「水平,垂直 切替え構築線」が出来ないでしょうか
以前LT2014で お世話になり 使用していました。
AutoCAD2023で 使用できませんでしょうか
(右クリックで水平,垂直の切替えが出来ました)
よろしくお願いいたします。
- THIG
- 2026/06/24 (Wed) 14:52:39
Re: 水平,垂直切替え構築線が 出来ないでしょうか
- Hamu
- 2026/06/25 (Thu) 08:14:48
Re: 水平,垂直切替え構築線が 出来ないでしょうか
お世話になります
当方AutoCAD2023ですので
ご指示いただいたのでは 動作しないようです。
- THIG
- 2026/06/25 (Thu) 11:28:25
Re: 水平,垂直切替え構築線が 出来ないでしょうか
AutoCAD2024を使用していますが、Hamuさんご提示のマクロは動作します。
下記の対応はされていますか？
【レギュラー版での使用に関する注意事項】
https://ameblo.jp/totthi-macro/entry-10895232361.html
- LUNE
- 2026/06/25 (Thu) 11:37:51
Re: 水平,垂直切替え構築線が 出来ないでしょうか
- LUNE
- 2026/06/25 (Thu) 11:40:38
Re: 水平,垂直切替え構築線が 出来ないでしょうか
レギュラ－版使用の「TdMacros.lsp」は「とってい様」よりお世話になり使用しております。
LUNE様の下記のLISPで 動作を確認しました。
右クリックバージョン
コマンド名は同じくswxlなので、お好きなほうをどうぞ。
(defun c:swxl (/ inp kwd HV)
(command "-Layer" "n" "XLine" "P" "N" "XLine" "")
(setq kwd "H"
HV "垂直")
(while (/= kwd nil)
(prompt (strcat "\nXLINE 通過点を指定 または" HV "(右クリック):"))
(setq inp (grread))
(if (equal (car inp) 25)
(if (= kwd "V")
(setq kwd "H"
HV "垂直")
(setq kwd "V"
HV "水平")
)
)
(if (equal (car inp) 3)
(progn
(command "XLINE" kwd (cadr inp) "")
(command "Change" "L" "" "P" "LA" "XLine" "C" "5" "")
)
)
)
(princ)
)
LUNE様 今回もたいへんありがとうございました。
- THIG
- 2026/06/25 (Thu) 14:09:17