不知道对大家有无用处.大家看看

前生 · 发表于 2003-8-27 16:14:00

不知道对大家有无用处.大家看看.

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

runkeji · 发表于 2003-8-27 16:33:00

请问关于VLISP的教程有没有？
我作的程序在2004里面能运行。中间包含VL-LOAD-COM 命令。
当我在R14 里面运行时却不能执行。提示：不认识：VL-LOAD-COM
下载  VLISP  FOR AUTOCAD R14 后安装成功。启动R14加载 VLIDE  仍不能运行。
提示： VL-LOAD-COM 不能识别。
请问如果在2004中编的程序，在R14中就不能运行吗？R14  是不是就彻底淘汰了。
请问有什么好的方法解决。
                                                                        谢谢！

runkeji · 发表于 2003-8-27 16:59:00

你好：
(defun c:gx(/ ent1 ent2 ent_tm)
(setq a (ssget "x"))
(command "_.explode" a)
(setq  a (ssget "x"))
(setq  b (ssget "x"))
(command "_.pedit" "" a "j" ""
               "_.region"  b ""
         )
(setq  ent1 (car(entsel)))
(setq  ent2 (car(entsel)))
(while (or (not ent1) (not ent2))
   (progn
      (prompt"请重新选择计算差集)
      (setq  ent1 (car(entsel)))
      (setq  ent2 (car(entsel)))
      )
   )
(if (vla-object  ent1)) (vla-get-area(vlax-ename->vla-object
                     ent2 )))
(progn
   (setq ent_tmp  ent1)
   (setq ent1 ent2)
   (setq  ent2  ent_tmp)
)
)
(commnad "_.subtract"  ent1 ""ent2 "")
(setq  ent1 (entlast))
(princ "\n")
(setq ent2 (vla-get-momentofinertia(vlax-ename->vla-object ent1)))
(setq lst (vlax-safearry->list(vlax-variant ent2)))
(princ (strcat "惯性矩: x值："(rtos (car lst 1)) "\n"))
(princ (strcat "             y值："(rtos (cadr lst 1)) "\n"))
(princ)
)现在到R14 里应该怎样运行，怎样调呐，需要加载什么工具请大家多多帮忙。
在这里先谢谢各位了。