このページについて
 
このページは、mura's home の AutoCAD掲示板 で、当方の発言（書込み）がある以下の掲示板の内容です。
http://www.mura.sh/bbs/wwwbbs.cgi?print+200511/05110127.txt
 
タイトルおよび質問内容は上記より引用しています。
 
引用した質問内容は、バックカラーが

　　　

となっています。
 
当方の発言は、バックカラーが

　　　

となっています。
 
その他の著作権者の掲載許可を得ていない発言内容は削除（リンクを除く）しています。
 
また、当方では、削除部分の正当な著作権保持者を判断出来ませんので、
ご連絡を頂いても、復活させることは出来ません。ご了承下さい。
 
 
掲示板の著作権について
 
掲示板への匿名の書き込みであっても、著作権（著作権法）で保護されています。
また、判例（確定した判決）もあります。
 
裁判所　判例検索システム

ホテルジャンキーズ事件
知的財産裁判例
知的財産裁判例 		平成13(ワ)22066　　著作権　民事訴訟
平成14年04月15日　東京地方裁判所		 全文 控訴
付帯控訴
知的財産裁判例
知的財産裁判例 		平成14(ネ)2887　　著作権　民事訴訟
平成14年10月29日　東京高等裁判所		 全文 確定

ただし、あらかじめ取り決めがある場合は、その取り決めが優先します
 ※たとえば、OKWave の掲示板 （利用規約／第10条（投稿内容の利用権））
 
 
 

VBAでアクティブな色を変更したい

▼ キヨ 2005/11/14(月) 19:32:34

いつも参考にさせていただいております。ありがとうございます。

VBAでアクティブレイヤを指定するプログラムを作っているのですが、色をByLayerにする方法がわかりません。
どなたかご存知な方がいらっしゃれば教えていただけませんでしょうか？

レイヤ、線種(→ByLayerへ)、線の太さ(→ByLayerへ)の変更は何とかできたのですが．．↓

----------------------------------------------------
ThisDrawing.ActiveLayer = ThisDrawing.Layers("LAY01")
ThisDrawing.ActiveLinetype = ThisDrawing.Linetypes("ByLayer")
ThisDrawing.Preferences.Lineweight = acLnWtByLayer
----------------------------------------------------

すみません。よろしくお願いします。

▼ Autocad初心者機械設計者 2005/11/14(月) 20:14:23

著作権者の許可を得ていないため削除
 
 
 
 

▼ AK [HOMEPAGE] 2005/11/14(月) 21:40:24

>VBAでアクティブレイヤを指定するプログラムを作っているのですが、色をByLayerにする方法がわかりません。
アクティブレイヤの色に "ByLayer" は設定できません
^^^^^^^^^^^^^^^^^^^^
『新しく作成するオブジェクトの色』の設定ではありませんか？
ThisDrawing.SetVariable "CECOLOR", "ByLayer"

新しく作成するオブジェクトの線種は、"CELTYPE"
新しく作成するオブジェクトの線の太さは、"CELWEIGHT"
で出来ます。
ちなみに、アクティブレイヤの色を赤にするには、
ThisDrawing.ActiveLayer.Color = acRed

▼ キヨ 2005/11/15(火) 08:59:34

≪ 解決 ≫

著作権者の許可を得ていないため削除