[求助]如何在块中改变属性的插入点?

cag

(defun c:oo (/ pt doc pl att pt2 p block blocks blockref line)
(setq pt (getpoint "Enter the insert position:"))
(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(setq blocks (vla-get-blocks doc))
(setq block (vla-add blocks (vlax-3d-point pt) "*U"))
(setq pt2 (polar pt 0 15))
(setq line (vla-addline block (vlax-3d-point pt) (vlax-3d-point pt2)))
(setq att (vla-Addattribute
block
3.5
0
"HELLO"
(vlax-3d-point '(0 0 0))
"hello1"
"hello2"
)
)
(setq blockref (vla-insertblock
(vla-get-ModelSpace doc)
(vlax-3d-point pt)
(vla-get-name block)
1
1
1
0
)
)
(vla-put-endpoint line (vlax-3d-point '(0 0 0)))
(vla-put-InsertionPoint att (vlax-3d-point '(0 0 0)))
(vla-update line)
(vla-update att)
(vla-update blockref)
(princ)
) ;;;这里能改变线的端点,却不能改变属性的插入点,为何？

alin

(defun c:oo (/ pt doc pl att pt2 p block blocks blockref line origin)
(setq pt (getpoint "Enter the insert position:"))
(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(setq blocks (vla-get-blocks doc))
(setq block (vla-add blocks (vlax-3d-point pt) "*U"))
(setq pt2 (polar pt 0 15))
(setq line (vla-addline block (vlax-3d-point pt) (vlax-3d-point pt2)))
(setq att (vla-Addattribute
block
3.5
0
"HELLO"
(vlax-3d-point '(0 0 0))
"hello1"
"hello2"
)
)
(setq blockref (vla-insertblock
(vla-get-ModelSpace doc)
(vlax-3d-point pt)
(vla-get-name block)
1
1
1
0
)
)
(vla-put-endpoint line (vlax-3d-point '(0 0 0)))
(setq origin (vla-get-origin block))
(VLA-PUT-ORIGIN BLOCK (VLAX-3D-POINT '(0 0 0)))
(VLA-MOVE BLOCKREF origin (VLAX-3D-POINT '(0 0 0)))
(vla-update line)
(vla-update att)
(vla-update blockref)
(princ)
)

cag

非常感激，但如果不把块参考的插入点移动，只更新属性的插入点，就如那条线一样，只更新它的端点，该怎么办？

龙龙仔

cag

搞定，感谢!