本帖最后由 Gu_xl 于 2012-6-26 20:48 编辑
 - ;;将标注自动修正到标注物体图层去
- (defun c:tt(/ dxf ss n e e1 el layer)
- (defun dxf (e i)
- (cdr (assoc i (entget e)))
- )
- (setq ss (ssget "x" '((0 . "DIMENSION"))))
- (if ss
- (repeat (setq n (sslength ss))
- (setq e (ssname ss (setq n (1- n))))
- (if (setq e1 (dxf e 360))
- (progn
- (setq layer (dxf (dxf (dxf e1 360) 331) 8))
- (if (/= layer (dxf e 8))
- (entmod (subst (cons 8 layer) (assoc 8 (setq el (entget e))) el))
- )
- )
- )
-
- )
- )
- (princ "\nOk...")
- (princ)
- )
|