Vla-put-linetype

提供:GizmoLabs - だいたい CAD LISP なサイト
2013年3月25日 (月) 08:49時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (vla-put-linetype ''vla-object'' ''name'') ; 機能 : vla-object の線種を設定する。 ; 引数 :* vla-object … VLAオブジェク...」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(vla-put-linetype vla-object name)


機能
vla-object の線種を設定する。


引数
  • vla-object … VLAオブジェクト
  • name … 線種名の文字列


戻り値
nil


サンプル
; 選択図形のVLAオブジェクト
(setq obj1 (vlax-ename->vla-object (car (entsel))))

; VLAオブジェクトから図形のプロパティ取得
; 一般プロパティ
(vla-get-color obj1) ; 色
256
(vla-put-color obj1 128)


(vla-get-layer obj1) ; 画層
"0"
(vla-put-layer obj1 "DEFPOINTS")


(vla-get-linetype obj1) ; 線種
"BYLAYER"
(vla-put-linetype obj1 "HIDDEN")


(vla-get-linetypescale obj1) ; 線種尺度
1.0
(vla-put-linetypescale obj1 0.5)


(vla-get-plotstylename obj1) ; 印刷スタイル名
"ByLayer"
(vla-put-plotstylename obj1 "Styel_1")


(vla-get-lineweight obj1) ; 線の太さ
-1
(vla-put-lineweight obj1 18)


(vla-get-hyperlinks obj1) ; ハイパーリンク
#<VLA-OBJECT IAcadHyperlinks 0000000031d12168>

(vla-get-entitytransparency obj1) ; 透過性
"ByLayer"
(vla-put-entitytransparency obj1 50)

(vla-get-thickness obj1) ; 厚さ
0.0
(vla-put-thickness obj1 1.0)


(vla-get-material obj1) ; 3Dマテリアル
"ByLayer"
(vla-put-material obj1 "GLOBAL")

関連事項