[LISP函数]：2006help里为什么没有VLA-GET/VLA-PUT

taner

2006help里为什么没有VLA-GET/VLA-PUT函数?谢谢先!

wkai

你在帮助中搜索一下就知道了.

winabcd

Functions that read object properties are named with a vla-get prefix and require the following syntax:

(vla-get-property object)
For example, vlagetcenter returns the center point of a circle.

To obtain an object's property and apply the property to a new object

Enter the following at the VLISP Console prompt:
(setq myCircle (vla-addcircle mspace (vlax-3d-point
  (getpoint "\nPick the center point for a circle: ")) 2.0))
This function call prompts you to pick a center point for a circle, then invokes the Addcircle method to draw the circle. The vlax-3d-point function converts the point you pick into the data type required by vlaaddcircle.

Use vlagetcenter to draw a second circle concentric to the first:
(vla-addCircle mSpace (vla-get-center myCircle) 1.0)
The AutoCAD drawing window now contains the following objects:

VLISP adds a set of functions to the AutoLISP language that provides access to ActiveX objects. The function names are prefixed with vla-: for example, vlaaddCircle, vla-get-ModelSpace, vla-getColor. These functions can be further categorized as follows:

vla- functions correspond to every ActiveX method. Use these functions to invoke the method (for example, vlaaddCircle invokes the Addcircle method).
vlaget- functions correspond to every property, enabling you to retrieve the value of that property (for example, vla-get-Color obtains an object's color property).
vlaput- functions correspond to every property, enabling you to update the value of that property (for example, vla-put-Color updates an object's color property).
VLISP also adds a set of ActiveX-related functions whose names are prefixed with vlax-. These are more general ActiveX functions, each of which can be applied to numerous methods, objects, or properties. For example, with the vlax-get-property function, you can obtain any property of any ActiveX object. If your drawing contains custom ActiveX objects, or if you need to access objects from other applications, such as a Microsoft Excel spreadsheet, you can use the vlax-invoke-method, vlax-get-property, and vlaxputproperty functions to access their methods and properties; you'll see examples using these functions in Using ActiveX without Importing a Type Library.

狂刀

是历史遗留问题（函数），如ｔｒａｃｅ

taner

最初由 狂刀 发布
[B]是历史遗留问题（函数），如ｔｒａｃｅ [/B]

還是沒搞明白!您能否再講明白點.是否在2006裏有某一個函數全部取代了低版本的vla-get-xxx的函數?

chenknight

vla-get-***,vla-pu-***,vla-**** 它们是VBA中的属性或方法在VL中应用，例如vla-get-closed是检查物体是否封闭，可以在VBA的帮助参考中找CLOSED属性来参考

netbee

VLA-GET/VLA-PUT 都是ActionX的，你看看VBA里对象的属性及方法，分别替换就行了。
如你要得到圆的圆心
则：

2. 
   
3. vla-get-Center 函数
   
4. 
   
5. 功能
   
6. 
   
7.    取得弧、圆、椭圆、视图或视口的中心。
   
8. 
   
9. 语法及参数
   
10. 
    
11. (vla-get-Center Object)
    
12. Object  Arc, Circle, Ellipse, PViewport, View, Viewport
    
13.   这个属性适用的对象。
    
14. Center 变体（双精度的三元素数组）；读/写
    
15.   3D坐标，代表对象的中点。
    
16. 默认值中点是(0,0,0)。
    
17. 视口、视图：视口与视图对象中点是一个2D坐标值
    
18. 
    
19. 
    
20. 
    
21. 
    
22. 
    
23. 
    
24. 
    
25. 
    
26. 说明
    
27.     弧的中点
    
28. 
    
29.    
    
30. 
    
31. 
    
32. 
    
33. 范例  
    
34. 
    
35. (defun Example_Center()
    
36. 
    
37.   (VL-LOAD-COM)
    
38. 
    
39.   (setq AcadObject(vlax-get-acad-object)
    
40. 
    
41.         AcadDocument(vla-get-ActiveDocument AcadObject)
    
42. 
    
43.         mSpace(vla-get-ModelSpace AcadDocument)
    
44. 
    
45.   )
    
46. 
    
47. ;;; 定义圆的中点的与半径
    
48. 
    
49.   (setq currCenterPnt(vlax-make-safearray vlax-vbDouble'(0 . 2)))
    
50. 
    
51.   (vlax-safearray-fill currCenterPnt '(20 30 0))
    
52. 
    
53.   (setq radius 30)
    
54. 
    
55. ;;; 在模型空间中建立一个圆对象
    
56. 
    
57.   (setq CircleObj(vla-AddCircle mSpace currCenterPnt radius))
    
58. 
    
59.   (vla-ZoomExtents AcadObject)
    
60. 
    
61.   (princ "圆的中点是 ")
    
62. 
    
63.   (princ (vlax-safearray-get-element currCenterPnt 0))(princ ",")
    
64. 
    
65.   (princ (vlax-safearray-get-element currCenterPnt 1))(princ ",")
    
66. 
    
67.   (princ (vlax-safearray-get-element currCenterPnt 2))(princ "   Center范例 \n")
    
68. 
    
69.   (PROMPT "<Enter>进行:")(VL-CMDF pause)
    
70. 
    
71. ;;; 改变圆的中点
    
72. 
    
73.   (setq newCenterPnt(vlax-make-safearray vlax-vbDouble'(0 . 2)))
    
74. 
    
75.   (vlax-safearray-fill newCenterPnt '(25 25 0))
    
76. 
    
77.   (vla-put-Center CircleObj newCenterPnt)
    
78. 
    
79.   (vla-Update CircleObj)
    
80. 
    
81. ;;; 查询新的中心位置的结果
    
82. ;;; 注意中点属性输出为一个变体
    
83. 
    
84.   (setq centerPnt(vla-get-Center CircleObj))
    
85. 
    
86.   (princ "圆的中点是 ")
    
87. 
    
88.   (princ (vlax-safearray-get-element currCenterPnt 0))(princ ",")
    
89. 
    
90.   (princ (vlax-safearray-get-element currCenterPnt 1))(princ ",")
    
91. 
    
92.   (princ (vlax-safearray-get-element currCenterPnt 2))(princ "   Center范例 \n")
    
93. 
    
94.   (princ)
    
95. 
    
96. )
    
97. 
    
98. 　 　 意见？
    

<br /> vla-get-Center 函数 <br /> <br /> 功能<br /> <br />    取得弧、圆、椭圆、视图或视口的中心。<br /> <br /> 语法及参数<br /> <br /> (vla-get-Center Object) <br /> Object  Arc, Circle, Ellipse, PViewport, View, Viewport <br />   这个属性适用的对象。 <br /> Center 变体（双精度的三元素数组）；读/写 <br />   3D坐标，代表对象的中点。<br /> 默认值中点是(0,0,0)。<br /> 视口、视图：视口与视图对象中点是一个2D坐标值 <br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> 说明 <br />     弧的中点<br /> <br />     <br /> <br /> <br /> <br /> 范例  <br /> <br /> (defun Example_Center()<br /> <br />   (VL-LOAD-COM)<br /> <br />   (setq AcadObject(vlax-get-acad-object)<br /> <br />         AcadDocument(vla-get-ActiveDocument AcadObject)<br /> <br />         mSpace(vla-get-ModelSpace AcadDocument)<br /> <br />   )<br /> <br /> ;;; 定义圆的中点的与半径<br /> <br />   (setq currCenterPnt(vlax-make-safearray vlax-vbDouble'(0 . 2)))<br /> <br />   (vlax-safearray-fill currCenterPnt '(20 30 0))<br /> <br />   (setq radius 30)<br /> <br /> ;;; 在模型空间中建立一个圆对象<br /> <br />   (setq CircleObj(vla-AddCircle mSpace currCenterPnt radius))<br /> <br />   (vla-ZoomExtents AcadObject)<br /> <br />   (princ "圆的中点是 ")<br /> <br />   (princ (vlax-safearray-get-element currCenterPnt 0))(princ ",")<br /> <br />   (princ (vlax-safearray-get-element currCenterPnt 1))(princ ",")<br /> <br />   (princ (vlax-safearray-get-element currCenterPnt 2))(princ "   Center范例 \n")<br /> <br />   (PROMPT "<Enter>进行:")(VL-CMDF pause)<br /> <br /> ;;; 改变圆的中点<br /> <br />   (setq newCenterPnt(vlax-make-safearray vlax-vbDouble'(0 . 2)))<br /> <br />   (vlax-safearray-fill newCenterPnt '(25 25 0))<br /> <br />   (vla-put-Center CircleObj newCenterPnt)<br /> <br />   (vla-Update CircleObj)<br /> <br /> ;;; 查询新的中心位置的结果<br /> ;;; 注意中点属性输出为一个变体<br /> <br />   (setq centerPnt(vla-get-Center CircleObj))<br /> <br />   (princ "圆的中点是 ")<br /> <br />   (princ (vlax-safearray-get-element currCenterPnt 0))(princ ",")<br /> <br />   (princ (vlax-safearray-get-element currCenterPnt 1))(princ ",")<br /> <br />   (princ (vlax-safearray-get-element currCenterPnt 2))(princ "   Center范例 \n")<br /> <br />   (princ)<br /> <br /> )<br /> <br /> 　 　 意见？ <br />

狂刀

VLAx-GET/VLAx-PUT 　和　VLA-GET-*/VLA-PUT-* 是不同的，
VLAx-GET/VLAx-PUT 是早期ｖｌ版本的函数，现在的也支持部分属性，如
(vlax-get obj 'color)
效果等同于(vla-get-color obj) ；其中obj 必须是vla-object
但是也有的属性不支持，调试时只能靠自己试试看了。所以说是历史遗留问题：）