[求助]：一个vlisp问题

bridgewind · 发表于 2005-2-22 21:13:35

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

请教大家一个问题：
一个vlisp程序在r14的vlidp编译器下可以使用，但单独加载则不能使用，提示错误。请问这是怎么回事呀？

xyp1964 · 发表于 2005-2-22 21:22:57

把程序贴出来看看!

bridgewind · 发表于 2005-2-22 21:43:07

例如：
(defun c:jmtx(/ )
  (setq acadObject (vlax-get-acad-object))
  (setq acadDocument (vla-get-Activedocument acadObject))
  (setq mSpace (vla-get-ModelSpace acadDocument))
  (prompt "\n***《截面特性计算工具》*** ")
  (setvar "cmdecho" 0)
  (setq os (getvar "osmode"))
  (setq clayer (getvar "clayer"))
  (setq olderr *error*
*error* out_err
  )
  (setq lupc (getvar "luprec"))
  (setq lunt (getvar "LUNITS"))
  (setq dimz (getvar "DIMZIN"))
  (setvar "LUNITS" 2)
  (setvar "luprec" 8)
  (setvar "DIMZIN" 1)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
  (prompt "\n请全选要计算的闭合图形： ")
  (setq ent_list (ssget))
  (command "region" ent_list "")
)
这是我编写的桥梁截面特性小工具的前面一点，单独加载不能使用，但在r14的vlisp下可以用的。
请问这是为什么？

xyp1964 · 发表于 2005-2-22 21:49:41

2004下单独加载没有问题：
命令: jmtx
***《截面特性计算工具》***
请全选要计算的闭合图形：
选择对象: 指定对角点: 找到 2 个
选择对象:
已提取 2 个环。
已创建 2 个面域。
nil
[php]
(defun c:jmtx (/)
  (setq acadObject (vlax-get-acad-object)
acadDocument (vla-get-Activedocument acadObject)
mSpace       (vla-get-ModelSpace acadDocument)
  )
  (prompt "\n***《截面特性计算工具》***")
  (setvar "cmdecho" 0)
  (setq os (getvar "osmode")
clayer (getvar "clayer")
olderr *error*
*error* out_err
lupc (getvar "luprec")
lunt (getvar "LUNITS")
dimz (getvar "DIMZIN")
  )
  (setvar "LUNITS" 2)
  (setvar "luprec" 8)
  (setvar "DIMZIN" 1)
  (prompt "\n请全选要计算的闭合图形： ")
  (setq ent_list (ssget))
  (command "region" ent_list "")
)
[/php]

bridgewind · 发表于 2005-2-22 22:14:32

也就是说在acad r14 的vlisp编译器下，
(setq acadObject (vlax-get-acad-object))
(setq acadDocument (vla-get-Activedocument acadObject))
(setq mSpace (vla-get-ModelSpace acadDocument))
可以执行，但单独加载时不能用！
autocad 2000以上版本是可以的。

lijiao · 发表于 2005-2-23 08:29:13

R14下没有VL环境，(vlax-get-acad-object)等函数没法识别，你必须先加载VL模块。

bridgewind · 发表于 2005-2-23 21:57:17

最初由 lijiao 发布
[B]R14下没有VL环境，(vlax-get-acad-object)等函数没法识别，你必须先加载VL模块。 [/B]

请教lijiao 怎么在r14程序中加载vl模块？

lijiao · 发表于 2005-2-24 08:31:03

R14中，本没有VL环境，你的VL环境应该是从其它地方下载的吧，里面应该有个VL.ARX，可以加载它。
嘿嘿，以上是我的猜想，因为我在R14中没有用过VL。

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：一个vlisp问题

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子