如何用LISP来旋转图块的属性值？

cherio

图中插入一个块，块有属性。现在想让属性值旋转一个角度，要怎样实现，请各位大侠帮忙！：）

龙龙仔

;;VxAlignAtts - Rotates all attributes of a block to n?/font>
;; -- Function VxAlignAtts
;; Rotates all attributes of a block to n?
;; Copyright:
;;   ?000 MENZI ENGINEERING GmbH, Switzerland
;; Arguments [Typ]:
;;   Obj = Object [VLA-OBJECT]
;;   Ang = Angle (Radians) [REAL]
;; Return [Typ]:
;;   > Null
;; Notes:
;;   None
;;
(defun VXALIGNATTS (OBJ ANG)
  (mapcar
    '(lambda (ATT) (vla-put-rotation ATT ANG))
    (vlax-invoke OBJ "GetAttributes")
  )
  (vla-update OBJ)
  (princ)
)
(defun DTR (X) (* pi (/ X 180.0)))

;;UsageVXALIGNATTS  (vlax-ename->vla-object (car (entsel))) (DTR 30))

cherio

sccat

不明白,哪里可以查到vla和vlax的资料?

dbx511

这个好像有点问题啊，只能转90度以下，而且第二次调用程序的话，原来旋转过后的属性文字又恢复原来角度。不管旋转多少度。

寒潮大冬瓜

感觉这个帖子应该和我看到的这个有相通之处！
[源码+教程]使用动态块函数简化AutoLisp参数设计编程
http://bbs.mjtd.com/forum.php?mo ... &fromuid=418631
(出处: 明经CAD社区)