社区 › Auto Lisp › 打开绘图时外部参照重定位

Lee Mac 发表于 2022-7-6 12:23:10

我要说的是从无线电中提取一些东西。lsp直接调用它来做你想做的事-但这是一个相当沉重的Lisp程序崩溃。。。

Lee Mac 发表于 2022-7-6 12:24:57

 
看起来有人按照我的建议做了

feargt 发表于 2022-7-6 12:30:32

 
首先，我一直收到一个错误，因为它缺少一个括号，修复了，
 
加载后什么也没发生
除了阿卡多克。LSP加载。。。。。。。。。。
 
我也试过使用双反斜杠，但这对我来说也没什么用。。。。。。。

ReMark 发表于 2022-7-6 12:31:53

我想我在这件事上不会成功的。我会继续四处嗅探。当然，我认为这会是一个赢家。该死！
 
也许李会来救我。我会打开Mac灯。高强度光束将字母LM聚焦在低垂的乌云上。

Lee Mac 发表于 2022-7-6 12:35:13

 
哈哈哈。。。但即使是我也有点被这个问题难住了。
 
此例程来自AutoDesk天才自己。。。很深的东西。
 
我所能想到的是，它不喜欢开车去那里。

feargt 发表于 2022-7-6 12:38:49

aaaaghhh！！！！！！
 
我应该在3小时前下班。明天这里放假。。。。我早该知道，不要在下午4点55分开始解决这个问题。
 
评论
 
你在哪个狗窝？？
 
备注/李Mac
 
谢谢你们两位抽出时间来做这件事。我现在不得不把它留下。如果有机会，我明天会在家里看一看。
再次感谢您的时间和努力。
和往常一样，非常感谢！！

ReMark 发表于 2022-7-6 12:42:04

只是觉得我有点惹你生气。如果我有，那根本不是我的本意。干杯，伙计。祝你假期愉快。我希望从另一面抓住你。

Lee Mac 发表于 2022-7-6 12:45:10

祝你好运，伙计-如果你解决了问题，请告诉我们解决方案：眨眼：

feargt 发表于 2022-7-6 12:48:52

http://discussion.autodesk.com/forums/thread.jspa?messageID=1190172
 
也发现了这个，但真的要等到明天再进一步调查。。。。。。。我现在要回家了！！为了迪福！
 
再次干杯

ronjonp 发表于 2022-7-6 12:49:42

为外部参照旋转一下。。。没有时间处理图像。您可能需要使用CLASSICXREF命令来查看即时结果。直到重新打开图形，它们才显示在新的Pallete外部参照管理器中？？
 
(defun rjp-changexrefpath (path1 path2 / newpath xrpath)
(vl-load-com)
(vlax-map-collection
   (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
   (function
   (lambda (x)
       (if (= (vla-get-isxref x) :vlax-true)
         (progn (setq xrpath (strcase (vlax-get x 'path) t))
                (if (and (vl-string-search (strcase path1 t) xrpath)
                         (setq newpath (vl-string-subst path2 path1 xrpath))
                         (findfile newpath)
                  )
                  (if (vl-catch-all-error-p (vl-catch-all-apply 'vla-put-path (list x newpath)))
                  (princ (strcat "\n**OLD path found but was not changed!\n" xrpath))
                  (princ (strcat "\n" newpath))
                  )
                )
         )
       )
   )
   )
)
(princ)
)
;;(rjp-changexrefpath "B:\\_Projects" "\\\\SERVER101\ACAD\\_Projects")

查看完整版本: 打开绘图时外部参照重定位