仕事のカタマリ -

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

機械用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
The easiest way to find something lost around the house is to buy a replacement.

言語

Powered By

Test Themes

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

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

仕事のカタマリ掲示板 | SolidWorks一般 | SolidWorksのカスタマイズ (議長: webmaster) | トピック: 線の太さ

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

ページ: [1]

著者	トピック: 線の太さ (閲覧数 4616 回)

yahiro
Jr. メンバー

オフライン

投稿: 22

線の太さ
« 投稿日: 2006/11/20 - 13:29:18 »

毎度参考にさせていただいております

図面の質問なんですが、印刷やTIFFなどの画像作成した時に、図形と寸法の線の太さに差があまりなく見分けにくくなっています。
線の太さについては、[ファイル]−［印刷］−［線の太さ］を変更することができたのですが、この設定をAPIを使用してできないでしょうか？

やり方を知ってる方がおりましたら教えてください

Line.jpg

議長に報告する

記録済み

Makoron
カタマリの王様!?

オフライン

投稿: 1277

SW2011SP5.0

Re:線の太さ
« 返信 #1 投稿日: 2006/11/20 - 18:13:20 »

だいぶ昔に作ったやつを引っ張り出してきました。
こんな感じでどうでしょう

Dim swApp As SldWorks.SldWorks
Set swApp = CreateObject("SldWorks.Application")

Dim dblGet(7) As Double
dblGet(0) = swApp.GetUserPreferenceDoubleValue(swPageSetupPrinterThinLineWeight) '細線
dblGet(1) = swApp.GetUserPreferenceDoubleValue(swPageSetupPrinterNormalLineWeight) '中線
dblGet(2) = swApp.GetUserPreferenceDoubleValue(swPageSetupPrinterThickLineWeight) '太線
dblGet(3) = swApp.GetUserPreferenceDoubleValue(swPageSetupPrinterThick2LineWeight) '太線2
dblGet(4) = swApp.GetUserPreferenceDoubleValue(swPageSetupPrinterThick3LineWeight) '太線3
dblGet(5) = swApp.GetUserPreferenceDoubleValue(swPageSetupPrinterThick4LineWeight) '太線4
dblGet(6) = swApp.GetUserPreferenceDoubleValue(swPageSetupPrinterThick5LineWeight) '太線5
dblGet(7) = swApp.GetUserPreferenceDoubleValue(swPageSetupPrinterThick6LineWeight) '太線6

Dim blnRetval As Boolean
blnRetval = swApp.SetUserPreferenceDoubleValue(swPageSetupPrinterThinLineWeight, 0.18 / 1000) '細線
blnRetval = swApp.SetUserPreferenceDoubleValue(swPageSetupPrinterNormalLineWeight, 0.25 / 1000) '中線
blnRetval = swApp.SetUserPreferenceDoubleValue(swPageSetupPrinterThickLineWeight, 0.35 / 1000) '太線
blnRetval = swApp.SetUserPreferenceDoubleValue(swPageSetupPrinterThick2LineWeight, 0.5 / 1000) '太線2
blnRetval = swApp.SetUserPreferenceDoubleValue(swPageSetupPrinterThick3LineWeight, 0.7 / 1000) '太線3
blnRetval = swApp.SetUserPreferenceDoubleValue(swPageSetupPrinterThick4LineWeight, 1 / 1000) '太線4
blnRetval = swApp.SetUserPreferenceDoubleValue(swPageSetupPrinterThick5LineWeight, 1.4 / 1000) '太線5
blnRetval = swApp.SetUserPreferenceDoubleValue(swPageSetupPrinterThick6LineWeight, 2 / 1000) '太線6

議長に報告する

記録済み

yahiro
Jr. メンバー

オフライン

投稿: 22

Re:線の太さ
« 返信 #2 投稿日: 2006/11/21 - 11:05:03 »

ありがとうございます

ヘルプでも見つかりました！
検索へたなのかなｏｒｚ

ちなみに同じ問題で悩んでる方へ

swPageSetupPrinterThinLineWeight = 48
swPageSetupPrinterNormalLineWeight = 49
swPageSetupPrinterThickLineWeight = 50
swPageSetupPrinterThick2LineWeight = 51
swPageSetupPrinterThick3LineWeight = 52
swPageSetupPrinterThick4LineWeight = 53
swPageSetupPrinterThick5LineWeight = 54
swPageSetupPrinterThick6LineWeight = 55

議長に報告する

記録済み

ページ: [1]

仕事のカタマリ掲示板 \| SolidWorks一般 \| SolidWorksのカスタマイズ (議長: webmaster) \| トピック: 線の太さ	前のトピック次のトピック

ジャンプします: