[LISP程序]：请问如何获取块的基点坐标？请大家帮忙给我个例子

smi68416

请问如何获取块的基点坐标？请大家帮忙给我个例子

leocq

我也想知道，谢谢

win-gf

[PHP](defun-q C:xd01 ()
(setq ceo (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq en (entsel "\n请选择所要查询插入点的块:"))
(if (/= null en)
(progn
(setq en_data (entget (car en)))
(if (= "INSERT" (cdr (assoc 0 en_data)))
(progn
(setq pt_list (assoc 10 en_data))
(setq ptx (cadr pt_list))
(setq pty (caddr pt_list))
(princ (strcat "\n插入点X坐标为: <" (rtos ptx)">" "\n插入点Y坐标为: <" (rtos pty)">")))
(princ (strcat "\n所选对象为: <" (cdr (assoc 0 en_data))">,请重新选择!"))))
(princ "请选择所要查询插入点的块"))
(setvar "cmdecho" ceo)
(princ)
) [/PHP]

cls555

AcGePoint3d origin;
AcGeMatrix3d transform = pRef->blockTransform();
AcGeVector3d e0,e1,e2;
transform.getCoordSystem(origin,e0,e1,e2);