;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;幕匠LISP实验室;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;程序功能：取消尺寸关联  [备注：取消尺寸关联]
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(DEFUN C:MJ123 ()
 (princ "\nselect object:")
 (setq s (ssget))
 (setq n (sslength s))
 (setq k 0 )
 (while (< k n) 
      (setq name (ssname s k))
      (setq a (entget name))
      (setq b (assoc '0 a))
      (setq b (cdr b))
      (if (= b "DIMENSION")(progn
        (setq h1 (assoc '42 a))
        (setq h1 (cdr h1))
        (setq h1 (rtos h1 2 0))
        (setq h2 (assoc '1 a))
        (setq h1 (cons 1 H1))
        (setq a (subst h1 h2 a))
        (entmod a)
        ))
      (setq k (+ k 1))
 )
)


;将尺寸值改为可变数值
(DEFUN C:CHDIM2 ()
 (princ "\nselect object:")
 (setq s (ssget))
 (setq n (sslength s))
 (setq k 0 )
 (while (< k n) 
      (setq name (ssname s k))
      (setq a (entget name))
      (setq b (assoc '0 a))
      (setq b (cdr b))
      (if (= b "DIMENSION")(progn
        (setq h2 (assoc '1 a))
        (setq h1 (cons 1 ""))
        (setq a (subst h1 h2 a))
        (entmod a)
        ))
      (setq k (+ k 1))
 )
)
