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

cag · 发表于 2004-3-8 09:02:00

(defun co (/ 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 · 发表于 2004-3-8 12:49:00

(defun co (/ 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)
)