https://wiki.gz-labs.net/index.php?title=Vla-getloopat&feed=atom&action=history
Vla-getloopat - 版の履歴
2024-03-28T15:02:49Z
このウィキのこのページに関する変更履歴
MediaWiki 1.39.3
https://wiki.gz-labs.net/index.php?title=Vla-getloopat&diff=6348&oldid=prev
2016年2月13日 (土) 10:21にGizmonによる
2016-02-13T10:21:24Z
<p></p>
<table style="background-color: #fff; color: #202122;" data-mw="interface">
<col class="diff-marker" />
<col class="diff-content" />
<col class="diff-marker" />
<col class="diff-content" />
<tr class="diff-title" lang="ja">
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">← 古い版</td>
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">2016年2月13日 (土) 19:21時点における版</td>
</tr><tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l1">1行目:</td>
<td colspan="2" class="diff-lineno">1行目:</td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>{{AutoLISP}}</div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>{{AutoLISP}}</div></td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>; 構文</div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>; 構文</div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div>: (vla-getloopat ''vla-object'' '''' ''<del style="font-weight: bold; text-decoration: none;">'' ''</del>'' )</div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div>: (vla-getloopat ''vla-object'' ''<ins style="font-weight: bold; text-decoration: none;">Index </ins>'' ''<ins style="font-weight: bold; text-decoration: none;">Loop </ins>'' )</div></td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><br/></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><br/></td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><br/></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><br/></td></tr>
<tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l90">90行目:</td>
<td colspan="2" class="diff-lineno">90行目:</td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>* [[vlax-get-acad-object]]</div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>* [[vlax-get-acad-object]]</div></td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>* [[vla-get-activedocument]]</div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>* [[vla-get-activedocument]]</div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div>* [[vla-<del style="font-weight: bold; text-decoration: none;">put-]]</del></div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div>* [[vla-<ins style="font-weight: bold; text-decoration: none;">appendinnerloop</ins>]]</div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del style="font-weight: bold; text-decoration: none;">* [[vla-get-</del>]]</div></td><td colspan="2" class="diff-side-added"></td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><br/></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><br/></td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><br/></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><br/></td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>[[Category:AutoLISP]]</div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>[[Category:AutoLISP]]</div></td></tr>
</table>
Gizmon
https://wiki.gz-labs.net/index.php?title=Vla-getloopat&diff=6347&oldid=prev
Gizmon: ページの作成:「{{AutoLISP}} ; 構文 : (vla-getloopat ''vla-object'' '''' '''' '''' ) ; 機能 : 指定されたインデックスで、ハッチング ループを取得する。...」
2016-02-13T10:19:53Z
<p>ページの作成:「{{AutoLISP}} ; 構文 : (vla-getloopat ''vla-object'' '''' '''' '''' ) ; 機能 : 指定されたインデックスで、ハッチング ループを取得する。...」</p>
<p><b>新規ページ</b></p><div>{{AutoLISP}}<br />
; 構文<br />
: (vla-getloopat ''vla-object'' '''' '''' '''' )<br />
<br />
<br />
; 機能<br />
: 指定されたインデックスで、ハッチング ループを取得する。 <br />
<br />
<br />
; 引数<br />
:* vla-object … Hatch のVLAオブジェクト<br />
:* Index … 0 を含む正の整数。<br />
:* Loop … ループを形成するオブジェクトまたはオブジェクトの配列。<br />
<br />
<br />
; 戻り値<br />
: nil<br />
<br />
<br />
; サンプル<br />
<pre class="brush:autolisp;"><br />
(vl-load-com)<br />
(defun c:Example_GetLoopAt()<br />
;; ハッチを作成して境界を設定するサンプル<br />
(setq acadObj (vlax-get-acad-object))<br />
(setq doc (vla-get-ActiveDocument acadObj))<br />
(setq modelSpace (vla-get-ModelSpace doc))<br />
<br />
;; ハッチの定義<br />
(setq patternName "ANSI31"<br />
patternType acHatchPatternTypePreDefined<br />
bAssociativity :vlax-true)<br />
<br />
;; ハッチを作成<br />
(setq modelSpace (vla-get-ModelSpace doc)) <br />
(setq hatchObj (vla-AddHatch modelSpace patternType patternName bAssociativity acHatchObject))<br />
<br />
;; ハッチの境界を作成<br />
;; An arc and a line are used to create a closed loop.<br />
(setq center (vlax-3d-point 5 3 0)<br />
radius 3<br />
startAngle 0<br />
endAngle 3.141592)<br />
<br />
(setq arcObj (vla-AddArc modelSpace center radius startAngle endAngle))<br />
(setq lineObj (vla-AddLine modelSpace (vla-get-StartPoint arcObj) (vla-get-EndPoint arcObj)))<br />
<br />
(setq outerLoop (vlax-make-safearray vlax-vbObject '(0 . 1)))<br />
(vlax-safearray-put-element outerLoop 0 arcObj)<br />
(vlax-safearray-put-element outerLoop 1 lineObj)<br />
<br />
;; ハッチの境界を確定<br />
(vla-AppendOuterLoop hatchObj outerLoop)<br />
<br />
;; ハッチの境界を定義<br />
(setq center (vlax-3d-point 5 4.5 0)<br />
radius 1)<br />
<br />
(setq innerLoop1 (vlax-make-safearray vlax-vbObject '(0 . 0)))<br />
(vlax-safearray-put-element innerLoop1 0 (vla-AddCircle modelSpace center radius))<br />
(vla-AppendInnerLoop hatchObj innerLoop1)<br />
<br />
;; 2つめのハッチ境界を追加<br />
(setq radius 0.5)<br />
(setq innerLoop2 (vlax-make-safearray vlax-vbObject '(0 . 0)))<br />
(vlax-safearray-put-element innerLoop2 0 (vla-AddCircle modelSpace center radius))<br />
(vla-AppendInnerLoop hatchObj innerLoop2)<br />
<br />
;; 確定<br />
(vla-Evaluate hatchObj)<br />
(vla-Regen doc :vlax-true)<br />
<br />
;; 境界を取得<br />
(vla-GetLoopAt hatchObj 0 'loopObjs) <br />
<br />
;; 境界の図形を取得<br />
(setq I 0<br />
objName "")<br />
(while (>= (vlax-safearray-get-u-bound loopObjs 1) I)<br />
(setq objName (strcat objName (vla-get-ObjectName (vlax-safearray-get-element loopObjs I)) ", "))<br />
(setq I (1+ I))<br />
)<br />
<br />
(alert (strcat "最初のハッチング境界は : " objName))<br />
)<br />
</pre><br />
<br />
-----<br />
関連事項<br />
* [[vlax-get-acad-object]]<br />
* [[vla-get-activedocument]]<br />
* [[vla-put-]]<br />
* [[vla-get-]]<br />
<br />
<br />
[[Category:AutoLISP]]</div>
Gizmon