[弹指神通]：求助：vla-GetLoopAt函数怎么使用？？？

zxf5411

求助：vla-GetLoopAt函数怎么使用？？？
      vla-getloopat 为取得的hatch对象的环对象，相关资料很少，其后的参数不知是什么

aidraft

GetLoopAt Method



Gets the hatch loop at a given index.

See Also | Example

Signature

object.GetLoopAt Index, Loop

Object

Hatch
The object or objects this method applies to.

Index

Integer; input-only
A positive integer beginning with 0.

Loop

Variant (object or array of objects); output-only
An object or array of objects that makes up the loop.

swc318

有会的给举个例子好吗，这个问题困绕我许多年了！

雨箭风刀

GetLoopAt Index, Loop
(vla-invoke-method   hatobj  1 'lp)
lp 变量就是你要的

newer

1. (vl-load-com)
   
2. (defun c:Example_GetLoopAt()
   
3.     ;; This example creates an associative hatch in model space.
   
4.     ;; It then finds the objects that make up the first loop of the hatch.
   
5.     (setq acadObj (vlax-get-acad-object))
   
6.     (setq doc (vla-get-ActiveDocument acadObj))
   
7.     (setq modelSpace (vla-get-ModelSpace doc))
   
8.    
   
9.     ;; Define the hatch
   
10.     (setq patternName "ANSI31"
    
11.           patternType acHatchPatternTypePreDefined
    
12.           bAssociativity :vlax-true)
    
13.    
    
14.     ;; Create the associative Hatch object
    
15.     (setq modelSpace (vla-get-ModelSpace doc))  
    
16.     (setq hatchObj (vla-AddHatch modelSpace patternType patternName bAssociativity acHatchObject))
    
17.    
    
18.     ;; Create the outer loop for the hatch.
    
19.     ;; An arc and a line are used to create a closed loop.
    
20.     (setq center (vlax-3d-point 5 3 0)
    
21.           radius 3
    
22.           startAngle 0
    
23.           endAngle 3.141592)
    
24.   
    
25.     (setq arcObj (vla-AddArc modelSpace center radius startAngle endAngle))
    
26.     (setq lineObj (vla-AddLine modelSpace (vla-get-StartPoint arcObj) (vla-get-EndPoint arcObj)))
    
27. 
    
28.     (setq outerLoop (vlax-make-safearray vlax-vbObject '(0 . 1)))
    
29.     (vlax-safearray-put-element outerLoop 0 arcObj)
    
30.     (vlax-safearray-put-element outerLoop 1 lineObj)
    
31. 
    
32.     ;; Append the outer loop to the hatch object
    
33.     (vla-AppendOuterLoop hatchObj outerLoop)
    
34.    
    
35.     ;; Append the first circle as one inner loop
    
36.     (setq center (vlax-3d-point 5 4.5 0)
    
37.           radius 1)
    
38. 
    
39.     (setq innerLoop1 (vlax-make-safearray vlax-vbObject '(0 . 0)))
    
40.     (vlax-safearray-put-element innerLoop1 0 (vla-AddCircle modelSpace center radius))
    
41.     (vla-AppendInnerLoop hatchObj innerLoop1)
    
42.    
    
43.     ;; Append the second circle as the other inner loop
    
44.     (setq radius 0.5)
    
45.     (setq innerLoop2 (vlax-make-safearray vlax-vbObject '(0 . 0)))
    
46.     (vlax-safearray-put-element innerLoop2 0 (vla-AddCircle modelSpace center radius))
    
47.     (vla-AppendInnerLoop hatchObj innerLoop2)
    
48.    
    
49.     ;; Evaluate and display the hatch
    
50.     (vla-Evaluate hatchObj)
    
51.     (vla-Regen doc :vlax-true)
    
52.    
    
53.     ;; Find the objects that make up the first loop
    
54.     (vla-GetLoopAt hatchObj 0 'loopObjs)
    
55.    
    
56.     ;; Find the types of the objects in the loop
    
57.     (setq I 0
    
58.           objName "")
    
59.     (while (>= (vlax-safearray-get-u-bound loopObjs 1) I)
    
60.         (setq objName (strcat objName (vla-get-ObjectName (vlax-safearray-get-element loopObjs I)) ", "))
    
61.         (setq I (1+ I))
    
62.     )
    
63.    
    
64.     (alert (strcat "The objects in the first loop of the hatch are: " objName))
    
65. )

(vl-load-com)<br /> (defun c:Example_GetLoopAt()<br />     ;; This example creates an associative hatch in model space.<br />     ;; It then finds the objects that make up the first loop of the hatch.<br />     (setq acadObj (vlax-get-acad-object))<br />     (setq doc (vla-get-ActiveDocument acadObj))<br />     (setq modelSpace (vla-get-ModelSpace doc))<br />     <br />     ;; Define the hatch<br />     (setq patternName "ANSI31"<br />           patternType acHatchPatternTypePreDefined<br />           bAssociativity :vlax-true)<br />     <br />     ;; Create the associative Hatch object<br />     (setq modelSpace (vla-get-ModelSpace doc))  <br />     (setq hatchObj (vla-AddHatch modelSpace patternType patternName bAssociativity acHatchObject))<br />     <br />     ;; Create the outer loop for the hatch.<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 />     ;; Append the outer loop to the hatch object<br />     (vla-AppendOuterLoop hatchObj outerLoop)<br />     <br />     ;; Append the first circle as one inner loop<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 />     ;; Append the second circle as the other inner loop<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 />     ;; Evaluate and display the hatch<br />     (vla-Evaluate hatchObj)<br />     (vla-Regen doc :vlax-true)<br />     <br />     ;; Find the objects that make up the first loop<br />     (vla-GetLoopAt hatchObj 0 'loopObjs) <br />     <br />     ;; Find the types of the objects in the loop<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 "The objects in the first loop of the hatch are: " objName))<br /> )