FormattedHoleThreadNoteの書き換えで記号がHTMLエスケープ処理され、正常に図面に反映されない

[Anonymous]

iLogicまたはVBAを使用して、FormattedHoleThreadNoteの書き換えにより、

穴注記の単語翻訳を行いたいと考えています。

FormattedHoleThreadNoteに書き込みを行った際、

"< > ' "がHTMLエスケープ処理により変換され、

正常に穴注記の表示ができない場合があります。

iLogicとVBAどちらも同じ現象を確認しております。

こちら改善方法などありましたら、ご教示いただけますと幸いです。

使用製品

Inventor 2020.3 build 373

Windows 10

使用したコード

ActiveSheet.Sheet.DrawingNotes.HoleThreadNotes.Item(10).FormattedHoleThreadNote=ActiveSheet.Sheet.DrawingNotes.HoleThreadNotes.Item(10).FormattedHoleThreadNote

処理前の図面注記

処理前の FormattedHoleThreadNote：

<QuantityNote/><HoleProperty HolePropertyID='kThreadDesignationHoleProperty'></HoleProperty> depth <HoleProperty HolePropertyID='kHoleDepthHoleProperty'False'></HoleProperty>

処理後の図面注記：

処理後のFormattedHoleThreadNote： 

&lt;QuantityNote/&gt;&lt;HoleProperty HolePropertyID=&apos;kThreadDesignationHoleProperty&apos;&gt;&lt;/HoleProperty&gt; depth &lt;HoleProperty HolePropertyID=&apos;kHoleDepthHoleProperty&apos;False&apos;&gt;&lt;/HoleProperty&gt;

[HideoYamada · Accepted solution]

こんにちわ。

コードは書き戻しているだけですよね?

VBAで下記コードを試したところ、正常に動作しているようです。

Sub test()
    Dim drawingDoc As DrawingDocument: Set drawingDoc = ThisApplication.ActiveDocument
    Dim oSheet As Sheet: Set oSheet = drawingDoc.ActiveSheet
    Dim htn As HoleThreadNote: Set htn = oSheet.DrawingNotes.HoleThreadNotes(1)
    
    Debug.Print htn.FormattedHoleThreadNote
    oSheet.DrawingNotes.HoleThreadNotes(1).FormattedHoleThreadNote = oSheet.DrawingNotes.HoleThreadNotes(1).FormattedHoleThreadNote
    Debug.Print htn.FormattedHoleThreadNote
End Sub

また、次のコードで穴注記が書き換えできることも確認しました。

' 穴注記を1つ選択してから、実行してね
Sub test2()
    Dim htn As HoleThreadNote: Set htn = ThisApplication.ActiveDocument.SelectSet(1)
    Dim formattedNote As String
    
    formattedNote = htn.FormattedHoleThreadNote
    Debug.Print formattedNote
    htn.FormattedHoleThreadNote = "Modified : " & formattedNote
End Sub

iLogicも試しましたが、化けませんね・・・

MessageBox.Show(ActiveSheet.Sheet.DrawingNotes.HoleThreadNotes(1).FormattedHoleThreadNote)
ActiveSheet.Sheet.DrawingNotes.HoleThreadNotes(1).FormattedHoleThreadNote = ActiveSheet.Sheet.DrawingNotes.HoleThreadNotes(1).FormattedHoleThreadNote
MessageBox.Show(ActiveSheet.Sheet.DrawingNotes.HoleThreadNotes(1).FormattedHoleThreadNote)

[HideoYamada]

追伸。

---

@Anonymous wrote:

正常に穴注記の表示ができない場合があります。

ということは、出来る場合もあるということですか?

データ依存なら、そこだけ切り出したデータを晒してもらえると、追試しやすいです。

[Anonymous]

早々の追試験とご回答いただき、ありがとうございます。返答遅れ申し訳ありません。

追試いただいたような通常のやり方では発生しないということで、

端末か環境原因と推定して、他の方法で考えてみたいと思います。

---

---

@Anonymous wrote:

正常に穴注記の表示ができない場合があります。

ということは、出来る場合もあるということですか?

データ依存なら、そこだけ切り出したデータを晒してもらえると、追試しやすいです。

---

はい、できる場合もあります。穴の種類に依存していたようです。

データの切り出しは許可が出ず、申し訳ありません。