vla-intersectwith老是出错【已解决】

BINBIN98

我刚学lisp，请问

2. (setq ll (car (entsel "1")))
   
3. (setq zz (car (entsel "2")))
   
4. 
   
5. (setq intpoint (vla-intersectwith
   
6.                                                                  (vlax-ename->vla-object ll)
   
7.                                                                  (vlax-ename->vla-object zz) acExtendThisEntity))
   
8. (setq intpoint (vlax-variant-value intpoint))
   
9. (setq pt (vl-catch-all-apply
   
10.                                          'vlax-safearray->list
    
11.                                          (list intpoint)
    
12.                                  )
    
13. )

(setq ll (car (entsel "1")))<br /> (setq zz (car (entsel "2")))<br /> <br /> (setq intpoint (vla-intersectwith <br />                                                                  (vlax-ename->vla-object ll)<br />                                                                  (vlax-ename->vla-object zz) acExtendThisEntity))<br /> (setq intpoint (vlax-variant-value intpoint))<br /> (setq pt (vl-catch-all-apply<br />                                          'vlax-safearray->list<br />                                          (list intpoint)<br />                                  )<br /> )

原因：ActiveX 服务器返回错误: 加载类型库/DLL 时出错。 位置-> 行:96 列:17
是不是我没有加载函数啊？

newer

是每次都错，还是偶尔错？

如果是每次都错，那是你的CAD是精简版的，系统缺文件

BINBIN98

newer 发表于 2020-11-27 14:23
是每次都错，还是偶尔错？

如果是每次都错，那是你的CAD是精简版的，系统缺文件

老大，每次都错，我不知道缺了什么2014版，没有用绿色版免安装版。用的是注册机激活的

BINBIN98

解决了，谢谢版主的灵感，我搜关键词搜到了大佬wudechao的帖子[[经验] 运行vlisp命令出现"错误: ActiveX 服务器返回错误: 加载类型库/DLL 时出错" ]

newer

BINBIN98 发表于 2020-11-27 15:59
解决了，谢谢版主的灵感，我搜关键词搜到了大佬wudechao的帖子[[经验] 运行vlisp命令出现"错误: ActiveX 服 ...

怎么解决的和大家说说啊

newer

装精简版的autocad2012,运行有些vlisp命令时,出现"错误: ActiveX 服务器返回错误: 加载类型库/DLL 时出错"的提示,无法进行下去,以为是新版本CAD不支持这些命令了,这个问题困扰我三年之久,经过我不懈努力,终于找到原因了,是安装包里的x86\acad\Program Files\Common Files\Autodesk Shared\*.tlb文件为零字节文件!太精简了,误认为英文的.tlb文件没有用.把AcAuthEntities18enu.tlb,acax18enu.tlb,AcMPolygon17enu.tlb三个英文版本的文件复制到系统的\Program Files\Common Files\Autodesk Shared目录下即可! 又经过几年的图夫生活,升级到autocad2014,这个问题出现了，这次不是精简版，怎么回事？折腾一番后原来是在控制面板删除了autodesk 360。在安装文件目录*\x64\Components\Cloudsync，运行AdSync.msi把它安装回来就可以。完美解决了！

注：Autodesk 360可以卸载，但是不能直接卸载。直接卸载Autodesk 360，会出现特性空白，软件崩溃等问题。因为Autodesk 360在注册表里把关键的两个文件
AcAuthEntities19chs.tlb（英文版AcAuthEntities19enu.tlb），axdb19chs.tlb（英文版axdb19enu.tlb）的路径改到了“C:\Program Files\Autodesk\Autodesk Sync\RealDwg”，删除Autodesk 360之后，
这两个文件就被删除了，但是Autodesk Shared还存在该文件。在注册表里把它的路径指向“C:\Program Files\Common Files\Autodesk Shared”即可。

autocad 2014 注册表修改如下

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\TypeLib\{9CD8DEA0-3624-4FAD-82EB-FBA9354FBC97}\1.0\804\win32]
@="C:\\Program Files\\Common Files\\Autodesk Shared\\AcAuthEntities19chs.tlb"

[HKEY_CLASSES_ROOT\TypeLib\{9CD8DEA0-3624-4FAD-82EB-FBA9354FBC97}\1.0\0\win32]
@="C:\\Program Files\\Common Files\\Autodesk Shared\\AcAuthEntities19enu.tlb"

[HKEY_CLASSES_ROOT\TypeLib\{AB513495-C0DC-4E03-AD6E-E851E08428D1}\1.0\804\win32]
@="C:\\Program Files\\Common Files\\Autodesk Shared\\axdb19chs.tlb"

[HKEY_CLASSES_ROOT\TypeLib\{AB513495-C0DC-4E03-AD6E-E851E08428D1}\1.0\0\win32]
@="C:\\Program Files\\Common Files\\Autodesk Shared\\axdb19enu.tlb"

BINBIN98

newer 发表于 2020-11-29 00:30
怎么解决的和大家说说啊

版主我本来要发的，但是等级低，限制了。抱歉

BINBIN98

newer 发表于 2020-11-29 00:30
怎么解决的和大家说说啊

此楼卡了，请帮我删一下，我找不到删除的，谢谢