老问题遇到苦难：如何载r14中运行vlisp

citykunan

如何载r14中运行vlisp,我加载VLARTS.ARX和VLRTS.ARX这两个文件后，还是不能运行vlisp程序，谁能指点一下，到底是运行什么arx文件，谢谢。

Ea

加载后要进行初始化

citykunan

如何初始化啊？谢谢。

Ea

好像是 (vlarts-init) 和 (vlrts-init)

citykunan

好像还是不行吗，我加载着两个arx文件，再运行(vlarts-init) (vlrts-init),然后再执行(vl-load-com) 出现error: null function，是不是要初始化其他的命令？谢谢

Ea

vl-load-com 是2000以上的函数，14 下没有。

vlarts-init + vlrts-init = vl-load-com

前者好像是 vla 类的初始化，后者好像是 vlr 类的初始化

citykunan

好像初始化后连运行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)

)

Ea

既然使用R14还是安装For14 的 Vlisp 编辑器吧，14和2000+以上比Vla-函数很多是不同的，不是简单几句能说清的。你的程序在14下的 vlisp 编辑器中很容易就可以看到那些是不支持的函数，另外 array 是2000+以上才引入的，14 下没有。

citykunan

好的，谢谢。祝明经的各位网友新年快乐，明经越办越好。

gashai

ea:哪有For14 的 Vlisp啊？跪求！


email:gashai@163.com