Автоматический перенос размеров на слой размеры. Break макро

Piton · 01.03.2005, 12:58

Подскажите макрос на кнопку чтоб команда break разрывала в двух указанных точках (First point, second break point). ACAD2005
---
Добавлено (спасибо VVA): Рабочие варианты
#25
#190
#272
#273

Ingpro · 02.05.2024, 19:47

Цитата:

Сообщение от Кулик Алексей aka kpblc

Можно, наверное. Но а) мне лениво; б) для Ingpro будет неплохой тренировкой

Т.е. я в 2015 могу не тренироваться...

Кулик Алексей aka kpblc · 02.05.2024, 20:10

Ну согласен, в глобальную переменную можно будет много всякого напихать

Заодно и поиграться с subst / cons / append
Offtop: Господи, как же в лиспе под акад все просто по сравнению с шарпом!

koMon · 02.05.2024, 21:39

Ingpro,
можно просто отслеживать последний созданный командно примитив и переназначать ему слой без всяких предварительных слоевых фигли-мигли)

Код:

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

 
;****************************************************************************************************************

(if (/= 'vlr-command-reactor  (type command_ended_reactor))
	(setq command_ended_reactor (vlr-command-reactor nil '((:vlr-commandended . command_ended))))
)

;****************************************************************************************************************

(defun command_ended (reactor_object parameter_list / dim_layer dim_dxf)
	(setq dim_Layer "Dimension")
	(if (wcmatch (cdr (assoc 0 (setq dim_dxf (entget (entlast))))) "*DIMENSION*")
			(entmod (subst (cons 8 dim_Layer) (assoc 8 dim_dxf) dim_dxf))
	)
)

;****************************************************************************************************************

Ingpro · 03.05.2024, 09:34

Цитата:

Сообщение от koMon

можно просто отслеживать последний созданный командно примитив и переназначать ему слой без всяких предварительных слоевых фигли-мигли)

По аналогии можно добавить и для линий, штриховок и т.д.?

doctorraz · 03.05.2024, 13:01

вдруг кто то не видел
https://lee-mac.com/layerdirector.html

Ingpro · 03.05.2024, 14:59

Цитата:

Сообщение от doctorraz

вдруг кто то не видел
https://lee-mac.com/layerdirector.html

Тоже хороший реактор, но при использовании двух реакторов lee-mac, один глушит другой, т.е. если активен layerdirector, то MTEditReactorV1-1 нужно запускать принудительно (и наоборот), поэтому пришлось отказаться в пользу MTEditReactorV1-1, а реактор слоёв из #25 дружит с MTEditReactorV1-1.

Сергей812 · 03.05.2024, 19:54

Цитата:

Сообщение от Ingpro

MTEditReactorV1-1 нужно запускать принудительно (и наоборот), поэтому пришлось отказаться в пользу MTEditReactorV1-1

а хоткей Ctrl+А чем не подходит?

Ingpro · 03.05.2024, 19:56

Цитата:

Сообщение от Сергей812

а хоткей Ctrl+А чем не подходит?

Это к чему?
Из справки:
Ctrl+A Выбор всех объектов на чертеже, которые не являются заблокированными или замороженными
Я.т.д. реакторы должны работать без всяких дополнительных манипуляций...

Кулик Алексей aka kpblc · 03.05.2024, 20:04

Цитата:

Сообщение от Ingpro

Я.т.д. реакторы должны работать без всяких дополнительных манипуляций...

Ну, если ты их не сносишь все и чохом - то да, должны.

Сергей812 · 03.05.2024, 20:17

Цитата:

Сообщение от Ingpro

Это к чему?

ну читаю описание к MTEditReactorV1-1: автоматическое выделение всего содержимого мультитекста двойным кликом, да и в описании автор пишет - что пытался изначально через Ctrl+A сделать, но что-то не срослось. Т.е. этот остронеобходимый реактор заменяет движение руки с "вилкой" пальцев на клавиши Ctrl+A двойным кликом мышью. Может еще на Esc реактор навесить, например?)

koMon · 05.05.2024, 15:17

Цитата:

Сообщение от Ingpro

По аналогии можно добавить и для линий, штриховок и т.д.?

почему нет?

Ingpro · 13.05.2024, 11:58

Код:

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

 ;;; Автор идеи Kenny Ramage, Эдуард, Torino, он же Кочетков Андрей 
;;; Доработка Владимир Азарко (VVA)
;;; Опубликовано http://forum.dwg.ru/showpost.php?p=58664&postcount=25
;;;Автоматический перенос размеров на слой "размеры" 
;;;и заливки на слой "заливка" 
;;;Просто добавь этот файл в автозагрузку 
(vl-load-com) 
(if *vlr-cmd*
  (progn
    (setq *vlr-cmd* nil)
    (vlr-remove-all :vlr-command-reactor)
    ) ;_ end of progn
  ) ;_ end of if
(setq *OldLayer* (getvar "CLAYER")) 
(vl-cmdf "_layer" "_make" "Размеры" "_color" 151 "" "") ;_Создаем слой размеры и задаем цвет 151 ... 
(vl-cmdf "_layer" "_make" "Штриховка" "_color" 5 "" "") ;_Создаем слой штриховка и задаем цвет 5 
(vl-cmdf "_layer" "_make" "Текст" "_color" 6 "" "")     ;_Создаем слой текст и задаем цвет 6
(vl-cmdf "_layer" "_make" "Таблицы" "_color" 6 "" "")   ;_Создаем слой таблицы и задаем цвет 6
(vl-cmdf "_layer" "_make" "Выноски" "_color" 6 "" "")   ;_Создаем слой выноски и задаем цвет 6
(setvar "clayer" *OldLayer*) 
(setq *OldLayer* nil) 
;;;;;;По аналогии добавить создание своего слоя 
;;; ... 
;;;;;; 
;;;;;;------------------------------------------------------------- 

(if (not *vlr-cmd*)
  (setq	*vlr-cmd* (vlr-command-reactor "cmd"
		    '((:vlr-commandwillstart . cmd-start)
		      (:vlr-commandended . cmd-end)
		      (:vlr-commandcancelled . cmd-end)
		      (:vlr-commandfailed . cmd-end)))))
