[综合讨论] 偏移量2#039；

(defun c:2off (/ ss)
 (vl-load-com)
 (if (setq ss (ssget (list (cons -4 "<NOT") (cons 0 "INSERT,VIEWPORT") (cons -4 "NOT>"))))
   (progn
     (foreach obj (mapcar 'vlax-ename->vla-object
              (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss))))
   (mapcar 'vla-put-layer
       (vlax-safearray->list
         (vlax-variant-value
           (vla-offset obj 2)))
       (list (vla-get-layer obj)))))
   (princ "\n<!> Nothing Selected <!>"))
 (princ))