[编程交流] 字段缺少其参考Ev

(defun c:asd ()
  (setq        ssblck (ssget "x" (list '(0 . "INSERT")))
        lpdtct 0
  )
  (repeat (sslength ssblck)
    (if        (not (eq (vlax-get-property
                   (vlax-ename->vla-object (ssname ssblck lpdtct))
                   'effectivename
                 )
                 "OIS-LVL-BLK"
             )
        )
      (progn (setq lpdtct (+ lpdtct 1)))
      (progn
        (SETQ d1 (ssname ssblck lpdtct)
              d2 (vlax-ename->vla-object d1)
              d3 (itoa (vla-get-objectid d2))
              d4 (vlax-invoke d2 'getattributes)
              d5 (car d4)                ;ffl
              d6 (cadr d4)                ;lvl
              d7 (vlax-variant-value
                   (vlax-get-property
                     (nth 4 (vlax-invoke d2 'getdynamicblockproperties))
                     'value
                   )
                 )
        )
        (if (eq d7 1)
          (progn
            (command "move" d1 "" '(0 0 0) '(0 1212 0))
            (setq lpdtct (+ lpdtct 1))
          )
          (progn
            (vlax-put-property
              d6
              'textstring
              (strcat
                "+"
                "%<\\AcObjProp Object(%<\\_ObjId "
                d3                            ">%).InsertionPoint \\f "
                ""%lu2%pt4%pr3"            "">%"
               )
            )
            (vlax-put-property
              d5
              'textstring
              (strcat
                "%<\\AcObjProp Object(%<\\_ObjId "
                d3                          ">%).Layer \\f "
                ""%tc1"                  "">%"
               )
            )
            (setq lpdtct (+ lpdtct 1))
          )
        )
      )
    )
  )
)