[编程交流] 获取dyn的可视状态

(defun c:set1 (/ ss ans i blk dp scale)
 
 (if (and (setq ss (ssget "_:L" '((0 . "INSERT"))))
     (not (initget 1 "1:1 1:2 1:2.5 1:5 1:10 1:20 1:25 1:50 1:100 1:200 1:250 1:500 1:1000 1:2000 1:2500 1:5000 1:50000 "))
  (setq ans (getkword "\nChoose Visibility [1:1/1:2/1:2.5/1:5/1:10/1:20/1:25/1:50/1:100/1:200/1:250/1:500/1:1000/1:2000/1:2500/1:5000/1:50000]: ")
   ))
  
 (repeat (setq i (sslength ss))  
    (setq blk (vlax-ename->vla-object (ssname ss (setq i (1- i)))))
    (cond (and
      (eq (vla-get-IsDynamicBlock blk) :vlax-true)
             (setq dp (car
        (vl-remove-if-not
          '(lambda (k)
      (eq
        (vla-get-PropertyName
          k
        )
        "RMS_SCALE_VIS"
      )
           )
          (vlax-invoke
     blk
     'GetDynamicBlockProperties
          )
        )
      )
      )
         (if (eq ans "1:1") (setq scale "RTA_SCALE_1"))
                (if (eq ans "1:2") (setq scale "RTA_SCALE_2"))
         (if (eq ans "1:2.5") (setq scale "RTA_SCALE_2.5"))
         (if (eq ans "1:5") (setq scale "RTA_SCALE_5"))
         (if (eq ans "1:10") (setq scale "RTA_SCALE_10"))
         (if (eq ans "1:20") (setq scale "RTA_SCALE_20"))
         (if (eq ans "1:25") (setq scale "RTA_SCALE_25"))
         (if (eq ans "1:50") (setq scale "RTA_SCALE_50"))
         (if (eq ans "1:100") (setq scale "RTA_SCALE_100"))
         (if (eq ans "1:200") (setq scale "RTA_SCALE_200"))
         (if (eq ans "1:500") (setq scale "RTA_SCALE_500"))
         (if (eq ans "1:1000") (setq scale "RTA_SCALE_1000"))
         (if (eq ans "1:2000") (setq scale "RTA_SCALE_2000"))
         (if (eq ans "1:2500") (setq scale "RTA_SCALE_2500"))
         (if (eq ans "1:5000") (setq scale "RTA_SCALE_5000"))
         (if (eq ans "1:50000") (setq scale "RTA_SCALE_50000"))
          (vlax-put dp 'Value scale)
          )
        )
   )
 )
 )
 (princ)

(vlax-put dp 'Value (strcat "RTA_SCALE_" (substr ans 3)))

(member (setq scale (strcat "RTA_SCALE_" (substr ans 3))) (vlax-get dp 'AllowedValues))
        (vlax-put dp 'Value scale)
          

(defun c:repv (/ _dp ss allowed n el el2 vs vsn blk dp)
;;;                                pBe 08Jan2013                        ;;;
(defun _dp (en  pn m / vis)
                                (setq vis (car  (vl-remove-if-not
                                         '(lambda (k) (eq  (vla-get-PropertyName k
                                                            )
                                                      pn ))
                                         (vlax-invoke en 'GetDynamicBlockProperties))))
     (if (and vis m)   (vlax-get vis 'AllowedValues) vis))
(Setq same (lambda (f b)
                (Eq (Strcase (vla-get-effectivename f))
                     (strcase b))))
 (if (and (setq ss (ssget "_:L" '((0 . "INSERT")(2 . "[color="blue"][b]BLOCKNAME[/b][/color],`*U*"))))
           (same  (vlax-ename->vla-object (ssname ss 0)) [b][color="blue"]"BLOCKNAME"[/color][/b])
                  (setq allowed (_dp (vlax-ename->vla-object (ssname ss 0))  "RMS_SCALE_VIS" t))
           (setq n -1)
           (not (textscr))
           (foreach itm allowed
                 (print (list (setq n (1+ n)) itm)))
           (not (initget 1))
           (setq el (getint "\nChoose Visibility to find [index number]: "))
           (setq vs (nth el allowed))
           (setq el2 (getint (strcat "\nChoose Visibility for " vs " [index number]: ")))
           (setq vsn (nth el2 allowed))
          )
                                (repeat (setq i (sslength ss))  
                                            (setq blk (vlax-ename->vla-object (ssname ss (setq i (1- i)))))
             (cond ((and
                       (same  blk "BLOCKNAME")
                                                     (setq dp  (_dp blk "RMS_SCALE_VIS" nil))
                       (eq (vlax-get dp 'Value) vs)
                       (vlax-put dp 'value vsn)
                       )
                    )
                   )
                 )
     )(princ)
     )