[Volodich]

Здравствуйте!
Много работаю с сетями, а там на генплане тип линий типа: ---W1---.
И если линия начерчена не слева направо, а наоборот, то буквы получаются вверх тормашками. Чтобы это исправить, приходится каждую линиию вручную разворачивать относительно ее же центра на 180 градусов.
Прошу помощи в автоматизации сей нелегкой задачи.
Я думал обойтись макросом, но не придумал как туда включить центр линии. Видимо необходим лиспик...
Хотя интересны любые идеи!

[Disney]

Команды
ENTREVS -Реверс объекта
ENTREV -Реверс объектов (множественный выбор)
из pltools тебе помогут

[Volodich]

Неизвестная команда "ENTREV". Для вызова справки нажмите F1.

Странно, а вроде ставил... а, спутал с экспресс тулз

Offtop: Почему-то когда создаешь тему, внизу приводятся "похожие темы". Причем часто неплохие. А вот поиск ничего подобного не выдает.

[Disney]

Да и к стати, если что в 2010 AutoCADе появилась команда _reverse (Обратить)

[KAI]

Сообщение от Disney Да и к стати, если что в 2010 AutoCADе появилась команда _reverse (Обратить)

Интересно, это наши локализаторы так перевели каманду? Это что, обратить в новую веру?
А вот LINGVO такого не дает ни в одном из словарей. Кто прав?

перевод из lingvo x3:
reverse [rɪ'vɜːs]

1. 1) а) перевёртывать, переворачивать; опрокидывать; ставить с ног на голову - reverse arms б) давать задний или обратный ход; реверсировать 2) а) поворачиваться в противоположном направлении, разворачиваться б) поворачивать в противоположном направлении, разворачивать 3) изменять, менять; изменять на прямо противоположное to reverse a policy — круто изменить политику to reverse the order — поставить в обратном порядке Positions are reversed. — Позиции переменились. 4) аннулировать, отменять Syn: revoke , abrogate , undo • - reverse the charges

2. 1) противоположный Syn: opposite , contrary 2. 2) а) перевёрнутый б) обратный, оборотный, инвертированный - reverse motion Syn: back , return в) реверсный, задний - reverse gear 3) тыльный - reverse fire

3. 1) противоположное, обратное Syn: opposite , contrary 1. 2) а) реверс, оборотная сторона (медали, монеты и т.п.) б) версо, оборотная сторона листа (книги, рукописи) Syn: back Ant: obverse 3) а) неудача, превратность serious reverse — серьёзная неудача tactical reverse — тактический провал financial reverses — финансовые просчёты to meet with / suffer / sustain a reverse — терпеть неудачу - experience reverses - have reverses б) поражение, провал в) перемена (к худшему) • Syn: disaster 4) а) задний или обратный ход б) реверс; задняя передача 5) тыл - take in the reverse 6) тупой конец копья Syn: butt 7) реверси (карточная игра)

И примерно тоже по всем словарям.

[Disney]

Сообщение от KAI А вот LINGVO такого не дает ни в одном из словарей

А если пойти обратным ходом?
[IMG]http://i072.***********/1003/89/64c0eb26a4d8.jpg[/IMG]
[IMG]http://s04.***********/i177/1003/f0/2ece6685c812.jpg[/IMG]
Сейчас, стали нормально переводить, помню раньше в году 2002, принципиально не устанавливали локализованную, из-за неадекватного(машинного) перевода

[Volodich]

понятно... пора ставить 10й акад

[Disney]

Сообщение от Disney понятно... пора ставить 10й акад

Уже 2011 пора....

[Vova]

Код:

[Выделить все]

