请看一下程序问题出在哪里

meflying · 发表于 2003-8-20 11:24:00

直接加载(vl-load-com)
就是在命令行输入(vl-load-com)然后回车。
直接加到程序里就可以了
如下，

(vl-load-com)
(defun c:gx2 (/ a ent1 ent2 ent_tmp lst)
  (prompt "\n选择转化为多义线的图元")
  (setq a (ssget))
  (command "_.region" a "")
  (prompt "\n选择面域")
  (setq a (ssget))
  (setq ent1 (ssname a 0))
  (setq ent2 (ssname a 1))
  (if (< (vla-get-area (vlax-ename->vla-object ent1)) (vla-get-area (vlax-ename->vla-object ent2)))
(progn
   (setq ent_tmp ent1)
   (setq ent1 ent2)
   (setq ent2 ent_tmp)
)
  )
  (command "subtract" ent1 "" ent2 "")
  (setq ent1 (entlast))
  (princ "\n")
  (setq ent2 (vla-get-momentofinertia (vlax-ename->vla-object ent1)))
  (setq lst (vlax-safearray->list (vlax-variant-value ent2)))
  (princ (strcat "惯性矩:  x值:" (rtos (car lst)) "\n"))
  (princ (strcat "       y值:" (rtos (cadr lst)) "\n"))
  (princ)
)

runkeji · 发表于 2003-8-20 13:22:00

你好：
加载VL-LOAD-COM后，
还是出现未定义的提示。

runkeji · 发表于 2003-8-20 13:37:00

你好：

非常感谢！现在很好了，能运行了。
   我想得到的结果为：

            惯性矩： X    某个值
                           Y    某个值

runkeji · 发表于 2003-8-20 13:40:00

你好：

   现在可以运行了。非常感谢！

我想得到的结果为：    惯性矩：    X 某个值
                                                   Y 某个值

meflying · 发表于 2003-8-20 14:19:00

难道我的程序运行的结果不是这样的吗？

runkeji · 发表于 2003-8-20 15:00:00

程序运行的结果

包含面积、周长、惯性积等很多项

runkeji · 发表于 2003-8-20 16:00:00

介绍关于 VLISP方面的资料或者书籍

meflying · 发表于 2003-8-20 17:25:00

你看清楚了，第11楼中的程序，是我按你的要求改的，为什么不用新的程序试，就说结果不对？？？

runkeji · 发表于 2003-8-21 10:14:00

你好：

我想问一下(vla-get-momentofinertia ）
                  (vlax-safearray->list)
                  (vlax-variant-value)

         几个函数的详细解释，以后到哪里查找相关的函数资料呢。书籍等。

meflying · 发表于 2003-8-21 10:43:00

这是ACTIVEX函数
帮助文件中，参考用户手册中的使用ACTIVEX，至于一些对象的属性及方法参考ACTIVEX AND VBA REFERENCE

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

请看一下程序问题出在哪里

运行

感谢

不是呀

请教

请问

浏览过的版块