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

tigcat

程序为论坛大侠bao_lai原创,
程序功能:选择一个图块,获得图块名,选择对象,选择基点.重新定义该图块名的图块.
在使用过程中发现一个问题,这个图纸的基点不是我获取的基点.不知道是什么原因,关闭了对象捕捉也不行.其他图纸,其他对象没发现这个问题.

GEGEYANG88

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

tigcat

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

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

kozmosovia

执行前先改一下insbase为0,0,0

tigcat

kozmosovia 发表于 2024-11-18 23:18
执行前先改一下insbase为0,0,0

已测试,不是这个原因.

GEGEYANG88

二次插块，10点有问题(assoc 10 block_ent)。

你有种再说一遍

才知道B站视频可以在论坛播放

飞雪神光

只凭 block真的能更改基点么

GEGEYANG88

这样就不偏了

kozmosovia

他恐怕是要原地改插入点，不是单纯的改了块定义，改完还要把块参照改一遍，保持图形位置不变。

tigcat

kozmosovia 发表于 2024-11-19 09:44
他恐怕是要原地改插入点，不是单纯的改了块定义，改完还要把块参照改一遍，保持图形位置不变。

没有这个需求，就是块重定义，然后问题是lisp程序执行后的块的基点不是指定的基点

lxl304712346

可以。可以重新指定基点啊。下载了你的文件和程序测试可以。你先点击你目前的图块再选择未生成块的图元，在图元上选一个你想要的基点，你的图块就变成你想要的基点了。