;;; Library functions 
;;;---------------------------------------------- 
(defun ru-error-catch 
       (protected_expression on_error_expression / catch_error_result) 
  (setq catch_error_result 
         (vl-catch-all-apply protected_expression) 
  ) ;_ end of setq 
  (if (and (vl-catch-all-error-p catch_error_result) 
           on_error_expression 
      ) ;_ end of and 
    (apply on_error_expression 
           (list (vl-catch-all-error-message catch_error_result)) 
    ) ;_ end of apply 
    catch_error_result 
  ) ;_ end of if 
) 
;;;---------------------------------------------- 
(defun _ru-get-ent-default (message       default_str   quoted_get_func esc_enabled 
                            /             result        question 
                            lst_params    key_str 
                           ) 
  (if default_str 
    (setq 
      question (strcat "\n" message " <" default_str ">: ") 
    ) ;_ end of setq 
    (setq 
      question (strcat "\n" message ": ") 
    ) ;_ end of setq 
  ) ;_ end of if 
  (setq lst_params (list question) 
   end nil      
        ) 
   (while 
   (not end) 

   (ru-error-catch 
    (function (lambda () 
        (cond ((and initget_param keywords) 
               (initget initget_param (strcat keywords alt_key_str)) 
              ) 
              ((not (null initget_param)) 
               (initget initget_param) 
              ) 
              ((not (null keywords)) 
               (initget (strcat keywords alt_key_str)) 
              ) 
        ) ;_ end of cond 

        (setq result (vl-catch-all-apply quoted_get_func lst_params) 
              end T) 
          result      
                      
              ) ;_ end of lambda 
    ) ;_ end of function 
    ;;executes if mistaces 
      (function 
       (lambda (msg) 
        (if esc_enabled 
         (setq result nil 
               end t 
         ) ;_ end of setq 
         (progn 
         (princ "\nNo ESC") 
          (setq ;;result nil 
               end NIL 
         ) 
         ) 
        ) ;_ end of if 
        (princ) 
       ) ;_ end of lambda 
      ) ;_ end of function 
  
   ) ;_ end of ru-error-catch 
 ) ;_ end of while 
  result 
) ;_ end of defun 
;;;---------------------------------------------- 
(defun ru-get-entsel (message) 
  ;; (ru-get-entsel "Select object!") 
  ;; ????????? ??? ?????????? ?????????? ? ????????? ? ????? 
  ;; ?????????? 
  ;; ?????????? ???????? ? ????? ???????? 
  (_ru-get-ent-default message "Exit" '_ru-get-entsel-no-error T) 
) 
;;;---------------------------------------------- 
(defun _ru-get-entsel-no-error (message / ent) 
  ;; (_ru-get-entsel-no-error "select object") 
  (setvar "errno" 0) 
  (while 
    (and 
      (not (setq ent (entsel (strcat "\n" message))) ;) 
      ) ;_ end of not 
      (equal 7 (getvar "errno")) 
      ;;mistakes while selecting 
      ;; layer locked 
    ) ;_ end of and 
     (setvar "errno" 0) 
  ) ;_ end of while 
  (cond 
    ((equal (getvar "errno") 52) 
     ;; ?????? ????? 
     nil 
    ) 
    (t 
     (list (car ent) (trans (cadr ent) 1 0)) 
    ) 
  ) ;_ end of cond 
) 
;;;---------------------------------------------- 
(defun ru-get-entsel-by-type 
                             (message     msg_err_types 
                              list_types  no_locked   / 
                              ent         ent_type    bad_type 
                              locked      do 
                             ) 
                             ;| 
????? ????????? ? ??????????? ?????? ?????????? ???? ? ????? ?? ?? ????????????? ???? 
? ???????????? ?????? ? ? ??????????? ESC 
?????????: 
message - ????????? 
msg_err_types - ????????? ? ???????? ???? ???? ????? ?????? ?????, ????? "" 
list_types - ?????? ????????? ????? ??? NIL 
no_locked  - ????? ?? ?? ????????????? ???? -T, ?? ????? -NIL 
 (ru-get-entsel-by-type "?????? ??????? ??? ?????????" "??? ?? ??????? ? ?? ?????????" (list "LINE" "LWPOLYLINE") T) 
 (ru-get-entsel-by-type "?????? ?????? ?? ??????????????? ????" "" nil  T) 
 (ru-get-entsel-by-type "?????? ??????? ??? ????????? - ????? ?? ?????????????" "??? ?? ??????? ? ?? ?????????" (list "LINE" "LWPOLYLINE") nil) 
?????????? ??? ????????? ? ????? ???????? ??? nil ??? ?????? 
 |; 

  (setq do t) 
  (while do 
    (setq bad_type t 
          locked t 
    ) ;_ end of setq 
    (if (setq ent (ru-get-entsel message)) 
      (progn 
        (setq ent_type (cdr (assoc 0 (entget (car ent))))) 
        (if (and list_types 
                 (not (member ent_type list_types)) 
            ) ;_ end of and 
          (princ (strcat "\nmistace: selected object type '" 
                         ent_type 
                         "'. " 
                         msg_err_types 
                 ) ;_ end of strcat 
          ) ;_ end of princ 
          (setq bad_type nil) 
        ) ;_ end of if 
        (if (and no_locked 
                 (ru-layer-is-lock (cdr (assoc 8 (entget (car ent))))) 
            ) ;_ end of and 
          (princ "\nMistake: Object on locked layer") 
          (setq locked nil) 
        ) ;_ end of if 
        (setq do (or bad_type locked)) 
      ) ;_ end of progn 
      (setq do nil) 
    ) ;_ end of if 
  ) ;_ end of while 
  ent 
) ;_ end of defun 
;;;---------------------------------------------- 
(defun ru-layer-get-ent-data (name code / lst res) 
  ;; ?????????? ?????? ? ????? CODE ??? ???? NAME 
  ;; ???? ???? ?? ?????????? - NIL 
  (if (setq Lst (tblsearch "LAYER" name)) 
    (cdr (assoc code lst)) 
    nil 
  ) ;_ end of if 
) 
;;;---------------------------------------------- 
(defun ru-match-is-bit-in-flag (val flag) 
    ;; (ru-match-bit-list 127)  => (64 32 16 8 4 2 1)  
    ;; (ru-match-is-bit-in-flag  8 127) => T    
    ;; (ru-match-is-bit-in-flag  128 127) => nil    
    (= (logand val flag) val) 
) 
;;;---------------------------------------------- 
(defun ru-layer-is-lock (name / layer_data) 
  ;; (ru-layer-is-lock "0") 
  ;; (ru-layer-is-lock "Layer1") 
  ;;? ?????????????? ???? ?????? ? 
  (if (setq layer_data (ru-layer-get-ent-data name 70)) 
    (ru-match-is-bit-in-flag 4 layer_data) 
    nil 
  ) ;_ end of if 
) 
;;;---------------------------------------------- 
(defun ru-ent-dxf-code-data (dxf_code lst) 
    (cdr (assoc dxf_code lst)) 
  ) ;_ end of defun 
