[sergeyVostok]

Здравствуйте ) Подскажите пожалуйста, такая проблема. Рисую прямоугольник по точкам, командой _line. В отладке могу наблюдать координаты этих точек, все нормально. Но при при изменении размеров экрана колесом мыши до определенной величины (когда все мелко) вертикальные стороны рисуются точками и выводится сообщение о том, что создана линия нулевой длины. Соответственно вертикальные стороны вырождаются в точки и прямоугольник вырождается в линию. Вертикальные стороны не равны тем значениям, которые указаны в координатах. При увеличении изображения на экране, все строится нормально. В чем может быть дело ? Голову себе уже сломал.
Померил линейкой сторону прямоугольника при которой программа еще отрисовывает его корректно. Размер прямоугольника 40х25. Так вот, при уменьшении экрана так, что высота 25 мм равна 7 мм (померил линейкой по экрану) еще фигура строится. Если крутануть колесо и уменьшить экран на одну позицию, уже не строится. Текст программы простейший:

Код:

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

 (DEFUN c:excToACad (/)
(setq a 40)
(setq b 60)
(setq p1 (getpoint «\nУкажите базовую точку:»))
(setq k1 (mapcar ‘+ p1 (list a 0)))
(setq k2 (mapcar ‘- k1 (list 0 b)))
(setq k3 (mapcar ‘- k2 (list a 0)))
;;;(command «_line» p1 k1 k2 k3 p1 «»)
(command «_line» p1 k1 «»)
(command «_line» k1 k2 «»)
(command «_line» k2 k3 «»)
(command «_line» k3 p1 «»)
)

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

Грабли номер раз

[Семёныч]

Про грабли хорошо напоминать тем, кто на них наступает не первый раз. Но если человек сталкивается с описанной проблемой впервые, то надо бы сразу пояснить,
что в случае очень маленьких (визуально) расстояний между точками при программных построениях включенная объектная привязка может исказить картину. Самый простой способ
отключения объектных привязок - нажать клавишу F3. Далее автору темы надо почитать всё про объектную привязку.

[ShaggyDoc]

Сообщение от Семёныч Самый простой способ отключения объектных привязок - нажать клавишу F3. Далее автору темы надо почитать всё про объектную привязку.

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

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

[Семёныч]

Сообщение от ShaggyDoc Совет неверный. Пользователю как раз не надо советовать отключать объектную привязку клавишей, возможно она как раз ему нужна для точного указания точек. А вот программист должен позаботиться о том, чтобы перед рисованием, когда координаты уже известны, привязку отключить программно, а после рисования вернуть прежние настройки.

Заявление демагогическое и волюнтаристское. ShaggyDoc, возможно, и является программистом (или считает себя таковым), но автор темы - скорее пользователь, чем программист.
Для сведения ShaggyDoc: любой пользователь и даже программист должен знать штатные инструменты AutoCAD, в том числе должен уметь использовать функциональные клавиши. Это вам не лезгинку плясать не двойной щелчок по колёсику мыши. Если господин ShaggyDoc такой опытный программист (или считает себя таковым), то почему тогда он не расписал возможные проблемы при аварийном завершении программы (например, при нажатии клавиши Esc до завершения программы) после программного отключения привязок? Почему он не упомянул, что переменные в программе автора темы оказываются глобальными? Почему он, наконец, не попенял автору темы за отсутствие в конце программы выражения (princ) для тихого завершения программы? Сам-то ShaggyDoc, видимо, не считает себя пользователем и никогда не нажимает никакие функциональные клавиши, ведь он же ПРОГРАММИСТ (или считает себя таковым).
Offtop: Гордыня заела.

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

Семёныч, все уже давно существует:
http://autolisp.ru/2016/12/06/undomarks/
http://autolisp.ru/2009/09/13/error-catch/
P.S. ShaggyDoc - один из авторов "САПР на базе AutoCAD" (ну так, к слову)

[Сергей812]

Offtop:

Сообщение от Кулик Алексей aka kpblc ShaggyDoc - один из авторов "САПР на базе AutoCAD" (ну так, к слову)

И настольной книги многих лисповцев - "AutoLISP и Visual LISP в среде AutoCAD", насколько я понимаю)

[CalcProg]

САПР на базе АutuCAD - как это делается. С.Зуев. Н. Полещук. там есть ответ на твой вопрос. На станице 248.
Offtop:
когда то давно купил эту книгу. но вот сама сапр, что была на диске так и не установилась.
пробовал её устанавливать на разных компах с разными системами и разными автокадами.
отсюда вопрос у кого нибудь, эта САПР работала?

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

Offtop:

Сообщение от Сергей812 AutoLISP и Visual LISP в среде AutoCAD

Это от Полещука

[sergeyVostok]

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

Спасибо за понимание !
Думаю все таки, что я программист ) но не по части Lisp'а. Больше по Embeded system (микроконтроллеры). Немножко Делфей, для обмена с приборами. Интерфейсы и прочая лабуда.
Но Lisp' ом заинтересовался, решив заточить под себя черчение электрических схем. Знаю, что по любому уже есть наработки по этой теме. Да и есть наш заточенный NanoCAD. Но я, не по собственной воле, ограничен Автокадом.
Поэтому решил замутить черчение разъемов и микросхем путем чтения данных о наименовании выводов, их функционального назначения, нумерации контактов из таблицы Excel или файла с расширением csv. После подсчета количества контактов, определяем габарит микросхемы на чертеже и вычерчиваем ее со всем текстом внутри.
Про глобальные переменные знаю )))))
Парсинг файла уже замутил, но вот споткнулся о грабли, но я не знал что это грабли )))
Поэтому спасибо всем за оперативность, за ссылки - отличный форум.

[Сергей812]

Сообщение от sergeyVostok Парсинг файла уже замутил, но вот споткнулся о грабли, но я не знал что это грабли )))

ещё ваши грабли - что вместо работы с объектной моделью акада и БД самого чертежа (неважно, на каком языке) используете командные методы)

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

Сергей812, лисп тем и хорош - для начала работы можно просто имитировать ввод в ком.строку. Это потом уже начинается понимание, что не все так просто

[Сергей812]

Сообщение от Кулик Алексей aka kpblc для начала работы можно просто имитировать ввод в ком.строку. Это потом уже начинается понимание, что не все так просто

ну поскольку у ТС уже есть определенный опыт в программировании - то лучше не привыкать изначально к командному "стилю", имхо)

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

Offtop: Сергей812, не поверишь, но я начинал именно с этого )))

[trushev]

Сообщение от Кулик Алексей aka kpblc я начинал именно с этого

Offtop: В конце прошлого тысячелетия иных путей не было. Разве что пакет.
Если уважаемый полковник найдет время с удовольствием почитаю о тех временах в ностальгии.

[trir]

Из Delphi можно достучатся до AutoCAD'а через COM. А ещё можно использовать NET API и VS

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

И при чем тут это?

[sergeyVostok]

Сообщение от trir Из Delphi можно достучатся до AutoCAD'а через COM. А ещё можно использовать NET API и VS

Казалось бы не по теме )) НО !!! Я же замутил автоматизацию. И с этими мыслями, дабы не плодить темы, зашел сюда пару строк чиркануть. А тут мои мысли уже угадывают )
Хотел вот про что прознать. В принципе задумка у меня была такая: " а как чертить, не чертя ? " В ГОСТах ведь уже оговорено что да как чертить. Например, если взять разъем или микросхему. По сути это таблица с надписями. То есть её можно начертить не чертя, а лишь указав в диалоговом режиме количество выводов и заполнив графы наименований. Сейчас я это сделал путем чтения файла *csv.
А на будущее, как лучше подойти к реализации диалогового режима ? Например, я вытаскиваю на поле заготовку, клацаю на нее двойным щелчком, вылазит таблица (она может быть уже на Delphi реализована), заполняем графы, жмем OKей'на и разъем вычерчивается с заполненными графами, подогнанными по размерам надписей и т.д. На диалогах DCL я так понял тоже далеко не уедешь. Тем более тут еще бы прикрутить БД (которая может быть написана на чем-то третьем) из которой я мог бы выбирать тип, например, резистора, его номинал, чтобы в дальнейшем использовать это в спецификации. AUTOLISP тоже не очень удобен в программировании, если речь идет не о черчении. Например с массивами пришлось выворачиваться, что не очень удобно. Элемент в списке не перезаписать, как в обычном массиве. В Делфях и СИ намного легче выполнять такие задачи, понятно там другие задачи. А еще есть задача и по Базе Данных. Т.е. задача черчения делиться на логическую часть, на отрисовку и Базу Данных. Вот какими средствами это все в комплексе лучше замутить ? Конечно, лучше взять NanoCAD Electrical и не мучиться, но все же интересно, для саморазвития так сказать. Про COM и Delphi взял на заметку. NET API и VS для меня пока что-то непонятное, но тоже взял на заметку. Вообще может тут и AUTOCAD не нужен ? )))) Но писать свой движок для работы с примитивами наверно задача гораздо более сложная. В общем какие варианты комбинаций средств разработки и обмена информацией между модулями можете предложить еще ? P.S. Насколько разными путями можно решить задачу догадываюсь ) По сути это создание своего продукта. Но таскать туда-сюда буквы и линии на чертеже как-то не доставляет уже. Даже динамические блоки полностью не избавляют от обезьянних операций.

[Сергей812]

Почитайте про Net Api в AutoCAD)

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

Сообщение от sergeyVostok На диалогах DCL я так понял тоже далеко не уедешь

Можно, и нередко их хватает.

Сообщение от sergeyVostok Тем более тут еще бы прикрутить БД (которая может быть написана на чем-то третьем) из которой я мог бы выбирать...

Ну и в чем проблема? Если использовать lisp, то поднимаешь коннект к БД, потом RecordSet и выполняй свои запросы - хоть так, хоть этак.

Сообщение от sergeyVostok Элемент в списке не перезаписать

Че ета? subst в первую очередь - и понеслась.