[编程申请]：选中的尺寸中，若尺寸标注值小于等于300，则将该尺寸改成6号色

lengliqun

各位元旦快乐，我想求个lsp程序，选中的尺寸中，若尺寸标注值小于等于300，则将该尺寸改成6号色。

zxq0220

[php]
;小于300的尺寸改成6号色 晓东 zxq0220 2007.12.31
(defun c:tt ()
(if (setq ss (ssget (list (cons 0 "DIMENSION")))) (progn
  (setq i -1)
  (repeat (sslength ss)
   (setq ent (entget (ssname ss (setq i (1+ i))))
           sp (cdr (assoc 13 ent))
           ep (cdr (assoc 14 ent))
           an (cdr (assoc 50 ent))
           dtyp (cdr (assoc 100 (reverse ent))))
   (if (not (setq l (cdr (assoc 42 ent))))
    (if (= dtyp "AcDbAlignedDimension")
     (setq l (distance sp ep))
     (if (equal (ram an pi) 0.0 0.00001)
      (setq l (abs (- (car sp) (car ep))))
      (setq l (abs (- (cadr sp) (cadr ep))))
     )
    )
   )
   (if (<= l 300) (progn
    (if (assoc 62 ent)
     (setq ent (cons (cons 62  6) (assoc 62 ent) ent))
         (setq ent (append ent (list (cons 62 6))))
        )
        (entmod ent)
   ))
  )
))
(princ)
)
[/php]

lengliqun

谢谢大侠，cad2004测试可用。谢谢。