[Rinat]

На работе создали тип линий для обозначения сварки в чертежах КМД, но при отзеркаливании конструкций линии тоже зеркалятся и приходится выбирать по одной и менять. Так вот есть ли для линий что-либо похожее на MIRRTEXT? :?:

[Лентяй]

Переменной нет, но есть "отзеркаливающий" LISP. Могу поделиться, если узнаю, куда послать.

[Кулик Алексей aka kpblc]

> Лентяй
Сюда выложить, если не жалко.

[Лентяй]

kpblc, Второй раз повторяю, что лентяй на этой доске - Я. Только Я и больше никто! Так что как поменять местами StartPotnt b EndPoint мог бы сооьразить и сам. А Лиспа - нетути, потому как остался в компьютере по месту прежней работы. Щас попробую наваять. Следите за новостями.

[Кулик Алексей aka kpblc]

Сообщение от Лентяй kpblc, Второй раз повторяю, что лентяй на этой доске - Я. Только Я и больше никто! Так что как поменять местами StartPotnt b EndPoint мог бы сооьразить и сам. А Лиспа - нетути, потому как остался в компьютере по месту прежней работы. Щас попробую наваять. Следите за новостями.

Насчет второй: это я сообразил, но: хоцца повесить это дело на лисп (которого я не знаю). Вот и спросил.

[Лентяй]

Ну вот, наваял. Пользуйтесь, пока я жив и благодарите меня за то, что я есть.

Код:

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

(defun C:MirrLine ( / sp ep)
  (prompt "\nSelect Lines To Mirror")
  (ssget)
  (setq adoc (vla-get-ActiveDocument (vlax-get-acad-object))
          ass (vla-get-ActiveSelectionSet adoc))
  (vlax-for lob ass
    (setq sp (vla-get-StartPoint lob)
            ep (vla-get-EndPoint lob))
    (vla-put-StartPoint lob ep)
    (vla-put-EndPoint lob sp));vlax-for
);end

[Кулик Алексей aka kpblc]

[sm204]
Нехило!

[Apelsinov]

>Лентяй, спасибо за хороший пример!

Еще вариант:

Код:

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

;;;реверс для линий и полилиний
(defun c:ARL (/ pline name_pline ass)
  (VL-LOAD-COM)
  (prompt "\nSelect *Lines to reverse:")
  (if (ssget (list (cons 0 "*LINE")))
    (progn
      (setq ass	(vla-get-ActiveSelectionSet
		  (vla-get-ActiveDocument (vlax-get-acad-object))
		)
      )
      (vlax-for	pline ass
	(setq name_pline (vla-get-ObjectName pline))
	(cond ((or (eq "AcDbPolyline" name_pline)
		   (eq "AcDb3dPolyline" name_pline)
	       )
	       (APEL-REVERSE-PLINE pline)
	      )
	      ((eq "AcDbLine" name_pline) (APEL-REVERSE-LINE pline))
	)
      )
    )
  )
  (princ)
)

;;;Аргументы: line - лининия
(defun APEL-REVERSE-LINE (line / sp ep)
  (setq	ep (vla-get-EndPoint line)
	sp (vla-get-StartPoint line)
  )
  (vla-put-StartPoint line ep)
  (vla-put-EndPoint line sp)
)


;;;Аргументы: pline - полининия
(defun APEL-REVERSE-PLINE (pline / safearray-list)
  (vla-put-coordinates
    pline
    (vlax-safearray-fill
      (setq safearray-list
	     (vlax-variant-value (vla-get-coordinates pline))
      )
      (apply 'append
	     (reverse
	       (APEL_SP_PO_N
		 (vlax-safearray->list safearray-list)
		 (cond ((eq "AcDbPolyline"
			    (setq name_pline (vla-get-ObjectName pline))
			)
			2
		       )
		       ((eq "AcDb3dPolyline" name_pline) 3)
		 )
	       )
	     )
      )
    )
  )
)

(DEFUN APEL_SP_PO_N (spis n /)
  (if (and (listp spis)
	   (eq (type n) 'INT)
	   (> n 0)
	   (<= n (length spis))
      )
    (cons
      (APEL_PER_n_IS_SP spis n)
      (APEL_SP_PO_N
	(reverse
	  (APEL_PER_n_IS_SP (reverse spis) (- (length spis) n))
	)
	n
      )
    )
  )
)

;;;Возвращает первые n элементы списка spis
(defun apel_per_N_is_sp	(spis n /)
  (if (and (eq (type n) 'INT) (> n 0) (<= n (length spis)))
    (append (apel_per_N_is_sp spis (1- n))
	    (list (nth (1- n) spis))
    )
  )
)

[Vova]

Мы часто используем длинные сплайны и дуги, выполненные типом линий с буквами. Можно-ли их поворачивать буквами в правильную сторону?