[zenon]

Предлагаю в данной теме выкладывать используемые макрокоманды.
Выкладывать прошу с описанием, что данная макрокоманда выполняет и как. Если можно, то и рисунки к кнопкам соотвественно.

Выкладываю 4 своих макрокоманды.

Улучшенная команда _Break, разрыв в одной точке с повтором по правой клавише мышки.

^C^C^P(defun c:break2 () (vl-cmdf "_break" pause "f" pause "@")(princ));break2;

ps. Макрокоманда не моя. Рисунок со старой кнопки.


Объект Xline строится горизонтально

^C^C_xline;_h;

Объект Xline строится вертикально

^C^C_xline;_v;

Объект Xline строится по объекту (не работает по примитивам блока и arx объектов сторонних навесок на автокад).

*^C^C_xline;_offset;_Through;_nea;\_none;@;;

Макрокоманда зациклена, выход по Esc.
ps. Макрокоманда не моя.


Объект Xline строится по объекту, с поворотом в указанной точке на 90 градусов (не работает по примитивам блока и arx объектов сторонних навесок на автокад)

^C^C_xline;_offset;_Through;_nea;\_none;@;^C^C_rotate;_last;;\90;

ps. Макрокоманда доработана из предыдущей.

Соотвественно и кнопочки
Button.rar

[zenon]

Сообщение от Sta1917 Привет, нужно создавать полилинию с уровнем Z=0, собрал команды в макрос: ^C^C_pline;\\\;_flatten;_Last;;n Как реализовать пользовательский ввод _pline до тех пор пока не будет нажат Enter?

ну зачем так сложно? отключи привязку по Z и все.

[Sta1917]

zenon, оказывается все просто А на будущее как это можно реализовать?

[mamuk]

Sta1917, это можно реализовать примероно так *^C^C_-layer;_m;_Водопровод_подземный;;_CELTYPE;gugk5_122_v;;;_CELWEIGHT;30;;;_pline; т.е. сначала выполнить настройки а потом рисовать полилинию. но в товоем случае это видимо не получится с командой _flatten. да и сдругими командами тоже т.к. отрисовка полилинии трубует завершения по enter.

[konstruktornn]

