[求助]如何改变一个已插入图形中块的插入点，而不改变该块中图元的位置？

cag

如何改变一个已插入图形中块的插入点，而不改变该块中图元的位置？





改变后如下图所示:

lee50310

再见熊猫衣服 发表于 2021-11-18 10:35
发现一个新问题，浩辰CAD使用的时候，基点会飘移走。漂移的位置不确定，有时候再左上方，有时候再右上方， ...

請使用 Lee Mac  網路程式 即可
<<<   更改塊基點   ChangeBlockBasePointV1-5.lsp >>>
載入程式後執行指令有 2 個
指令:CBP        ----->>保留插入點位置  (改變插入點  位置跟著改變)
指令:CBPR     ----->>保留塊參考位置   (改變插入點  位置不跟著改變)

改變插入點若塊的位置不跟著改變 指令請使用 CBPR

sweetsea

alin大侠，成功载入amend_block.LSP和JonFleming.lsp后，输入命令：ab，选择块的时候报错误。请问如何解决？

命令: ab
本程序修改图块定义的插入基点，图名或描述...
选择要修改的图块实例: ; 错误: no function definition: VLAX-ENAME->VLA-OBJECT

我的CAD版本是2008的。

efan2000

块的参照原点是固定的，只能通过修改块中实体的位置，达到改变块插入的形式。这时看起来仿佛是插入点改变了，但其实是块中的实体位置改变了。

龙龙仔

說明白點就是很難!!

无痕

龙兄，别吓唬人嘛，：）


是难，不过还不是很难，但是有点难

ljcgq

试一试把插入点的改变量，反加在块的基点上，

cag

多谢各位了，我试试用其他方法了。

alin

(if (> (distance ins_pt new_ins_pt) 0.00001)
(progn
(setq ss nil)
(command "explode" en "")
(setq ss (ssget "P"))
(command "-block" blkname "y" new_ins_pt ss "")
(command "-insert" blkname new_ins_pt "" "" "")
) ) Or you can use this:

龙龙仔

ALIN:

这类操作还要考滤选点图块当时的比例(x.y.z),旋转,镜射(mirror), 嵌套图块的情况,图块在N个图纸空间……

能再考滤属性就更好! 8-)

哗!好鬼死麻烦!!(到现在都没空想它__更不敢想嵌套(N层)图块的情况)

你很好!快点想想办法，这样的功能我也等很久!

alin

下面修改后的程序似乎解决了等比例缩放，旋转和镜像等问题。注意我是指二维平面的情况下。至于三维的，nested blocks 或属性等问题，算了吧。。。


       

无痕

龙龙仔，想这么复杂干吗？


重定义前做个boundingbox，重定义后再做个boundingbox，根据两个boundingbox的相对位移进行移动。。。


：）对定义点进行3d重定义怎么办？：）