[编程交流] celtype公司

(defun c:OES ()
  (command "layer" "s" "ELECTRIC_LINE" "")
  (SETVAR "CELTYPE" "OVERHEAD_ELECTRIC_SERVICE")
  (command "LINE")
  (setvar "CELTYPE" "bylayer")
  (PRINC)
)

(defun c:oes ( / )
   (command "_.-layer" "_M" "ELECTRIC_LINE" "")
   (if (tblsearch "LTYPE" "OVERHEAD_ELECTRIC_SERVICE")
       (setvar 'celtype "OVERHEAD_ELECTRIC_SERVICE")
   )
   (command "_.line")
   (while (= 1 (logand 1 (getvar 'cmdactive))) (command "\"))
   (setvar 'celtype "BYLAYER")
   (princ)
)

   (command "layer" "s" "ELECTRIC_LINE" "")
  (SETVAR "CELTYPE" "OVERHEAD_ELECTRIC_SERVICE")
  (command "LINE" PAUSE)
(WHILE (< 0(GETVAR "CMDACTIVE"))
(COMMAND PAUSE))
  (setvar "CELTYPE" "bylayer")
  (PRINC)
)