[编程交流] 你如何检查存在

Displays the properties of the selected layout viewport. 
Property name
(by category) 
[b]Description [/b]
[b];[/b]
[b]Geometry [/b]
[b]Center X[/b]
[b]Center Y[/b]
[b]Center Z[/b]
Specifies the X,Y,Z coordinate values for the center of the viewport Width Specifies the width of the viewport; the width of a viewport is the X axis measurement of the area within a viewport frame Height Specifies the height of the viewport; the height of a viewport is the Y axis measurement of the viewport frame 
[b];[/b]
[b]Misc [/b]
[b]On[/b] Determines whether the viewport is on or off 
[b]Clipped[/b] Determines whether viewport clipping is on or off 
[b]Display locked[/b] Determines whether viewport locking is on or off 
[color=magenta][b]Standard scale[/b] Specifies the standard scale for the viewport[/color] 
[color=magenta][b]Custom scale[/b] [/color][color=magenta]Specifies a custom scale for the viewport [/color]
[b]UCS per viewport[/b] Determines whether the UCS is saved with the viewport or not 
[b]Shade Plot[/b] Specifies how views are plotted 

(defun GetScaleList (/ dic l)
 (vl-load-com)
 ;; Lee Mac  ~  25.03.10
 
 (if (not (vl-catch-all-error-p
            (setq dic (vl-catch-all-apply
                        (function vla-item)
                          (list (vla-get-Dictionaries
                                  (vla-get-ActiveDocument
                                    (vlax-get-acad-object))) "ACAD_SCALELIST")))))
   (vlax-for scl dic
     (setq l (cons (cdr (assoc 300 (entget (vlax-vla-object->ename scl)))) l))))
 l)

(defun GetScaleList (/ dic)
 (vl-load-com)
 ;; Lee Mac  ~  25.03.10
 (if (setq dic (dictsearch (namedobjdict) "ACAD_SCALELIST"))
   (mapcar
     (function
       (lambda (x) (cdr (assoc 300 (entget (cdr x))))))
     (vl-remove-if-not
       (function
         (lambda (x) (= 350 (car x)))) dic))))

(setq scllst (getscalelist))
     (if (not (member'"1" = 1'" scllst))(vl-cmdf "-scalelistedit" "a" "1" = 1'" "1:1"))
   (if (not (member'"1" = 2'" scllst))(vl-cmdf "-scalelistedit" "a" "1" = 2'" "1:2" "e"))
    (if (not (member'"1" = 3'" scllst))(vl-cmdf "-scalelistedit" "a" "1" = 3'" "1:3" "e")) 
    (if (not (member'"1" = 4'" scllst))(vl-cmdf "-scalelistedit" "a" "1" = 4'" "1:4" "e"))
    (if (not (member'"1" = 5'" scllst))(vl-cmdf "-scalelistedit" "a" "1" = 5'" "1:5" "e")) 
    (if (not (member'"1" = 10'" scllst))(vl-cmdf "-scalelistedit" "a" "1" = 10'" "1:10" "e"))
    (if (not (member'"1" = 20'" scllst))(vl-cmdf "-scalelistedit" "a" "1" = 20'" "1:20" "e"))
    (if (not (member'"1" = 30'" scllst))(vl-cmdf "-scalelistedit" "a" "1" = 30'" "1:30" "e"))
    (if (not (member'"1" = 40'" scllst))(vl-cmdf "-scalelistedit" "a" "1" = 40'" "1:40" "e"))
    (if (not (member'"1" = 50'" scllst))(vl-cmdf "-scalelistedit" "a" "1" = 50'" "1:50" "e"))
    (if (not (member'"1" = 60'" scllst))(vl-cmdf "-scalelistedit" "a" "1" = 60'" "1:60" "e"))
    (if (not (member'"1" = 80'" scllst))(vl-cmdf "-scalelistedit" "a" "1" = 80'" "1:80" "e"))
    (if (not (member'"1" = 100'" scllst))(vl-cmdf "-scalelistedit" "a" "1" = 100'" "1:100" "e"))
    (if (not (member'"1" = 150'" scllst))(vl-cmdf "-scalelistedit" "a" "1" = 150'" "1:150" "e"))
    (if (not (member'"1" = 200'" scllst))(vl-cmdf "-scalelistedit" "a" "1" = 200'" "1:200" "e"))
    (if (not (member'"1" = 400'" scllst))(vl-cmdf "-scalelistedit" "a" "1" = 400'" "1:400" "e"))
    (if (not (member'"1" = 500'" scllst))(vl-cmdf "-scalelistedit" "a" "1" = 500'" "1:500" "e"))
    (if (not (member'"1" = 2000'" scllst))(vl-cmdf "-scalelistedit" "a" "1" = 2000'" "1:2000" "e"))

(setq scllst (getscalelist))
(mapcar
 (function
   (lambda (name ratio)
     (if (not (vl-position name scllst))
       (vl-cmdf "_.-scalelistedit" "_a" name ratio "_e"))))
 '("1" = 1'" "1" = 2'" "1" = 3'")
 '(  "1:1"       "1:2"      "1:3"  ))

(defun checkScale (name ratio)
 (if (not (vl-position name scllst))
   (vl-cmdf "_.-scalelistedit" "_a" name ratio "_e")))
(setq scllst (getscalelist))
(mapcar 'checkScale
 '("1" = 1'" "1" = 2'" "1" = 3'")
 '(  "1:1"       "1:2"      "1:3"  ))