为何建block后属性会旋转回X-Y平面??

龙龙仔

;;;用以下建立一个属性后,再把属性建立成BLOCK
;;;但为何建block后属性会旋转回X-Y平面??
;;;如何把属性建立在原位置上??

(defun C:DEF (/ RR AA)
  (defun QBLOCK        (AA / A)
    (setq A (rtos (* (getvar "CDATE") 1E8)))
    (if        (/= AA NIL)
      (progn
        (command "_.BLOCK" A "0,0" AA "")
        (command "_.INSERT" A "0,0" "" "" "")
      )
    )
    (princ)
  )
  (setq        RR '((0 . "ATTDEF")
             (100 . "AcDbEntity")
             (67 . 0)
             (410 . "Model")
             (8 . "text")
             (100 . "AcDbText")
             (10 100.0 100.0 100.0)
             (40 . 18.8479)
             (1 . "SDF")
             (50 . 0.0)
             (41 . 1.0)
             (51 . 0.0)
             (7 . "Standard")
             (71 . 0)
             (72 . 0)
             (11 0.0 0.0 29.4386)
             (210 -1.0 -1.0 6.12303e-017)
             (100 . "AcDbAttributeDefinition")
             (3 . "SDF")
             (2 . "SDF")
             (70 . 8)
             (73 . 0)
             (74 . 0)
            )
  )
  (entmake RR)
  (setq AA (entlast))
  (QBLOCK AA)
  (entmake RR)
  (princ)
)

南子

龙龙仔

解决的方法是在图块插入后，以属性定义的 210及 10 群码值修改图块内属性的 210及 10 群码值。

南子:可能是插入点默认Z坐标为0.0，如果输入100，100，100为插入点就可以啦。
我试过南子的方法但无效??????