外部参照

au-s · 发表于 2022-7-6 17:05:02

你好

对此不熟悉。。。
我做了一个lisp插入外部参照。。。

lisp是否可以通过从目录中选择来附着外部参照（覆盖）？
对我来说，打开的当前文件更改为UCS:world，然后在插入后返回到previus UCS，这是否也很重要。当然，我想插入点应该是0,0。
t确保外部参照附着在与当前图形相同的位置。

有什么Lisp程序的地方我可以看一下吗？

谢谢

顺致敬意，

/阿图尔

au-s · 发表于 2022-7-6 17:15:48

你好

copy

]((defun c:xr2 () <p>(setq dfil (getfiled "Välj Xref:" "" "" 2))</p><p>(command ".layer" "m" "XREF" "c" "7" "" "")</p><p>(command "open" dfil)</p><p>(command "ucs" "w")</p><p>  (command ".xref" "o" dfil "0,0" "1" "1" "0" "")</p><p>  (command "ucs" "p")</p><p>(princ)</p><p>)</p><p> </p><p> </p><p>What I want here is to choose an xref and then the lisp puts an existing drawing to ucs=world then efter insert to ucs=previous</p><p> </p><p>is that okej? it works for me... maybe can be done differently</p><p> </p><p>Can I specify so the chosen path is remembered next time?</p><p> </p><p>Thanx</p>

matthewrussell · 发表于 2022-7-6 17:18:24

键入autocad-xref作为命令，写下为完成此操作而必须添加的所有值，然后基本上将其填写到lisp文件中。这就是你需要做的全部。这是lisp的命令行，允许您为其设置快捷键。

copy

(defun c:IX     ()   (prompt "Insert Xref ...")        (command ".-xref")       (princ))

将其余代码添加到该行之后。

基本上，通过屏幕上的对话框运行的任何命令都可以通过命令行运行。要在那里运行它，您只需要在命令前面加一个an，它将允许您在命令行中输入信息。由于可以这样做，您可以将其用于添加的信息，以将行填充到lisp中，并使其适用于要添加的外部参照。

希望有帮助

au-s · 发表于 2022-7-6 17:26:02

okej。。我想我不明白。。
这是我到目前为止所拥有的。。。

我认为这与归档有关，因为我总是，总是去我的文档。。此外，打开的盒子无法调整大小。当我打开外部参照以通过autocad附着时，用于打开文件的窗口看起来不同，它会记住以前的路径。

copy

(defun c:xr2 (/ dfil)
(setq dfil (getfiled "Välj Xref:" "" "" 2))
(command ".layer" "m" "XREF" "c" "7" "" "")
(command "open" dfil)
(command "ucs" "w")
 (command ".xref" "o" dfil "0,0" "1" "1" "0" "")
 (command "ucs" "p")
(command ".layer" "LO" "XREF" "" "")
(princ)
)

lpseifert · 发表于 2022-7-6 17:33:32

你在用Vista吗？有一个已知的bug w/GetField和Vista
http://forums.augi.com/showthread.php?t=91765&highlight=getfiled+vista

au-s · 发表于 2022-7-6 17:35:10

不

我使用XP。。。

我无法创建文件路径。。用户必须选择自己的XREF文件。。。
根据那个线程，我必须硬编码到准确的路径。。。我不想那样。。。
我希望用户选择他们想要的一个外部参照

thanx公司

/阿图尔

matthewrussell · 发表于 2022-7-6 17:45:14

除非外部参照的文件位于您在“选项”中设置的文件路径中，否则它不会工作。

将文件存储的目录添加到“选项”中“文件”下的“支持文件搜索路径”中。否则你需要像这样编码

copy

(SETQ $PATH "D:/Personal/CAD/Support/");CHANGE THIS TO THE PATH THAT YOU PASTE YOUR xrefs TO. CHEERS

然后在加载外部参照的编码中放入（strcat$PATH“此处的文件名不使用扩展名”）

试试看

au-s · 发表于 2022-7-6 17:49:15

我不知道你是什么意思？

我不想为我指定路径。。。或办公室的任何用户。
我希望他们像使用外部参照管理器一样打开并选择外部参照。
下次他们使用这个lisp时，lisp会记住上次办公室中的特定用户在哪个路径上。

就像外部参照管理器或打开文件一样
如果打开文件并浏览到特定路径。。然后你再打开一个，那么这条路就会被“记住”。

GetFild可能错了吗？？？

Coosbaylumber · 发表于 2022-7-6 17:58:19

我不知道这里所做的事情是否对你有益。

但是，我在土木工程行业已经有三十多年了。由于与Autocad相关的比例因子问题，我们在早期对工作进行了调整，以适应paln，适应绘图仪的输出等。

但基本上，我们制作了几个文件，所有文件都只用于修复一个作业。窃取他人的大量信息以进行设置，但在一天左右的时间内，它就变成了一个人。我们在24×36英寸的床单上画画，所以我们的整个世界都围绕着这个尺寸旋转。

不久前，他为Rite Aide药店制定了一项计划。它在一个角落里，那里的街道相距120度。这类项目需要大量但外观相同的表单。在我们的项目中，我们认为霍华德和校园的两个街道中心线交点在每个平面图上都是0,0，但实际上，它们将加州坐标带入了数百万。每一个旧的和新的计划都在交叉点设置了基准。现在，只要看一看现场，校园就位于向右30度左右。霍华德几乎是笔直向北90度。

设立了两个单独的计划，一个是霍华德计划，另一个是校园计划。所有地形和实地调查信息都被纳入一个名为“总体”的计划中。所有的设计工作都是按照这个方案进行的。关于下水道、级配或混凝土信息的每个单独计划都类似地包含在这一整张表中。所有层都处于活动状态并处于启用状态。

然后，打开规划校园，在整体上进行外部参照，并主要旋转，使中心线正好从西向东。对另一个名为Howard的虚拟平面也做了同样的操作，并旋转该信息以与显示的Howard中心线对齐，该中心线仍将基座固定在容易找到的位置。需要创建一个全新的图纸（如一些顾问为灌木和灌溉绘制的图纸），将其添加到整体中，在绘制之前，最终将其对齐。

然后在图纸空间中创建了一个新的平面图（实际上很多），下面有一个窗口，外部参照位于Howard或Campus中。将比例比设置为1/40。除了移动基点以与网格对齐或生成更少的图纸外，没有其他操作。然后当模型空间被打开时，我可以很容易地测量从这里到这里有这么多英尺。不要经常在纸上打开，因为从这里到这里通常只有英寸。如果您正在处理某张下水道，请关闭所有不适用的图层并进行打印。下一张类似但略有不同。外部参照业务将允许菊花链效应，并带来比需要更多的图形。直到完成lone Rite Aide商店的全部36张。

这里的目标是，您可以在一个命名图形中进行外部参照，然后它也会引入其他图形。如果该图形已旋转（如校园），则它也将作为已旋转图形进入新文件。

au-s · 发表于 2022-7-6 17:59:37

Ehm。。奥基

[编程交流] 外部参照

发表回复

精选推荐