ARX怎样修改块的插入点。

cxjzxf

请问题怎样修改一个包含属性定义的图块的基点，只需贴出关键代码即可。
谢谢！

cxjzxf

本人将表示小小心意，奖励200元，以示感谢！

txllap

改块的基点，应该很容易吧

txllap

明经社区里，有高手提供了现成的程序，你去看看吧http://bbs.mjtd.com/thread-56371-1-1.html

csharp

cxjzxf 发表于 2015-7-10 11:52
本人将表示小小心意，奖励200元，以示感谢！

BlockTabelRecordId 中原点始终是(0 0 0) ，插入点也就是BlockTableRecordId的原点，所谓修改基点就是将内部的 Entity 移动到新的位置

http://bbs.xdcad.net/thread-670723-1-2.html

这是 XDAPI 写的修改块基点程序，XDAPI 也是 ARX 写的，看看这些函数用 ARX 写出来对会着不难

cxjzxf

谢谢各位的热心帮助！

newer

用这个应该就行了

AcDbBlockTableRecord::setOrigin Function Acad::ErrorStatus

setOrigin(

const AcGePoint3d& pt);

pt Input base point

Sets pt to be the insertion point of the block table record in WCS coordinates. This point is the origin of the MCS (which is the local WCS for the entities within the block table record).

Note For all block table records created by AutoCAD versions after Release 10, this point is always (0,0,0). It is highly recommended that this point be left at (0,0,0).

The origin value is used for DXF group code 10.

Returns Acad::eOk if successful, or Acad::eInvalidInput if the data passed in is not acceptable.

cxjzxf

谢谢老师，我试过了，不行。位置跑了

cxjzxf

(defun c:22()
        (setq ent (car (entsel"\nSelect a block:")))
        (if (not ent)
                (exit)
        )
        (setq e1 (entget ent))
        (setq pt1 (getpoint"\n select new base point:"))
        (if pt1
                (progn
                (setq e2 (subst (cons 10 pt1) (assoc 10 e1) e1))
          (entmod e2)       
                )
        )
)
这个块插入基点并没有改变

iLisp

要想位置不变，那就要将块定义内的实体反向移动一个相对距离

cxjzxf

是相对于新旧插入点这个距离，对么

iLisp

cxjzxf 发表于 2015-7-12 10:49
是相对于新旧插入点这个距离，对么

没有旋转、等比插入时是这个矢量

newer

cxjzxf 发表于 2015-7-12 10:49
是相对于新旧插入点这个距离，对么

你改完基点后，位置移动多少？ 你再给移动回去不就行了。