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

前生

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

runkeji

请问关于VLISP的教程有没有？

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

                                                                            谢谢！

runkeji

你 好：
(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-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)
)
)
(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 里应该怎样运行，怎样调呐，需要加载什么工具请大家多多帮忙。
在这里先谢谢各位了。

tuger

vlisp的在r14里好像不行

Student

里面是《AutoLisp入门》，是真的入门。谢谢。