缺乏CAD基础知识!样图中块中文字为属性!
试试这个:
- (defun c:tt ()
- (setq ss (ssget '"x" '((0 . "insert"))))
- (repeat (setq n (sslength ss))
- (setq obj (vlax-ename->vla-object (ssname ss (setq n (1- n)))))
- (if (setq atts (vlax-invoke obj 'GetAttributes))
- (foreach att atts
- (vla-put-Rotation att 0)
- )
- )
- )
- )
|