専用のレイヤーでポリリニアを描画

[Joblayer]

私は再びリップとラインで試しました
(コマンド "_xline" "or" が壊れます)
全てが誤りなく動作し、1つの水平線だけを描画する(プロセスが遅くなる)

ラインを使って
(コマンド "_xline" "or" が壊れています)
エラーが生成され、プロセスが中断され、コントロールは新しい水平線の新しいポイントを要求し続けるコマンド "_xline" に渡されます(コマンドのリプはもうありません)

ps は、行を使用する必要がありますより正しい
(コマンド "_xline" "_h" は一時停止)
このようにして、他の言語にも対応しています。

 

[lattu]

私は再びリップとラインで試しました
(コマンド "_xline" "or" が壊れます)
全てが誤りなく動作し、1つの水平線だけを描画する(プロセスが遅くなる)

正しく動作しない

ps は、行を使用する必要がありますより正しい
(コマンド "_xline" "_h" は一時停止)
このようにして、他の言語にも対応しています。

お問い合わせ

 

[Joblayer]

正しく動作しない

コマンドラインに読み込まれたものについて、より清潔なものを得るために、私は修正し、少しリストを均一化しましたが、あなたが動作しない場合は、結果を変更することなく、私は残念です、私は、それがうまく動作するオートカドバージョンに依存します。

(defun c:lincosh )
(setq namelayer "buildings"); 対象レイヤーの名前
(setq lay (getvar "clayer") ; 現在のレイヤーを保存します。
(tblsearch "layer" nomelayer) ; ターゲット層の存在を検索
(コマンド "_layer" "_on" の名前レイヤー ") ; が存在する場合、
(command "_layer" "_make" 名前レイヤ"); そのようなことがない場合、
)
(command "_setvar" "clayer" 名前レイヤー) ; ターゲットレイヤーを現在のレイヤーにする
(command "_xline" "_h" は一時停止)。 水平線構造線を引く
(コマンド "_setvar" "clayer" ) ; 前のレイヤーを復元
(プライアンス)
)

 

[lattu]

同じありがとう