Всем, доброго времени суток.
У меня просьба, подскажите, что не так сделал
^C^C(setq lr (getvar 'clayer)) (setvar 'clayer "Размеры") _dimlinear; (setvar 'clayer lr).
Работает, но как-то криво.
Хотелось поставить размер в нужный слой, не выбирая объекты, а просто проставляя размеры.

[gomer]

Сообщение от konstruktornn Хотелось поставить размер в нужный слой, не выбирая объекты, а просто проставляя размеры.

Код:

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

^C^C(setq lr (getvar 'clayer));clayer;Размеры;_dimlinear;\\\clayer;!lr;

это раз...
Это два

[konstruktornn]

Спасибо. Понял свою ошибку

[PSG]

Подскажите, пожалуйста, можно ли создать макрос (выбрать на каком-то определенном слое "ИмяСлоя" МТЕХТ (многострочный текст), взорвать его, т.е. преобрабовать МТЕХТ в ТЕХТ, заменить "." на ",") или надо писать LISP-программу.

[zenon]

PSG, _.QSELECT

[PSG]

_QSELECT - быстрый выбор
Я так и делаю,
1. _QSELECT выбираю свойства объекта (МТЕХТ), значение (слой)
2. _ЕXPLODE
3. _QSELECT свойства объекта (ТЕХТ), значение (слой)
4. _FIND (найти "." и заменить на ",")
Хотелось бы, нажал на одну кнопку и все готово

[PSG]

Подскажите, пожалуйста, как в макросе, вот таком -
^C^C(setq a(ssget "_X" '((0 . "MTEXT"))));(sssetfirst nil a);_find;(setq a(ssget "_X" '((0 . "MTEXT"))));(sssetfirst nil a);_explode
сделать, чтобы МТЕХТ выбирался не на всем чертеже, а на текущем слое (ActiveLayer)

[Do$]

(ssget "_X" '((0 . "MTEXT"))) заменить на (ssget "_X" (list '(0 . "MTEXT") (cons 8 (getvar "clayer"))))

[zenon]

PSG, ну и кто мешает загнать сию последовательность в макрос??

[gomer]

Сообщение от zenon ну и кто мешает загнать сию последовательность в макрос??

Сообщение от PSG ^C^C(setq a(ssget "_X" '((0 . "MTEXT"))));(sssetfirst nil a);_find;(setq a(ssget "_X" '((0 . "MTEXT"))));(sssetfirst nil a);_explode

Ну и кто мешает писать на лиспе... это ж не макрос это лисп собственной персоной

Сообщение от zenon PSG, ну и кто мешает загнать сию последовательность в макрос??

_QSELECT не имеет формы для командной строки — только диалоговое окно... Так что без LISP'a не обойтись.

[PSG]

Всем ответившим, большое спасобо. Я только начинаю ... поэтому ...

[PSG]

Еще вопрос -
^C^C(setq a(ssget "_X" (list '(0 . "MTEXT") (cons 8 (getvar "clayer")))));(sssetfirst nil a);_find;(setq a(ssget "_X" (list '(0 . "MTEXT") (cons 8 (getvar "clayer")))));(sssetfirst nil a);_explode
^C^C(setq a(ssget "_X" (list '(0 . "TEXT") (cons 8 (getvar "clayer")))));(sssetfirst nil a);_text-
по отдельности они работают, а если их объединить вместе
^C^C(setq a(ssget "_X" (list '(0 . "MTEXT") (cons 8 (getvar "clayer")))));(sssetfirst nil a);_find;(setq a(ssget "_X" (list '(0 . "MTEXT") (cons 8 (getvar "clayer")))));(sssetfirst nil a);_explode;(setq a(ssget "_X" (list '(0 . "TEXT") (cons 8 (getvar "clayer")))));(sssetfirst nil a);_text-
то не работают. В чем моя ошибка?

[Do$]

А если после explode; поставить ^C^C?

[PSG]

Сообщение от Do$ А если после explode; поставить ^C^C?

Не помогло

Команда:
Команда:
РАСЧЛЕНИТЬ
Выберите объект: (setq a(ssget "_X" (list '(0 . "TEXT") (cons 8 (getvar
"clayer")))))
nil


*Неверный выбор*
Требуется точка или Последний/Все/Группа

Выберите объект:
Команда:

[Do$]

Мне проще как-то так:

Код:

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

 ((lambda (ss / _dwgru-conv-pickset-to-list lst)
   (defun _dwgru-conv-pickset-to-list (value / tab item)
     (repeat (setq tab	nil
		   item	(sslength value)
	     ) ;_ end setq
       (setq tab (cons (ssname value (setq item (1- item))) tab))
     ) ;_ end repeat
   ) ;_ end defun
   (if ss
     (progn
       (setq lst (_dwgru-conv-pickset-to-list ss))
       (mapcar
	 '(lambda (obj)
	    (vla-put-TextString
	      obj
	      (vl-string-translate "." "," (vla-get-TextString obj))
	    ) ;_ end of vla-put-TextString
	  ) ;_ end of lambda
	 (mapcar 'vlax-ename->vla-object lst)
       ) ;_ end of mapcar
       (prompt
	 (strcat
	   "\nВзорвано мультитекстов: "
	   (itoa
	     (length
	       (mapcar '(lambda (ent) (vl-cmdf "_.explode" ent)) lst)
	     ) ;_ end of length
	   ) ;_ end of itoa
	   "шт."
	 ) ;_ end of strcat
       ) ;_ end of prompt
       (sssetfirst
	 nil
	 (ssget "_X" (list '(0 . "TEXT") (cons 8 (getvar "clayer"))))
       ) ;_ end of sssetfirst
     ) ;_ end of progn
   ) ;_ end of if
 ) ;_ end of lambda
  (ssget "_X"
	 (list '(0 . "MTEXT") (cons 8 (getvar "clayer")))
  ) ;_ end of ssget
)
(vl-cmdf "_text-")

[PSG]

Спасибо. Но пока для меня это сложно и не понятно. Сразу же вопрос, а как это загрузить? Что тут набирать в ком.строке?