[求助]lisp重定义块基点不是想要的位置

masterlong

UCS 或 base
好像就这两种可能性

GEGEYANG88

让我们来检查一下逻辑：
程序功能:选择一个图块,获得图块名,选择对象,选择基点.重新定义该图块名的图块。
1，选择一个图块A,获得图块名（基点Aa按默认）；
2，选择对象B,手工选择基点(Bb);
3，重新定义该图块名A的图块为C[默认新基点按(Aa),把对象B以它的基点(Bb)挪到(Aa)成为C],让所有图块A消失；
这个时候，我们发现程序本身逻辑严格执行了。
结果发生偏移错误是：1，人没有按规定的逻辑去理解；2，按虚构没有的逻辑去理解正确执行的程序。
虚构且没有的逻辑是：C的基点不是获取的基点Bb。
结论：人设艰涩逻辑，人为错误理解，逻辑混乱之过。

你有种再说一遍

tigcat 发表于 2024-11-19 13:54
没有这个需求，就是块重定义，然后问题是lisp程序执行后的块的基点不是指定的基点

块重定义是什么意思?
是把新图元深度克隆进去块表记录的意思.
并且是保留原有引用的插入点和矩阵变换信息.
所以改啥子基点...

这很明显就是两个动作.


你如果要的是改块基点功能,就像koz说的一样,
先打开块表记录,再平移变换一个向量,
再把全部引用逆向量变换.
这样只有插入点改变,图形不变.

tigcat

你有种再说一遍 发表于 2024-11-20 00:37
块重定义是什么意思?
是把新图元深度克隆进去块表记录的意思.
并且是保留原有引用的插入点和矩阵变换信 ...

很简单的操作。比如原来一个块名字叫A,里面有一个圆，基点在圆心。我现在选中一个矩形，基点选中矩形中心，重定义这个名字叫A的块。那么原来名字叫A的图块由包含一个圆变成包含一个矩形。
这个实现过程相当于手动输入block命令，block命令输入后，会提示输入块名，选择基点，如果输入的块名已存在，会提示是否重定义块。这就是程序块重定义的名称由来。至于为什么不直接在位编辑，是因为图形太大后在位编辑很卡。
程序bug:在我提供的文档中，程序重定义了图块，但基点不是指定的位置，比如你用block命令，选中的基点就是每个同名图块的相对基点，比如你做块时选中的图块基点是圆心，那其他所有这个名字图块基点都在圆心。这个文档的bug如视频所示，相对基点是错误的。
如果手动输block命令定义块，则不会出现该问题。
最后一句:这个程序在其他图形，本文档的其他块和图元操作上都是正确的，只有轴网这个块不行。不存在使用逻辑错误。

liuhe

你的代码就在我这就不能正常运行。试试 我收集的代码

tigcat

liuhe 发表于 2024-11-20 08:40
你的代码就在我这就不能正常运行。试试 我收集的代码

谢谢大侠回复。我并不是要更改块的基点。

kozmosovia

你提供的程序就是用的command，怎么可能会跟手动用command实现的结果不一样？

你有种再说一遍

tigcat 发表于 2024-11-20 05:52
很简单的操作。比如原来一个块名字叫A,里面有一个圆，基点在圆心。我现在选中一个矩形，基点选中矩形中心 ...

那就是深度克隆,如果command走不通就vla吧

tigcat

kozmosovia 发表于 2024-11-20 10:45
你提供的程序就是用的command，怎么可能会跟手动用command实现的结果不一样？

这正是疑惑的地方

tigcat

你有种再说一遍 发表于 2024-11-20 12:06
那就是深度克隆,如果command走不通就vla吧

有时间了再试试看。谢谢惊惊大佬回复。