仕事のカタマリにようこそ!  [ ログイン | ユーザ登録 ]

フォーラムから検索

機械用3D-CAD SolidWorks非公認のユーザサイトです

Web katamari.org

仕事のカタマリ ホーム リンク集 ダウンロード フォーラム(掲示板) FAQ お問い合わせ

Site  ニュース  アナウンス  最新情報  3Dで機械設計しよう!  コラム  仕事のカタマリについて  ROBOCON  PascalWorks  Documentation  ゲストブック 全ダウンロード: 6446 全ファイル: 4 一番人気: らせん溝 ヒット数: 2621 アナウンス katamariWiki設置 リンクのカテゴリー追加 ... ゲストブックを修正 ... リンクのカテゴリを変更 ... TELL-A-FRIEND 新着記事 SolidWorks World 2010 ... 高専ロボコン2009全国大会速報 ... SolidWorks PremiumのCM 米SolidWorksサイトでTop10 エンハ ... SW2008 sp5.0リリース メンバーログイン ユーザ名: パスワード: 憶えておく   パスワード再発行 新規ユーザ登録 Random Thoughts Everything goes on forever since the fat lady retired. 言語 Powered By Test Themes CorporateBluepascaldefault

フォーラムニュース: 質問、相談カテゴリに「SolidWorks操作方法」に関するフォーラムを追加しました。(2003/11/27) いらっしゃい、 ゲストさん. まずはこちら→ ログイン または 登録. 2024/11/23 - 20:34:37 仕事のカタマリ 掲示板  |  SolidWorks一般  |  SolidWorksのカスタマイズ (議長: webmaster)  |  トピック: SW　APIについて 前のトピック 次のトピック ページ: [1]      著者  トピック: SW　APIについて  (閲覧数 2895 回) chippu Sr. メンバー オフライン 投稿: 79 I'm a llama! SW　APIについて « 投稿日: 2005/06/23 - 15:22:40 » こんにちわ。SolidWorksの注記アノテートアイテムをマクロで挿入しようと思います。その際に、挿入しようとする注記の文字ポイントをマクロ内で設定したいのですがどうしたらよろしいでしょうか？？具体的に教えて頂けたら幸いです。 議長に報告する   記録済み hisa カタマリの王様!? オフライン 投稿: 507 PANDA-Z!! Re:SW　APIについて « 返信 #1 投稿日: 2005/06/23 - 15:38:15 » こんにちは アノテートアイテムの文字サイズは、Annotation::SetTextFormatで変更します。 このメソッドのtextFormat引数は、あらかじめtextFormatオブジェクトを作成し TextFormat::CharHeightInPtsにてポイントを変更する必要があります。 (もちろん設定はポイントだけではありません) 詳しくは、APIヘルプのAnnotation::SetTextFormatのページ上部に『例』のリンクが あるので、そちらを見てみると良いかもしれません 議長に報告する   記録済み chippu Sr. メンバー オフライン 投稿: 79 I'm a llama! Re:SW　APIについて « 返信 #2 投稿日: 2005/06/23 - 15:49:14 » Set swApp = Application.SldWorks Set Part = swApp.ActiveDoc Dim Note As Object Dim Annotation As Object Dim TextFormat As Object Dim retval As Variant Dim I As String I = UserForm1.TextBox1 Set Note = Part.InsertNote(I) 実際にはこのあとまだ続いているのですが、この時点で文字ポイントを変更するにはどうしたら宜しいのでしょうか？ 議長に報告する   記録済み hisa カタマリの王様!? オフライン 投稿: 507 PANDA-Z!! Re:SW　APIについて « 返信 #3 投稿日: 2005/06/23 - 16:06:52 » 引用: Set swApp = Application.SldWorks Set Part = swApp.ActiveDoc Dim Note As Object Dim Annotation As Object Dim TextFormat As Object Dim retval As Variant Dim I As String I = UserForm1.TextBox1 Set Note = Part.InsertNote(I) Set Annotation = Note.GetAnnotation ＝＝＝以下APIヘルプ引用＝＝＝ For j = 0 To Annotation.GetTextFormatCount - 1 　　Set swTextFormat = Annotation.GetTextFormat(j) 　　' Change text to be 10Pt high, bold, italic, and Comic Sans MS font face 　　swTextFormat.CharHeightInPts = 10 　　swTextFormat.Bold = True 　　swTextFormat.Italic = True 　　swTextFormat.TypeFaceName = "Comic Sans MS" 　　bRet = Annotation.SetTextFormat(j, False, swTextFormat): Debug.Assert bRet Next てな具合でどうでしょう？ 試していませんが… 議長に報告する   記録済み chippu Sr. メンバー オフライン 投稿: 79 I'm a llama! Re:SW　APIについて « 返信 #4 投稿日: 2005/06/24 - 09:57:38 » ありがとうございまいた。色々試してみた結果出来ました。 感謝。 議長に報告する   記録済み ページ: [1]   仕事のカタマリ 掲示板  |  SolidWorks一般  |  SolidWorksのカスタマイズ (議長: webmaster)  |  トピック: SW　APIについて 前のトピック 次のトピック ジャンプします:行き先を選んで下さい: ----------------------------- SolidWorks一般 ----------------------------- =>SolidWorks全般 =>SolidWorksのカスタマイズ =>SolidWorks改善要求 =>SolidWorks Tips ----------------------------- SolidWorks質問、相談 ----------------------------- =>SolidWorks操作方法 =>SolidWorksアドインソフト ----------------------------- その他 ----------------------------- =>投票(アンケート)について =>雑談 =>お知らせ

© 2002-2003 Atsushi S. | Privacy Policy Powered by t-t-C-M-S v2.0.4