[编程交流] 将多段线偏移到新glo

(defun c:Test (/ *error* w l cl)
 ;;--- Tharwat 14. May. 2013 ---;;
 (defun *error* (x)
   (if cl (setvar 'clayer cl))
   (princ "\n*Cancel*")
 )
 (setq w [color=red]1.0[/color]            [color=royalblue]; Width Value[/color]
       l [color=red]"0"[/color]        [color=royalblue] ; Layer Name[/color]
 )
 (if
   (and (if (or (eq (type w) 'INT)
                (eq (type w) 'REAL)
            )
          t
          (progn
            (alert "Width Value must be either INTER , REAL Number <!>")
            nil
          )
        )
        (if (tblsearch "LAYER" l)
          t
          (progn
            (alert "Layer name is not found in drawing <!>")
            nil
          )
        )
   )
    (progn
      (setq cl (getvar 'clayer))
      (setvar 'clayer l)
      (command "_.offset" "_Layer" "_Current" w "\" "\" "")
      (setvar 'clayer cl)
    )
 )
 (princ)
)

(defun c:test (/ layer width entl dist ent pnt data)
 (setq layer "LAYER"
       width 2.
       entl  (entlast)
 )
 (initget 6)
 (if (and (setq dist (getdist "\nSpecify offset distance: "))
          (setq ent (entsel "\nSelect LWPolyline to offset: "))
          (or (eq (cdr (assoc 0 (entget (car ent)))) "LWPOLYLINE")
              (progn (princ "\nInvalid object!") nil)
          )
          (setq pnt (getpoint "\nSpecify point on side to offset: "))
     )
   (progn
     (command "_.offset" dist ent "_non" pnt "_EXIT")
     (if (not (equal entl (setq entl (entlast))))
       (entmod (subst (cons 8 layer)
                      (assoc 8 (setq data (entget entl)))
                      (subst (cons 43 width) (assoc 43 data) data)
               )
       )
     )
   )
 )
 (princ)
)