关于2002和2005？？

honboo

我不太清楚在2002和2005以及2004中使用LISP程序，存在哪些不兼容的成分！ 如以下的程序我在2005中能运行，可到了2002中就不可以，找不到vlax-ename->vla-object 这个程序命令 (defun C:PRINT()
(defun GetBox(ent / pt1 pt2)
(vla-getboundingbox (vlax-ename->vla-object ent) 'pt1 'pt2)
(mapcar 'vlax-safearray->list (list pt1 pt2))
)
(setq point1 (getpoint "\n请确定要打印的区域: "))
(setq point2 (getcorner point1 "\n请确定区域的对角点 : "))
(setq name (getstring"\n请输入要打印图框的图块名："))
(setq ss (ssget "w" point1 point2(list '(0 . "INSERT") (cons 2 name))))
(setq i 0)
(repeat (sslength ss)
(setq ent (ssname ss i))
(setq pts (list (GetBox ent)))
(setq pt(car pts))
(setq point(car pt))
(setq zuob (append zuob (list point)))
(setq i (1+ i))
)
(setq zuob (vl-sort zuob '(lambda(e1 e2) (<(fix(car e1)) (fix(car e2))) )))
(setq zuob (vl-sort zuob '(lambda(e1 e2) (>(fix(cadr e1)) (fix(cadr e2))))))
(mapcar '(lambda(e) (command "-plot" "y" "" "" "" "M" "L" "N"
"W" e (list (+ (car e) 420) (+ (cadr e)297))
"" "C" "Y" "" "Y" "N" "N" "N" "Y"))zuob)
(print zuob)(setq zuob nil)
)

BDYCAD

在lisp 使用到vl的功能要先运行 (vl-load-com)         这句行可以用

honboo

请详细点，你知道我是很菜的！

xiaomihu

把(vl-load-com)这句加到(defun GetBox(ent / pt1 pt2)
后面就可以了

honboo

谢谢各位高人！不过，这些到底是怎么回事，但是在2005里为什么就可以不通过（VL-LOAD-COM）就可以运行呢？

meflying

应该学会查看帮助文件。。。VL-LOAD-COM是做什么的帮助文件中就有。。。至于为什么2005不用加载，想想就明白了，都用到2005了，开发肯定要用VLISP了，所以就默认自动加载了VLISP扩展功能（我是这么想的）