[编程交流] 多个偏移

(defun c:Test (/ *error* d e s k)
 (vl-load-com)
;;; Tharwat 09. Oct. 2012 ;;;
 (defun *error* (x)
   (princ "\n*Cancel*")
 )
 (if (and (not (tblsearch "LAYER" "SURVEY LIMIT"))
          (not (tblsearch "LAYER" "SURVEY LINES"))
     )
   (progn
     (alert " One or two layers [sURVEY LIMIT , SURVEY LINES] are not found in the drawing")
     (exit)
   )
 )
 (if (and (setq s (ssget "_+.:S:L" '((0 . "LINE"))))
          (progn
            (initget "WINGLINES CORRIDOR")
            (setq k
                   (cond ((getkword
                            "\n Choose one [Winglines/Corridor] <Winglines> :"
                          )
                         )
                         ("Winglines")
                   )
            )
          )
     )
   (while
     (setq d (getdist "\n Specify offset distance :"))
      (progn
        (foreach x (list d (- d))
          (vla-offset
            (vlax-ename->vla-object (ssname s 0))
            x
          )
          (vla-put-layer
            (vlax-ename->vla-object (entlast))
            (if (eq k "Winglines")
              "SURVEY LIMIT"
              "SURVEY LINES"
            )
          )
        )
      )
   )
 )
 (princ)
)

(defun c:Test (/ *error* d e s k)
 (vl-load-com)
;;; Tharwat 09. Oct. 2012 ;;;
 (defun *error* (x)
   (princ "\n*Cancel*")
 )
 (if (and (not (tblsearch "LAYER" "SURVEY LIMIT"))
          (not (tblsearch "LAYER" "SURVEY LINES"))
     )
(command "layer" "m" "Survey Limit" "lt" "dashed" "" "c" "5" "" "")
(command "layer" "m" "Survey Lines" "lt" "continuous" "" "c" "6" "" "")
 )
 (if (and (setq s (ssget "_+.:S:L" '((0 . "LINE"))))
          (progn
            (initget "WINGLINES CORRIDOR")
            (setq k
                   (cond ((getkword
                            "\n Choose one [Winglines/Corridor] <Winglines> :"
                          )
                         )
                         ("Winglines")
                   )
            )
          )
     )
   (while
     (setq d (getdist "\n Specify offset distance :"))
      (progn
        (foreach x (list d (- d))
          (vla-offset
            (vlax-ename->vla-object (ssname s 0))
            x
          )
          (vla-put-layer
            (vlax-ename->vla-object (entlast))
            (if (eq k "Winglines")
              "SURVEY LIMIT"
              "SURVEY LINES"
            )
          )
        )
      )
   )
 )
 (princ)
)

(defun c:Test (/ *error* d e s k)
 (vl-load-com)
;;; Tharwat 09. Oct. 2012 ;;;
 (defun *error* (x)
   (princ "\n*Cancel*")
 )
(setvar 'cmdecho 0)  
[color="#4169e1"](defun Lyr (/ x)
    (initget "WINGLINES CORRIDOR")
    (setq x
           (cond ((getkword
                    "\n Choose one [Winglines/Corridor] <Winglines> :"
                  )
                 )
                 ("Winglines")
           )
    ) x
  )[/color]
[color="#4169e1"](foreach lyr '(("SURVEY LIMIT" "5" "DASHED")
       ("SURVEY LINES" "6" "CONTINUOUS"))
         (if (not (tblsearch "LAYER" (car lyr)))
         (command "_Layer" "_N"
                 (car lyr)  "_Color"
                 (cadr lyr) (car lyr)
                 "_Ltype"
                 (last lyr) (car lyr)
                 ""
        )))[/color]
     
 (if (and (setq s (ssget "_+.:S:L" '((0 . "LINE"))))
          (setq k (lyr))
     )
   (while
     [color="#4169e1"](progn (initget "L")[/color]
    [color="#4169e1"] (setq d (getdist "\n Specify offset distance/L To change layer :")))[/color]
        (cond
         [color="#4169e1"] ((eq d "L")(setq k (lyr)))[/color]        
                       [color="#4169e1"]((eq (Type d) 'Real)[/color] 
                 (foreach x (list d (- d))
                   (vla-offset
                     (vlax-ename->vla-object (ssname s 0))
                     x
                   )
                   (vla-put-layer
                     (vlax-ename->vla-object (entlast))
                     (if (eq k "Winglines")
                       "SURVEY LIMIT"
                       "SURVEY LINES"
                     )
                   )
                 )
           )
      )
   )
 )
 (princ)
)