重新定义块
你好我在这里发布了我的Edit_bloc例程，而不是增加到另一个网站的链接。
此函数（命令名：Edit\u bloc）允许对当前图形中的块定义进行某些更改（完整集合、全部插入或选择）。
编辑块的所有组成部分，甚至嵌套块和属性。
通过对话框可以选择要编辑的属性：全局比例、单位（仅适用于R2006和R2007）、层“0”上的成分、颜色、线型、线宽和成分到ByBlock的打印样式。
使用另一个功能（Edit\u bloc\u rep），可以编辑储备库的所有dwg文件（wblock）。这一个必须从原始图形启动，并运行“所有集合”选项。
编辑_Bloc_3.5。拉链
我会试试的。。检查是否可以将块修改为“无单元”。。。但是如果你知道这个Lisp程序。。。你一定已经知道了。。。它允许我们在选定的块中更改此属性吗？
----------------------
那么，你说它还使用当前比例重新定义了选定的块？。。。我必须去看看。 我编写了这个LISP，它确实将选定块的插入单元设置为弹出列表中的选定单元。
我无法解决在动态块上更改比例的问题（在这种情况下，您会收到一个对话框的警报）。
嗯，我测试了一下。。。看起来它确实改变了块的单位，但它确实将块重新定义为当前大小的1,1,1比例。。。但我想我可以用它做我需要的三件事之一。
老实说，我不太确定它是否总是有效的，因为我把3个测试块的单位改为无。。。然后我将当前的绘图单位更改为英寸，并将所有那些假定为无单位的块都锁定，当我打开提取的绘图时，它们以英寸为单位。。。所以我认为他们从他们所属的图纸中抓取了绘图单位。
然后我做了另一个测试。。并将块更改为毫米，并从相同的英寸单位图纸中提取。。提取的图形为毫米。。。所以它在这个案例中起了作用。。我想我只需要确保所有的编译图都是无单元的，并运行lisp到所有的块和交叉手指。。。
谢谢
然后我开始玩一些单位。。。似乎这个程序只会扩展块。。。但并没有重新定义它们。。它无法保持大小。我可以缩放所有块并调整其大小，但使用当前大小重新定义它们才是我想要的。
基本上，我需要的是一个例行程序：
我有积木。。。一些是比例1，一些是比例1.5，一些是其他比例。。0.254...或者别的什么。。。但我把它们都插进去了，大小都正确了。。。现在我需要分解每一个，保留它们的插入点、名称、层、颜色。。每件事只需分解每个对象，然后转到命令块，抓取自己的插入点，抓取自己的名称，并选择以前分解的对象。。并重新定义。。。还有沃拉。。但不是吝啬鬼做的。。。我需要一个Lisp程序自己做这件事。。。用它建造数千个街区。 尝试在新图形中插入WBLOCK块，并在“特性”选项板中查看其单位。。。
LISP重新定义块定义，并根据这些更改更新插入的参照。
尝试更改单位或全局比例并插入重新定义的块，它将显示与更新的插入参考相同的内容（如果它们是1x1x1比例的）。。。
如果我没有误解的话，您的请求完全不同，它需要获得块插入比例来重新缩放定义。
如果存在2d块和均匀缩放的参考，则可以执行此操作。
嗯，是的，我想它会对单位的事情起作用。。。是的，我需要的是一个lisp，以当前的比例将每个块重新缩放到1,1,1，这样它们就不会被移动或调整大小（通过这个lisp），而是将它们重新定义为1,1,1，以便作为任何公制或英制单位的标准，而不必更改或缩放它们，除非根据他们的具体需要。
我需要它以最合适的方式完成我的任务，我甚至可以在完成所有这些工作后卖掉它。。。但这就是我的美丽，如果我免费得到这些东西。。。让我们保持自由。 当我开始写Edit_bloc（2004）的时候，我的目标就是避免做你已经做过的事情：因为它们的创建单元而缩放引用。。。
这是一个根据插入比例重新定义块的快捷方法。
它不处理非均匀缩放的引用。
嵌套块的不可预测结果（因为它们可以在父块中重新定义和重新缩放）。
(defun c:rescaleBlocks (/ acdoc blocks ss scl name def base)
(vl-load-com)
(setq acdoc(vla-get-ActiveDocument (vlax-get-acad-object))
blocks (vla-get-Blocks acdoc)
)
(if (ssget "_X" '((0 . "iNSERT")))
(progn
(vla-StartUndoMark acdoc)
(vlax-for b (setq ss (vla-get-ActiveSelectionSet acdoc))
(setq scl (vla-get-XScaleFactor b))
(if (and (= scl (vla-get-YScaleFactor b) (vla-get-ZScaleFactor b))
(/= 1.0 scl)
(setq name (vla-get-Name b))
(setq def (vla-item blocks name))
)
(progn
(setq base (vla-get-Origin def))
(vlax-for o def
(vla-ScaleEntity o base scl)
)
(vla-put-XScaleFactor b 1.0)
(vla-put-YScaleFactor b 1.0)
(vla-put-ZScaleFactor b 1.0)
(if (vla-get-HasAttributes b)
(vl-cmdf "_.attsync" "_name" name)
)
)
)
)
(vla-Delete ss)
(vla-Regen acdoc acAllViewports)
(vla-EndUndoMark acdoc)
)
)
(princ)
)
嗯，我也一直在这样做。。。我使用lisp将所有块转换为其原始1,1,1比例。。。之后，我在这个论坛上要求对lisp进行修改，以便它只能同步选定的块。。Lee Mac已经多次回答并更新了它，现在它是一个很好的工具，可以将选定的块、属性块和动态块更新到当前的dimscale。。但是
所有这些lisp只是重新缩放块，它们很有用，但我在这里的任务包括重新定义许多块，我知道大多数人使用不同比例的块。。但我正在组织的大多数块都是真实的对象，不需要重新缩放或调整大小。。。他们有一个独特的尺寸，像汽车，飞机，窗户，家具，还有，我想做一个版本，其中绘图单位是英寸，另一个绘图单位是米。。。此外，我下载的许多块没有真实的维度，我需要缩放它们，并将新的比例设置为1,1,1。为此，我需要逐个重新定义每个块，将块名复制到内存中，在插入点上放置一个标记，然后分解。。。然后制作一个新块，在粘贴相同名称或从文件内存中选择名称之前必须清除，拾取现有点并选择以前分解的对象。。这样，我得到了相同的对象和相同的块，用我固定的新维度重新定义为比例1,1,1。
然后我需要的lisp是在所有选定的块中执行所有这些步骤。。。
但很高兴有另一个版本的块缩放lisp。。。
------------
对不起，我用了“重缩放”这个词。。。我的意思是使用它们当前的大小（任何比例）进行分解和重新定义 这是你第二次说“LISP不会重新定义块”，即使它会！RescaleBlocks会重新定义块，即使它不会分解它们。编程时，不需要分解块来调整其在块定义中的所有组件。
对不起，我既不明白你想要什么，也不明白你的工作方式。我认为你有你需要的（强大的）工具，学习如何使用它们。。。
这里有一些文件。。。用一些图片来解释我的需求。。。以及示例dwg文件。。
如果你进入绘图。。。你会在方块中看到4到5个不同的比例。。。0.0394、1、2、0236等。。。我需要它们都是1,1,1，但不改变其当前大小、名称或插入点。。。
当我使用你的重缩放块时。。它会将它们全部更改为1,1,1，但只会缩放块，保留其名称和插入点，但更改其当前大小。。
如果我使用edit_bloc并选择块，然后选择global scale=1，并选择none units。。。。（使用edit_bloc.jpg）它改变了块比例，但有点从它们的原始单位或其他单位进行转换，但不能将它们转换为1,1,1（正如你在“result.jpg”中的块比例属性对话框中看到的那样）。。
我需要的（在这种情况下，我手动一个接一个地执行）显示在“What I need.jpg”中，正如您在“属性”对话框中看到的那样，所有块的比例都是1,1,1，它们的大小没有改变。我知道lisp可以保留它们的名称和插入点……所以我需要的基本上是将它们的比例转换为1,1，而不改变它们的当前大小。
实例图纸
页:
[1]
2