win7 64位下很多程序运行不正常

lengxiaxi

自己做了个工具箱，在32系统下 cad2004运行正常。换电脑后装64位win7 因为没有64位的2004，装的2009.结果大多数程序运行不正常，现在截取其中一个小程序，如下，大家帮忙分析下怎么解决？？

此程序2004  xp运行正常   2009 win7 64位提示无效命令。

;****************************************************连接断线程序
(defun c:lj (/ ent ent1 pt1 pt2 pt3 pt4 ptlst ptls kj fltrad memb sel sel1 x y)
  (setq fltrad (getvar "filletrad"))(setvar "filletrad" 0)
(setq sel (entsel"\n拾取第一条线<LINE,PLINE,ARC>:") ent (car sel)
      sel1 (entsel"\n拾取另一条线<LINE,PLINE,ARC>:")ent1 (car sel1))
(setq pt1(vlax-curve-getStartPoint ent)
      pt3(vlax-curve-getStartPoint ent1)
      pt2(vlax-curve-getEndPoint ent)
      pt4(vlax-curve-getEndPoint ent1))
    (if(and(and(=(cdr(assoc 0(entget ent)))"LINE")
    (=(cdr(assoc 0(entget ent1)))"LINE"))
      (and(null(inters pt1 pt2 pt3 pt4 nil))
     (equal(angle pt1 pt3)(angle pt1 pt4)0.0000001))
    )     
      (progn
  (setq ptlst (list (list pt1 pt3)
      (list pt1 pt4)
      (list pt2 pt3)
      (list pt2 pt4)
      )
)
(mapcar '(lambda (x)
    (setq kj (cons(apply 'distance x)kj))
    )
ptlst
)
(mapcar '(lambda (y)
  (if (=(apply 'distance y)(apply 'max kj))
    (setq ptls y)
    )
    )ptlst
)
  (cond((/=(setq memb (member(car ptls)(list pt1 pt2)))nil)  
(if(=(cadr ptls)pt3)
(vla-put-endpoint (vlax-ename->vla-object ent1)
                  (vlax-3d-point(car ptls)))
(vla-put-startpoint (vlax-ename->vla-object ent1)
                    (vlax-3d-point(car ptls)))   
   )(vl-cmdf ".erase" ent "")
)
       (t(if(=(car ptls)pt1)
(vla-put-endpoint (vlax-ename->vla-object ent)
                  (vlax-3d-point(cadr ptls)))
(vla-put-startpoint (vlax-ename->vla-object ent)
                    (vlax-3d-point(cadr ptls)))
   )(vl-cmdf ".erase" ent1 ""))))
    (vl-cmdf ".fillet" sel sel1)  
    )(setvar "filletrad" fltrad)(princ)
  )

荒野孤行

在开始加入(vl-load-com)试试

429014673

64位没有2009.最低2010

sicky111

429014673 发表于 2015-6-2 10:45
64位没有2009.最低2010

你确定？   

lengxiaxi

荒野孤行 发表于 2015-6-2 10:38
在开始加入(vl-load-com)试试

我把多个lsp集成在一个lsp里面了，有多个defun命令   ，有的能用，有的不能用。每个开头都加vl-load-com？

ivde

vlax-create-object部分不一定能用

荒野孤行

lengxiaxi 发表于 2015-6-2 13:34
我把多个lsp集成在一个lsp里面了，有多个defun命令   ，有的能用，有的不能用。每个开头都加vl-load-com？ ...

对了，AutoCAD从2010版开始安装包里面是不带VBA的，你的程序有用vl，vlax，vla的就会只有部分能用。所以你再安装AutoCAD的VBA看看（官网里面去下）

lengxiaxi

问题已自我修复，虽不知道为什么，单独拆开，独立作为一个LSP，在主程序里。用 load命令载入就可以。

429014673

sicky111 发表于 2015-6-2 11:35
你确定？

不懂的话，上官网查下，不要乱破CAD

fl202

是不是全局变量或者子函数重名了？