改变后如下图所示:
网友答: 本帖最后由 lee50310 于 2021-12-1 20:55 编辑
再见熊猫衣服 发表于 2021-11-18 10:35
发现一个新问题，浩辰CAD使用的时候，基点会飘移走。漂移的位置不确定，有时候再左上方，有时候再右上方， ...
請使用 Lee Mac 網路程式 即可
<<< 更改塊基點 ChangeBlockBasePointV1-5.lsp >>>
載入程式後執行指令有 2 個
指令:CBP ----->>保留插入點位置 (改變插入點 位置跟著改變)
指令:CBPR ----->>保留塊參考位置 (改變插入點 位置不跟著改變)
改變插入點若塊的位置不跟著改變 指令請使用 CBPR
网友答: alin大侠，成功载入amend_block.LSP和JonFleming.lsp后，输入命令：ab，选择块的时候报错误。请问如何解决？
命令: ab
本程序修改图块定义的插入基点，图名或描述...
选择要修改的图块实例: ; 错误: no function definition: VLAX-ENAME->VLA-OBJECT
我的CAD版本是2008的。网友答: 块的参照原点是固定的，只能通过修改块中实体的位置，达到改变块插入的形式。这时看起来仿佛是插入点改变了，但其实是块中的实体位置改变了。网友答:
說明白點就是很難!!网友答:
龙兄，别吓唬人嘛，：）
是难，不过还不是很难，但是有点难网友答:
试一试把插入点的改变量，反加在块的基点上，网友答:
多谢各位了，我试试用其他方法了。网友答:
(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层)图块的情况) 你很好!快点想想办法，这样的功能我也等很久!
网友答:
下面修改后的程序似乎解决了等比例缩放，旋转和镜像等问题。注意我是指二维平面的情况下。至于三维的，nested blocks 或属性等问题，算了吧。。。
网友答:
龙龙仔，想这么复杂干吗？
重定义前做个boundingbox，重定义后再做个boundingbox，根据两个boundingbox的相对位移进行移动。。。
：）对定义点进行3d重定义怎么办？：）