Повторный разрыв в точке
| Правила | Регистрация | Пользователи | Сообщения за день |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > AutoCAD > Повторный разрыв в точке

Повторный разрыв в точке

Ответ
Поиск в этой теме
Непрочитано 18.04.2007, 16:43 #1
Повторный разрыв в точке
G.A.W.
 
работник по монтажу, то посижу, то полежу!!!
 
г.Владимир
Регистрация: 24.01.2007
Сообщений: 348

Здрасти, коллеги!
Хочу спросить такую штуку или ссылку дайте (сам искал ненаискал).
При многократном повторении одной и той же команды тыкаю ENTER (так уж привык некуда не дется), но при повторении команды, наступив на ENTER, "Разорвать в точке" выплывает команда "Разорвать". Приходится постоянно тянутся крысой за кнопкой. Есть ли способ это исправить. Я в принципе как бы догадываюсь как, но лучше квалифицированный совет бывалых!
Заранее спасибо!!!
Просмотров: 2869
 
Непрочитано 18.04.2007, 16:48
#2
Profan


 
Регистрация: 25.12.2005
Москва
Сообщений: 13,627


Надо специальную программку написать на AutoLisp'е с определением функции в виде (defun C:<Имя функции>...)
Profan вне форума  
 
Непрочитано 18.04.2007, 16:49
#3
Tserber

ГИП + Главный Конструктор
 
Регистрация: 16.10.2005
город-герой Волгоград
Сообщений: 738


лично я пользуюсь анологичной командой из G-TOOLS. экономия времени огромная
__________________
Нет - зарплате в конвертах, да - зарплате в бандеролях. :i-m_so_happy:
Tserber вне форума  
 
Непрочитано 18.04.2007, 16:52
#4
Кочетков Андрей

Java/Kotlin/Go
 
Регистрация: 03.02.2006
Сообщений: 5,786


добавь перед макросом звездочку (*^C^C_break \_f \@ )
в этом случае выполнение команды закольцуется (вместе с параметрами)
для выхода надо будет нажать ESC
Кочетков Андрей вне форума  
 
Автор темы   Непрочитано 18.04.2007, 17:04
#5
G.A.W.

работник по монтажу, то посижу, то полежу!!!
 
Регистрация: 24.01.2007
г.Владимир
Сообщений: 348
<phrase 1=


Я про это тоже в курсе, это кстати в типсе написано. А если нажать ESC а потом ENTER будет команда разорвать, а как сделать чтобы повторилась команда "....в точке"
G.A.W. вне форума  
 
Непрочитано 18.04.2007, 17:10
#6
zenon

Остекляем!!! Алюминим!!!
 
Регистрация: 21.02.2005
Москва
Сообщений: 3,917
<phrase 1=


Тока написать новую команду :roll:
А чем (*^C^C_break \_f \@ ) не устраивает :?:
Я себе в 2006 доработал кнопку и мне за уши хватает :idea:
__________________
Мы можем делать быстро, качественно и недорого, выбирайте любые 2 условия.:search:
zenon вне форума  
 
Непрочитано 18.04.2007, 17:13
#7
Bull

Конструктор по сути (машиностроитель)
 
Регистрация: 10.10.2005
Набережные Челны (это где КамАЗ)
Сообщений: 11,391


Никак! Потому что это одна и та же команда с разными опциями. Как и рисование кругов. Т.е. кнопок несколько, но они в начале запускают одну и ту же команду, потом просто добавляют разные опции автоматом. Меня это тоже достаёт.

Можно, конечно, макрос поменять и в основной кнопке, но тогда не сможешь разорвать в двух точках.
__________________
Век живи, век учись - ...
Bull вне форума  
 
Непрочитано 18.04.2007, 17:22
#8
Кочетков Андрей

Java/Kotlin/Go
 
Регистрация: 03.02.2006
Сообщений: 5,786


http://dwg.ru/forum/viewtopic.php?t=3116

Первая страница
Кочетков Андрей вне форума  
 
Непрочитано 19.04.2007, 09:14
#9
Tserber

ГИП + Главный Конструктор
 
Регистрация: 16.10.2005
город-герой Волгоград
Сообщений: 738


Может вот это поможет
Цитата:
;;;----------------------------------->BREAK1<-------------------------------------;;;
;;; Команда разбиения отрезка на два ;;;
;;; BREAK1.lsp Version 1.1 ;;;
;;; Автор: Протасов Георгий ;;;
;;; Программа разбивает отрезок на два в заданной точке ;;;
;;;--------------------------------------------------------------------------------;;;

(DEFUN BREAK1 ( / en ed1 ed2 pnt
cmdecho-save error-save)
(SETQ error-save *error*
cmdecho-save (GETVAR "CMDECHO")
);SETQ
(DEFUN *error* (msg)
(IF error-save (SETQ *error* error-save))
(IF msg (PRINC "\nВыполнение функции прервано "))
;; Восстановление значений системных переменных
(SETVAR "CMDECHO" cmdecho-save)
(IF (BOUNDP 'en) (REDRAW en 4))
(PRINC)
);DEFUN
(SETVAR "CMDECHO" 0)
(COMMAND "_.undo" "_begin")
(SETQ en (CAR (ENTSEL "\nВыберите обект")))
(WHILE (NULL en)
(SETQ en (CAR (ENTSEL "\nВыберите обект")))
);WHILE
(REDRAW en 3)
(INITGET 1)
(SETQ pnt (GETPOINT "\nВыберите точку"))
(COMMAND "_.break" en pnt pnt)
(COMMAND "_.undo" "_end")
(SETVAR "CMDECHO" cmdecho-save)
(SETQ *error* error-save)
(PRINC)
);DEFUN

(IF (OR (NULL C:BREAK1)
(NOT (LISTP C:BREAK1))
);OR
(DEFUN C:BREAK1 ()
(BREAK1)
);DEFUN
);IF
(PRINC "\nBREAK1.lsp загружен... ")
(PRINC)
__________________
Нет - зарплате в конвертах, да - зарплате в бандеролях. :i-m_so_happy:
Tserber вне форума  
 
Автор темы   Непрочитано 19.04.2007, 09:30
#10
G.A.W.

работник по монтажу, то посижу, то полежу!!!
 
Регистрация: 24.01.2007
г.Владимир
Сообщений: 348
<phrase 1=


Примного благодарен!!!
Спасибо Tserber, то что надо.
G.A.W. вне форума  
 
Непрочитано 19.04.2007, 09:50
#11
zenon

Остекляем!!! Алюминим!!!
 
Регистрация: 21.02.2005
Москва
Сообщений: 3,917
<phrase 1=


переделка из поста
http://dwg.ru/forum/viewtopic.php?t=3116

Разрыв в одной точке с повтором команды
Код:
[Выделить все]
^C^C^P(defun c:break3 () (vl-cmdf "break" pause "f" pause "@" )(princ));break3;
Разрыв в 2х точках с повтором команды
Код:
[Выделить все]
^C^C^P(defun c:break2 () (vl-cmdf "break" pause "f" pause pause)(princ));break2;
:roll:
__________________
Мы можем делать быстро, качественно и недорого, выбирайте любые 2 условия.:search:
zenon вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > AutoCAD > Повторный разрыв в точке