[编程交流] 显示并指出非原件

(defun c:FindDodgyDims ( / ss ) (vl-load-com)
 (if (setq ss (ssget "_X" '((0 . "*DIMENSION") (1 . "*?*"))))
   (
     (lambda ( i / e o )
       (while (setq e (ssname ss (setq i (1+ i))))
         (vla-put-TextColor (setq o (vlax-ename->vla-object e)) acgreen)
         (vla-put-TextFillColor o acwhite)
         (vla-put-TextFill o :vlax-true)
       )
     )
     -1
   )
 )
 (princ)
)

(defun C:HL (/ SS PT PT2)
 (if
   (setq SS
     (ssget "_X"
       '((0 . "*DIMENSION") (1 . "*?*"))
     )
   )
   (if (setq PT (getpoint "\nSelect anchor point: "))
     (foreach % (jk:SSX_SS->List SS)
       (setq PT2 (cdr (assoc 11 (entget %))))
       (entmakex
         (list
           (cons 0 "LINE")
           (cons 10 PT)
           (cons 11 PT2)
           (cons 62 2)
         )
       )
     )
     (princ "\n>> Invalid point. ")
   )
   (princ "\n>> No overrided dimensions. ")
 )
 (princ)
)
(defun jk:SSX_SS->List (sel / n l)
 (repeat
   (setq n (sslength sel))
   (setq n (1- n)
         l (cons (ssname sel n) l)
   )
 )
)
(princ)

 
(defun c:FindDodgyDims ( / ss ) (vl-load-com)
(setvar "dimtfillclr" 5)
(setvar "dimtfill" 2)
 (if (setq ss (ssget "_X" '((0 . "*DIMENSION") (1 . "*?*"))))
   (
     (lambda ( i / e )
       (while (setq e (ssname ss (setq i (1+ i))))
         (vla-put-TextColor (vlax-ename->vla-object e) acgreen)
         (command "-dimstyle" "A" ss "")
       )
     )
     -1
   )
 )
(setvar "dimtfill" 0)
(princ)
)