;;;---------------------------------------------- 
(defun ru-ent-mod (ent value bit / ent_list old_dxf new_dxf) 
  (setq ent_list (entget ent) 
        new_dxf  (cons bit 
                       (if (and (= bit 62) (= (type value) 'str)) 
                         (if (= (strcase value) "BYLAYER") 
                           256 
                           0 
                         ) ;_ end of if 
                         value 
                       ) ;_ end of if 
                 ) ;_ end of cons 
  ) ;_ end of setq 
  (if (/= new_dxf (setq old_dxf (assoc bit ent_list))) 
    (progn (entmod (if old_dxf 
                     (subst new_dxf old_dxf ent_list) 
                     (append ent_list (list new_dxf)) 
                   ) ;_ end of if 
           ) ;_ end of entmod 
           (entupd ent) 
           (redraw ent) 
    ) ;_ end of progn 
  ) ;_ end of if 
  ent 
) ;_ end of defun 
;;;---------------------------------------------- 

(defun ru-list-massoc (key alist) 
(mapcar 'cdr (vl-remove-if-not (function (lambda (x) (= key (car x)))) alist)) 
) ;_ end of defun 

;;;---------------------------------------------- 
(defun ru-ent-dxf-code-clear-list (lst list_dxf_codes is_stay_value) 
    (cond 
        ((null lst) NIL) 
        ((/= is_stay_value (= (type (member (caar lst) list_dxf_codes)) 'list)) 
         (ru-ent-dxf-code-clear-list (cdr lst) list_dxf_codes is_stay_value) 
        ) 
        (t (cons (car lst) (ru-ent-dxf-code-clear-list (cdr lst) list_dxf_codes is_stay_value))) 
    ) ;_ end of cond 
) 
;;;---------------------------------------------- 
(defun c:revpoly (/                bulge_list       end_width_list 
                  list_vertex_data num_vertex       num_width 
                  ent_data         ent_name         start_width_list 
                  vertex_count     vertex_list      ent_type 
                 ) 
  (if (setq ent_name 
             (ru-get-entsel-by-type 
               "select polylone, line or spline for revers" 
               "object invalid" 
               (list "LWPOLYLINE" "LINE" "SPLINE") 
               t 
             ) ;_ end of ru-get-entsel-by-type 
      ) ;_ end of setq 
    (progn 
      (setq ent_name (car ent_name) 
            ent_data (entget ent_name) 
            ent_type (ru-ent-dxf-code-data 0 ent_data) 
      ) ;_ end of setq 
      (cond 
        ((= ent_type "SPLINE") 
         ;; For spline revers method 
         (vla-reverse (vlax-ename->vla-object ent_name)) 
        ) 
        ((= ent_type "LINE") 
         ;;For line to exchange ends coord 
         (ru-ent-mod ent_name (cdr (assoc 11 ent_data)) 10) 
         (ru-ent-mod ent_name (cdr (assoc 10 ent_data)) 11) 
        ) 
        ((= ent_type "LWPOLYLINE") 
         (setq 
           vertex_list      (reverse (ru-list-massoc 10 ent_data)) 
           bulge_list       (mapcar 
                              '(lambda (x) (- 0 x)) 
                              (reverse (ru-list-massoc 42 ent_data)) 
                            ) ;_ end of mapcar 
           start_width_list 
                            (ru-list-massoc 40 ent_data) 
           end_width_list 
                            (ru-list-massoc 41 ent_data) 
           vertex_count     (length vertex_list) 
           num_vertex       0 
           num_width        (1- vertex_count) 
         ) ;_ end of setq 
         (repeat vertex_count 
           (setq list_vertex_data 
                  (append 
                    (list (cons 10 (nth num_vertex vertex_list))) 
;;; ------------- This order only ------------------- 
                    (list (cons 41 (nth num_width start_width_list))) 
                    (list (cons 40 (nth num_width end_width_list))) 
;;; ------------- This order only ------------------- 
                    (list (cons 42 (nth num_vertex bulge_list))) 
                    list_vertex_data 
                  ) ;_ end of append 
                 num_vertex 
                  (1+ num_vertex) 
                 num_width (1- num_width) 
           ) ;_ end of setq 
         ) ;_ end of repeat 
         ;| 
????? ?? ???????? ?? ??????????? ?? ??????????, ???????? ? ??????, ??????? 
????? ?????????????? ? ???????, ??????? ?????? ?????? ?? ?????????, ?????? ? bulge 
? ???????????? ???????? 
|; 
         (entmod (append (ru-ent-dxf-code-clear-list 
                           ent_data 
                           (list 10 40 41 42) 
                           nil 
                         ) ;_ end of ru-ent-dxf-code-clear-list 
                         (reverse list_vertex_data) 
                 ) ;_ end of append 
         ) ;_ end of entmod 
         (entupd ent_name) 
         (redraw ent_name) 
        ) ;_ end of cond 
      ) ;_ end of cond 
    ) ;_ end of progn 
  ) ;_ end of if 
  (princ) 
) ;_ end of defun

Не помню кто автор, кажется кто-то из наших, и ему спасибо. Вызывается Revpoly