2014-1月 記事 [2014]
2014/01/01(水)
明けましてあめでとうございます。
本年もよろしくお願い申し上げます。m(_ _)m
2014/01/04(土)
右クリックのメニューからは拘束が保てなかったハズ！？
いつから・・・こうなったのだろう。？？？
この方が便利な場合は多いが、たまに拘束して欲しくない事もある。
コピー時に拘束を継承するかを たずねてくれれば助かるのだが...
2014/01/05(日)
やっと使いだした浮動?メニュー
今までダイアログボックスのみを使用していたので、
馴染めなかったが慣れればコッチの方がいいかな？？
まだダイアログに手が伸びる事は多いが、徐々に...
2014/01/06(月)
２Ｄ時、断面を多く描画する場合は骨が折れるので、
動きが多いものは、動作後を参照パーツで配置する。
以前はスナップショットを使用する事が多かったが、
最近は、地道に動作後の姿を作成している。
動作前後の姿が一目で把握出来るメリットはあるが、
出来ればこの作業は ない方がありがたい。
2014/01/10(金)
そう言えば先日の浮動メニューを使わない訳が分かった。
穴は動画の様に明ける場合が多いので、必然的にダイアログボックスしか使えないのだ。
浮動メニューは後から付いて来るので変更時にしか使用出来ないのだ。
2014/01/15(水)
そう言えば、またサブス注文してしまった。
と、言っても何もしなければ自動的に継続するのだが...
バージョンを落とす予定ではあったが、また忘れるだろう。
ネタも少なくなったので、次が楽しみだ。
と、永遠と同じ事を言っていく....(*￣m￣) ププッ
2014/01/16(木)
時代は進化の一途をたどるが...
やはり、アナログ万歳！！
知りたい情報は２秒？で手に入る。
ＰＤＦのカタログをタブレットで閲覧などと、
コジャレタ事を考えてしまった自分が恥かしい今日この頃。
2014/01/18(土)
光沢のある板状のものは、このオッサンを指定するが、
そろそろ、可愛い娘っ子がいいにゃぁ～。
相当疲れてるな!! (*￣m￣) ププッ
2014/01/19(日)
板長を電卓では？？？エクセル立ち上げるは面倒だし...
これなら一発解決！！デジタル バンザイ！！
先日のアナログ万歳から二日目。
アナログとデジタルの良いとこ取り。
いわゆるハイブリッド!!
語呂は良いのだが、直訳すると雑種！！
世の中 雑種だらけ...
確かにサラブレッドは少ないな。← 自分を含めて。(*￣m￣) ププッ
最近(*￣m￣) ププッが多いな～～。たるんでじゃねぇ～。(*￣m￣) ププッ
2014/01/21(火)
なんと、違うアセンブリ間で右クリックのコピーで、
拘束を保っているのだ、以前はバラバラに配置されていたのだが．．．、
この方が便利な場合が多いから いいか。
2014/01/27(月)
オートデスクのＴ殿から頂戴した自動中心線コマンド。
とても便利なのだ。
Sub Main
Dim oDoc As Inventor.DrawingDocument = Nothing
Try
oDoc = ThisDoc.Document
Catch ex As Exception
MessageBox.Show("図面キュメントでのみ実行できます。", "自動中心線")
Exit Sub
End Try
Dim oDrawingView As Inventor.DrawingView = Nothing
Dim rslt As Inventor.ObjectsEnumerator = Nothing
Dim oAutomatedCenterlineSettings As Inventor.AutomatedCenterlineSettings =
oDoc.DrawingSettings.AutomatedCenterlineSettings
With oAutomatedCenterlineSettings
.ApplyToCircularPatterns = True
.ApplyToHoles = True
.ApplyToPunches = True
.ApplyToRectangularPatterns = True
.ProjectionNormalAxis = True
.ProjectionParallelAxis = True
End With
For Each oDrawingView In oDoc.ActiveSheet.DrawingViews
rslt = oDrawingView.SetAutomatedCenterlineSettings(oAutomatedCenterlineSettings)
Next
End Sub
興味のある人は自己責任で。(当方ではトラブルの責任は負いません。)
2014/01/29(水)
使うほどに ありがたみの増すiLogic。
もっと色々やってみたい事が沢山あるが...
なか なか....
2014/01/30(木)
年末にする予定だったが、バタバタしていたので．．．やりそびれていた。
案の定、掃除するにふさわしいホコリが溜まっていた。
2014/01/31(金)
テンプレートの使い勝手を変更していて、気が付いた。
今までとても無駄な事をしていた気がする。(；一_一)
明けましてあめでとうございます。
本年もよろしくお願い申し上げます。m(_ _)m
2014/01/04(土)
右クリックのメニューからは拘束が保てなかったハズ！？
いつから・・・こうなったのだろう。？？？
この方が便利な場合は多いが、たまに拘束して欲しくない事もある。
コピー時に拘束を継承するかを たずねてくれれば助かるのだが...
2014/01/05(日)
やっと使いだした浮動?メニュー
今までダイアログボックスのみを使用していたので、
馴染めなかったが慣れればコッチの方がいいかな？？
まだダイアログに手が伸びる事は多いが、徐々に...
2014/01/06(月)
２Ｄ時、断面を多く描画する場合は骨が折れるので、
動きが多いものは、動作後を参照パーツで配置する。
以前はスナップショットを使用する事が多かったが、
最近は、地道に動作後の姿を作成している。
動作前後の姿が一目で把握出来るメリットはあるが、
出来ればこの作業は ない方がありがたい。
2014/01/10(金)
そう言えば先日の浮動メニューを使わない訳が分かった。
穴は動画の様に明ける場合が多いので、必然的にダイアログボックスしか使えないのだ。
浮動メニューは後から付いて来るので変更時にしか使用出来ないのだ。
2014/01/15(水)
そう言えば、またサブス注文してしまった。
と、言っても何もしなければ自動的に継続するのだが...
バージョンを落とす予定ではあったが、また忘れるだろう。
ネタも少なくなったので、次が楽しみだ。
と、永遠と同じ事を言っていく....(*￣m￣) ププッ
2014/01/16(木)
時代は進化の一途をたどるが...
やはり、アナログ万歳！！
知りたい情報は２秒？で手に入る。
ＰＤＦのカタログをタブレットで閲覧などと、
コジャレタ事を考えてしまった自分が恥かしい今日この頃。
2014/01/18(土)
光沢のある板状のものは、このオッサンを指定するが、
そろそろ、可愛い娘っ子がいいにゃぁ～。
相当疲れてるな!! (*￣m￣) ププッ
2014/01/19(日)
板長を電卓では？？？エクセル立ち上げるは面倒だし...
これなら一発解決！！デジタル バンザイ！！
先日のアナログ万歳から二日目。
アナログとデジタルの良いとこ取り。
いわゆるハイブリッド!!
語呂は良いのだが、直訳すると雑種！！
世の中 雑種だらけ...
確かにサラブレッドは少ないな。← 自分を含めて。(*￣m￣) ププッ
最近(*￣m￣) ププッが多いな～～。たるんでじゃねぇ～。(*￣m￣) ププッ
2014/01/21(火)
なんと、違うアセンブリ間で右クリックのコピーで、
拘束を保っているのだ、以前はバラバラに配置されていたのだが．．．、
この方が便利な場合が多いから いいか。
2014/01/27(月)
オートデスクのＴ殿から頂戴した自動中心線コマンド。
とても便利なのだ。
Sub Main
Dim oDoc As Inventor.DrawingDocument = Nothing
Try
oDoc = ThisDoc.Document
Catch ex As Exception
MessageBox.Show("図面キュメントでのみ実行できます。", "自動中心線")
Exit Sub
End Try
Dim oDrawingView As Inventor.DrawingView = Nothing
Dim rslt As Inventor.ObjectsEnumerator = Nothing
Dim oAutomatedCenterlineSettings As Inventor.AutomatedCenterlineSettings =
oDoc.DrawingSettings.AutomatedCenterlineSettings
With oAutomatedCenterlineSettings
.ApplyToCircularPatterns = True
.ApplyToHoles = True
.ApplyToPunches = True
.ApplyToRectangularPatterns = True
.ProjectionNormalAxis = True
.ProjectionParallelAxis = True
End With
For Each oDrawingView In oDoc.ActiveSheet.DrawingViews
rslt = oDrawingView.SetAutomatedCenterlineSettings(oAutomatedCenterlineSettings)
Next
End Sub
興味のある人は自己責任で。(当方ではトラブルの責任は負いません。)
2014/01/29(水)
使うほどに ありがたみの増すiLogic。
もっと色々やってみたい事が沢山あるが...
なか なか....
2014/01/30(木)
年末にする予定だったが、バタバタしていたので．．．やりそびれていた。
案の定、掃除するにふさわしいホコリが溜まっていた。
2014/01/31(金)
テンプレートの使い勝手を変更していて、気が付いた。
今までとても無駄な事をしていた気がする。(；一_一)
コメント 0