https://wiki.gz-labs.net/index.php?title=Vla-get-colorindex&feed=atom&action=history
Vla-get-colorindex - 版の履歴
2024-03-29T13:41:43Z
このウィキのこのページに関する変更履歴
MediaWiki 1.39.3
https://wiki.gz-labs.net/index.php?title=Vla-get-colorindex&diff=3271&oldid=prev
Gizmon: ページの作成:「{{AutoLISP}} ; 構文 : (vla-get-colorindex ''vla-object'') ; 機能 : vlaオブジェクトの色番号を取得する。 ; 引数 :* vla-object … VLAオブジ...」
2013-03-16T10:22:48Z
<p>ページの作成:「{{AutoLISP}} ; 構文 : (vla-get-colorindex ''vla-object'') ; 機能 : vlaオブジェクトの色番号を取得する。 ; 引数 :* vla-object … VLAオブジ...」</p>
<p><b>新規ページ</b></p><div>{{AutoLISP}}<br />
; 構文<br />
: (vla-get-colorindex ''vla-object'')<br />
<br />
<br />
; 機能<br />
: vlaオブジェクトの色番号を取得する。<br />
<br />
<br />
; 引数<br />
:* vla-object … VLAオブジェクト<br />
<br />
<br />
; 戻り値<br />
: カラーインデックスの数値<br />
<br />
<br />
; サンプル<br />
<pre class="brush:autolisp;"><br />
(defun c:layer2trucolor(/ lay tc idx)<br />
; レイヤーのACIカラーをRGBカラーに変換<br />
(vl-load-com)<br />
(setq *acaddoc* (vla-get-ActiveDocument (vlax-get-Acad-Object)))<br />
(vlax-for lay (vla-get-layers *acaddoc*)<br />
(setq tc (vla-get-truecolor lay))<br />
(if (= (vla-get-colormethod tc) acColorMethodByACI)<br />
(progn<br />
(setq idx (vla-get-colorindex tc)) <br />
(vla-put-colormethod tc acColorMethodByRGB)<br />
(vla-put-colorindex tc idx)<br />
(setq r (vla-get-red tc)<br />
g (vla-get-green tc)<br />
b (vla-get-blue tc))<br />
(vla-setrgb tc r g b)<br />
(vla-put-truecolor lay tc)<br />
))))<br />
</pre><br />
<br />
-----<br />
関連事項<br />
* [[vlax-get-acad-object]]<br />
* [[vla-get-activedocument]]<br />
* [[vla-get-truecolor]]<br />
* [[vla-put-truecolor]]<br />
* [[vla-get-red]]<br />
* [[vla-get-green]]<br />
* [[vla-get-blue]]<br />
* [[vla-setrgb]]<br />
* [[vla-get-colorindex]]<br />
* [[vla-put-colorindex]]<br />
* [[vla-get-colormethod]]<br />
* [[vla-put-colormethod]]<br />
* [[vlax-for]]<br />
<br />
<br />
[[Category:AutoLISP]]</div>
Gizmon