AutoCAD - 日本語フォーラムのトピックvla-Loadでの線種情報の上書き方法

vla-Loadでの線種情報の上書き方法

naozo8257 — Wed, 06 Feb 2019 15:24:33 GMT

(vla-Load)を使用して図面内の線種情報を更新したいと考えています。

;;---ここから
(vl-load-com)
(setq acadObj (vlax-get-acad-object))
(setq doc (vla-get-ActiveDocument acadObj))
(setq adLinetypes (vla-get-Linetypes doc))

(vla-Load adLinetypes "CENTER" "acad.lin");;----※
;;--ここまで

※の行で(vla-Load)を使用して"CENTER"の線種をロードしています。
図面情報内に"CENTER"が無い時は正しくサポートフォルダの指定した線種ファイルから"CENTER"をロードしてくれるのですが、

図面内に"CENTER"がある状態ではエラーが返されてしまいます。
過去にLisp内で線種を読み込むには？と質問させていただいたときは線種ファイル内のすべての線種を上書きしながらロードする方法をご教授頂きました。→https://autode.sk/2BeWThj

今回は線種を単品でかつ(vla-Load)を使用することで(command)を使用しないでロードが行えたらと思っています。

現状は過去に頂いた(command)を使用する方法で線種名を"*"ではなく1つ指定させることで上書きロードさせています。

(vla-Load)を使用し、図面内に既に存在する線種名の線種情報を上書きすることは可能でしょうか？
また、別の方法がありますでしょうか。

Katsuaki.T — Wed, 27 Mar 2019 05:26:33 GMT

@naozo8257 さん、こんにちは。

図面内に既に線種がロードされている際にエラーが返されるとのことですが、エラー関数を用意しておいて、そこで必要な処理（または何もしない）を行ってはいかがと思います。エラー関数の使用はすでに検討されておりますでしょうか？

以下は英語サイトですが、ご参考になりそうなサンプルコードがありました。

naozo8257 — Sat, 20 Apr 2019 13:29:36 GMT

現在は図面内に線種があるかを判断し、線種が存在しなければvla-Loadによる線種のロードを行い、線種が存在すればcommandによる線種ロードを行うことで線種定義を更新するよう記述することでエラーにならないようにしています。

解決済みと処理しますが、何か他に線種のロードを行う方法があればご教授頂きたいです。