;;;;;;------------------------------------------------------------- 
(defun cmd-start (calling-reactor startcommandInfo / thecommandstart) 
   (setq thecommandstart (nth 0 startcommandInfo))
  (if (null *OldLayer*)(setq *OldLayer* (getvar "CLAYER")))
  (cond 
 ;;;_Реакция на начало команды DIM* (DIMALIGNED DIMLINEAR и все что начинается с DIM)    
    ((wcmatch thecommandstart "DIM*")  ;_Если выполняется команда DIM* 
     (setvar "clayer" "размеры")       ;_Слой размеры должен быть создан выше (vl-cmdf "_layer" ... 
    ) 
 ;;; Конец реакции на DIM*    
    ((wcmatch thecommandstart "*HATCH*") ;_Если выполняется команда *HATCH* 
     (setvar "clayer" "штриховка") 
    ) 
    ((wcmatch thecommandstart "*TEXT") ;_Если выполняется команда *TEXT (TEXT DTEXT) 
     (setvar "clayer" "Текст") 
    )
    ((wcmatch thecommandstart "*TABLE") ;_Если выполняется команда *TABLE
     (setvar "clayer" "Таблицы") 
    )
    ((wcmatch thecommandstart "*LEADER") ;_Если выполняется команда *QLEADER MLEADER
     (setvar "clayer" "Выноски") 
    )
    (t (setq *OldLayer* nil)) ;;_Если не наша команда, чистим список текущих слоев
;;;См http://forum.dwg.ru/showpost.php?p=318806&postcount=139
;;;и http://forum.dwg.ru/showpost.php?p=318806&postcount=143
    )
  (princ)) 
 ;;;------------------------------------------------------------- 
(defun cmd-end (calling-reactor cmd / cmd_name)
(setq cmd_name (strcase (car cmd)))
(if (or
      (wcmatch cmd_name "*HATCH*") ;_Если выполняется команда DIM*
      (wcmatch cmd_name "DIM*")    ;_Если выполняется команда *HATCH*
      (wcmatch cmd_name "*TEXT")   ;_Если выполняется команда *TEXT (TEXT DTEXT)
      (wcmatch cmd_name "*TABLE")   ;_Если выполняется команда ТАБЛИЦА
      (wcmatch cmd_name "*LEADER")   ;_Если выполняется команда *QLEADER или MLEADER
      )
  (progn
    (if *OldLayer* (setvar "clayer" *OldLayer*)) 
    (setq *OldLayer* nil)
    ))
 (princ))

При использовании этого кода в командной строке появляется запись при каждом открытии чертежа:
_layer _make Размеры _color 151 _layer _make Штриховка _color 5 _layer _make Текст _color 6 _layer _make Таблицы _color 6 _layer _make Выноски _color 6

А это можно как-то отключить?

Кулик Алексей aka kpblc · 13.05.2024, 12:02

Можно. Либо поигравшись с переменными типа cmdecho / menuecho / nomutt, либо переделав создание слоев на некомандные методы.
Мне вот интересно, а никто не пробовал сначала в чистый файл загрузить лисп, потом выполнить очистку файла - тот же _.purge, и после этого уже начать ставить размеры? Я не просто так писал код в #353

Сергей812 · 13.05.2024, 12:21

ну если некоторые так любят чтобы все прямо автоматически-автоматически работало через те же реакторы, но при этом собирают зоопарк из чужих кодов - то вообще не лишним каждый раз проверить слой - включен ли, не заблокирован и т.д, имхо)

