仕事のカタマリ -

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

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

仕事のカタマリ

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
Those who dance are considered insane by those who cannot hear the music.

言語

Powered By

Test Themes

フォーラムニュース: 質問、相談カテゴリに「SolidWorks操作方法」に関するフォーラムを追加しました。(2003/11/27)

いらっしゃい、 ゲストさん. まずはこちら→ ログインまたは登録. 2024/11/23 - 16:50:29

仕事のカタマリ掲示板 | SolidWorks一般 | SolidWorksのカスタマイズ (議長: webmaster) | トピック: パーツに色を設定するマクロ

前のトピック次のトピック

ページ: [1]

著者	トピック: パーツに色を設定するマクロ (閲覧数 1587 回)

tkinu
Sr. メンバー

オフライン

投稿: 141

パーツに色を設定するマクロ
« 投稿日: 2006/01/25 - 09:15:56 »

いつもお世話になっています！

パーツに色を設定するマクロを作成しようとしています。
以下のコードを作成しました。
しかし、保存や再構築をすると元の色に戻ってしまって正しく
色の変更ができません。
何がおかしいかわかりますでしょうか？

Sub iro()

Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swModelExt = swModel.Extension
Dim objProp(8) As Double

objProp(0) = 0.976470588235294
objProp(1) = 1
objProp(2) = 0.623529411764706
objProp(3) = 1
objProp(4) = 1
objProp(5) = 1
objProp(6) = 0.31
objProp(7) = 0
objProp(8) = 0

Call swModelExt.SetMaterialPropertyValues(objProp, 2, "")

End Sub

議長に報告する

記録済み

tkinu
Sr. メンバー

オフライン

投稿: 141

Re:パーツに色を設定するマクロ
« 返信 #1 投稿日: 2006/01/25 - 09:24:05 »

すいません。
分かりました！

誤
Call swModelExt.SetMaterialPropertyValues(objProp, 2, "")
正
　　swModel.MaterialPropertyValues = objProp
swModel.EditRebuild3
とすれば正常に変更できました。

議長に報告する

記録済み

ページ: [1]

仕事のカタマリ掲示板 \| SolidWorks一般 \| SolidWorksのカスタマイズ (議長: webmaster) \| トピック: パーツに色を設定するマクロ	前のトピック次のトピック

ジャンプします: