[shinyur]

я внешней программой генерирую лисп файл в котором

Код:

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

 
(defun myfun()
     (command "_line" "1000,0" "1000,1000" "")
     (command "_text" "1000,1000" "50" "" "140.325")
     и т.п. очень много строк...
)(myfun)

вызываю его по кнопочке в автокаде (^C^C(load "c:/my lisp/cool.lsp")) всё работает.

Но если я повторно жму на кнопочку то рисуется уже совсем не тоже что в первый раз. приходится закрывать файл (dwg) и снова открывать. может быть его (lsp) нужно както выгружать? или отменить каким то способом определение функции myfun()?
или это проблема при совместном доступе к файлу, помогите разобраться.

[Дима_]

Скорее всего дело в неотключенных привязках, использовании глобальных переменных и прочих косяках "начального программирования". Новый рисунок привязываеться к старому...

[Profan]

вызываю его по кнопочке в автокаде (^C^C(load "c:/my lisp/cool.lsp")) всё работает.

Странно мне - ведь такой макрос никак не может вызвать функцию myfun на выполнение.

[Елпанов Евгений]

Сообщение от Profan Странно мне - ведь такой макрос никак не может вызвать функцию myfun на выполнение.

обрати внимание на последнюю строку программы, там прописан запуск...

Код:

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

(defun myfun()
     (command "_line" "1000,0" "1000,1000" "")
     (command "_text" "1000,1000" "50" "" "140.325")
     и т.п. очень много строк...
)(myfun)

[Profan]

Да, не обратил внимание. Запуск внутри лиспа.

[shinyur]

И правда, отключение объектных привязок решило проблему.
а первый раз всё срабатывало потому что зум был большой при котором привязки не влияли.
Тогда вопрос:
что нужно дописать в начале lisp файла чтобы отключалась привязка (та которая по F3)?

[Дима_]

Четыре способа избавиться от привязок:
Во всех способах пишу эквивалент команды

Код:

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

(command "_line" '(100 100) '(300 300) "")

Детские (без обид)
1.

Код:

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

(setq privaz (getvar "osmode"));сохранение привязок
(setvar "osmode" 0);отключение

здесь идет код, в процессе которого мы молимся чтоб программа не прервалась - иначе привязки наши будут утеряны навсегда

Код:

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

(setvar "osmode" privaz);восстановление

2. Используя ключевое слово "_none" перед КАЖДОЙ координатой

Код:

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

(command "_line" "_none" '(100 100) "_none" '(300 300) "")

.
Взрослые (незазнаваясь)
3. Посредством DXF

Код:

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

(entmakex '((0 . "line") (10 100 100) (11 300 300)))

.
4. Посредством VLA

Код:

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

(vl-load-com)
(vla-addline (vlax-get-property (vlax-get-property (vlax-get-acad-object) 'ActiveDocument) 'Modelspace)
(vlax-3d-point '(100 100)) (vlax-3d-point '(300 300))
)

ну если рисовать более одной прямой (и не только прямой) имеет смысл сохранить выделенное в переменную (ну например ModelSpace).

[shinyur]

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

[Дима_]

Не забывай молиться

[Profan]

А попросту выломай клавишу Esc.

[Do$]

Сообщение от Дима_ здесь идет код, в процессе которого мы молимся чтоб программа не прервалась - иначе привязки наши будут утеряны навсегда

"Спасаем" привязки:

Код:

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

(defun myfun ( / *error* privaz)

     (defun *error* (msg)
     (if privaz (setvar "osmode" privaz))
     (alert "Работа программы прервана!")
     )
     
     (setq privaz (getvar "osmode"));сохранение привязок
     (setvar "osmode" 0);отключение
     (command "_line" "1000,0" "1000,1000" "")
     (command "_text" "1000,1000" "50" "" "140.325")     
;;;     и т.п. очень много строк...
     (setvar "osmode" privaz);восстановление
)(myfun)

Но там еще эхо комманд будет засорять коммандную строку...

Сообщение от Profan А попросту выломай клавишу Esc.

Не трогай Esc! Этой программе он не враг

[Profan]

Там же "очень много строк..." И поэтому неизвестно, что еще "спасать" надо. Да и в отношении переменных () неясно.

[Дима_]

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