好像初始化后连运行vl-的程序都不行,是不是有很多vl-函数r14就算用了VLARTS.ARX和VLRTS.ARX也不能用啊?下面的程序就不能用
(defun Example_Area()
(setq AcadObject(vlax-get-acad-object)
AcadDocument(vla-get-ActiveDocument Acadobject)
mSpace(vla-get-ModelSpace Acaddocument)
)
;;; 定义圆
(setq centerPnt(vlax-make-safearray vlax-vbDouble '(0 . 2)))
(vlax-safearray-fill centerPnt '(0 0 0))
(setq radius 50)
;;; 在模型空间建立圆
(setq circleObj(vla-AddCircle mSpace centerPnt radius))
(vla-ZoomExtents AcadObject)
;;; 取得多段线的面积
(setq currArea(vla-get-Area circleObj))
(princ "新的圆的面积当前是:")(princ currArea)(princ " Area范例\n")
(PROMPT "<Enter>进行:")(VL-CMDF pause)
;;;将圆的面积修改为100
(vla-put-Area circleObj 500)
(setq newArea(vla-get-Area circleObj))
(princ "新的圆的面积现在是:")(princ newArea)(princ " Area范例")
(princ)
) |