Ingpro · 13.05.2024, 12:30

Цитата:

Сообщение от Кулик Алексей aka kpblc

Мне вот интересно, а никто не пробовал сначала в чистый файл загрузить лисп, потом выполнить очистку файла - тот же _.purge, и после этого уже начать ставить размеры? Я не просто так писал код в #353

По-моему, одинаково работают коды из #25 и #353? Слои создаются при вводе команд. Или я чего-то не понимаю?

Кулик Алексей aka kpblc · 13.05.2024, 12:33

Цитата:

Сообщение от Ingpro

По-моему, одинаково работают коды из #25 и #353? Слои создаются при вводе команд. Или я чего-то не понимаю?

Ну реально попробуй провернуть ту последовательность, которую я предложил. Только используй свои коды.

----- добавлено через 22 сек. -----

Цитата:

Сообщение от Сергей812

ну если некоторые так любят чтобы все прямо автоматически-автоматически работало через те же реакторы, но при этом собирают зоопарк из чужих кодов - то вообще не лишним каждый раз проверить слой - включен ли, не заблокирован и т.д, имхо)

М-да, про эти тонкости я как бы не сильно подумал, грешен...

Ingpro · 13.05.2024, 13:41

Цитата:

Сообщение от Кулик Алексей aka kpblc

сначала в чистый файл загрузить лисп, потом выполнить очистку файла - тот же _.purge, и после этого уже начать ставить размеры

Реально так и делаю: открыть-DWG-PURGE-команда Отрезок-слой Отрезок и т.д.
В командной строке при открытии файла слои не перечисляются для кода #353... Это плюс, спасибо, Алексей!

Кулик Алексей aka kpblc · 13.05.2024, 13:55

Ты меня не услышал. Делай прямо по шагам:

Открой новый пустой файл
Удали вообще все, включая пространства листов, установи текущий слой "0"
Загрузи свой код
Выполни очистку файла
Начни рисовать отрезок
Проверь, на каком слое будет отрезок

Ingpro · 13.05.2024, 14:05

Цитата:

Сообщение от Кулик Алексей aka kpblc

Ты меня не услышал. Делай прямо по шагам:

Делаю... Результат такой же, как #377... А на каком слое он должен быть, если запущен реактор?..

Кулик Алексей aka kpblc · 13.05.2024, 16:03

А в каком слое он должен быть, если слоя "Отрезок" в файле нет? Я тебе третий раз повторяю - выполни очистку файла прежде чем вызывать любую из обрабатываемых команд!

01.03.2005, 12:58
Автоматический перенос размеров на слой размеры. Break макро Piton Инженер строитель Москва Регистрация: 24.02.2005 Сообщений: 396 Подскажите макрос на кнопку чтоб команда break разрывала в двух указанных точках (First point, second break point). ACAD2005 --- Добавлено (спасибо VVA): Рабочие варианты #25 #190 #272 #273 Последний раз редактировалось Кулик Алексей aka kpblc, 16.11.2012 в 13:42.
Просмотров: 187585