乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
楼主: feargt

[编程交流] 打开绘图时外部参照重定位

[复制链接]

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 12:23:10 | 显示全部楼层
我要说的是从无线电中提取一些东西。lsp直接调用它来做你想做的事-但这是一个相当沉重的Lisp程序崩溃。。。
回复

使用道具 举报

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 12:24:57 | 显示全部楼层
 
看起来有人按照我的建议做了
回复

使用道具 举报

23

主题

132

帖子

112

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
114
发表于 2022-7-6 12:30:32 | 显示全部楼层
 
首先,我一直收到一个错误,因为它缺少一个括号,修复了,
 
加载后什么也没发生
除了阿卡多克。LSP加载。。。。。。。。。。
 
我也试过使用双反斜杠,但这对我来说也没什么用。。。。。。。
回复

使用道具 举报

10

主题

8258

帖子

8335

银币

初来乍到

Rank: 1

铜币
31
发表于 2022-7-6 12:31:53 | 显示全部楼层
我想我在这件事上不会成功的。我会继续四处嗅探。当然,我认为这会是一个赢家。该死!
 
也许李会来救我。我会打开Mac灯。高强度光束将字母LM聚焦在低垂的乌云上。
回复

使用道具 举报

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 12:35:13 | 显示全部楼层
 
哈哈哈。。。但即使是我也有点被这个问题难住了。
 
此例程来自AutoDesk天才自己。。。很深的东西。
 
我所能想到的是,它不喜欢开车去那里。
回复

使用道具 举报

23

主题

132

帖子

112

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
114
发表于 2022-7-6 12:38:49 | 显示全部楼层
aaaaghhh!!!!!!
 
我应该在3小时前下班。明天这里放假。。。。我早该知道,不要在下午4点55分开始解决这个问题。
 
评论
 
你在哪个狗窝??
 
备注/李Mac
 
谢谢你们两位抽出时间来做这件事。我现在不得不把它留下。如果有机会,我明天会在家里看一看。
再次感谢您的时间和努力。
和往常一样,非常感谢!!
回复

使用道具 举报

10

主题

8258

帖子

8335

银币

初来乍到

Rank: 1

铜币
31
发表于 2022-7-6 12:42:04 | 显示全部楼层
只是觉得我有点惹你生气。如果我有,那根本不是我的本意。干杯,伙计。祝你假期愉快。我希望从另一面抓住你。
回复

使用道具 举报

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 12:45:10 | 显示全部楼层
祝你好运,伙计-如果你解决了问题,请告诉我们解决方案:眨眼:
回复

使用道具 举报

23

主题

132

帖子

112

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
114
发表于 2022-7-6 12:48:52 | 显示全部楼层
http://discussion.autodesk.com/forums/thread.jspa?messageID=1190172
 
也发现了这个,但真的要等到明天再进一步调查。。。。。。。我现在要回家了!!为了迪福!
 
再次干杯
回复

使用道具 举报

58

主题

3353

帖子

33

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1761
发表于 2022-7-6 12:49:42 | 显示全部楼层
为外部参照旋转一下。。。没有时间处理图像。您可能需要使用CLASSICXREF命令来查看即时结果。直到重新打开图形,它们才显示在新的Pallete外部参照管理器中??
 
  1. (defun rjp-changexrefpath (path1 path2 / newpath xrpath)
  2. (vl-load-com)
  3. (vlax-map-collection
  4.    (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
  5.    (function
  6.      (lambda (x)
  7.        (if (= (vla-get-isxref x) :vlax-true)
  8.          (progn (setq xrpath (strcase (vlax-get x 'path) t))
  9.                 (if (and (vl-string-search (strcase path1 t) xrpath)
  10.                          (setq newpath (vl-string-subst path2 path1 xrpath))
  11.                          (findfile newpath)
  12.                     )
  13.                   (if (vl-catch-all-error-p (vl-catch-all-apply 'vla-put-path (list x newpath)))
  14.                     (princ (strcat "\n**OLD path found but was not changed!\n" xrpath))
  15.                     (princ (strcat "\n" newpath))
  16.                   )
  17.                 )
  18.          )
  19.        )
  20.      )
  21.    )
  22. )
  23. (princ)
  24. )
  25. ;;(rjp-changexrefpath "B:\\_Projects" "\\\\SERVER101\ACAD\\_Projects")
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-3 09:28 , Processed in 0.772171 second(s), 70 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表