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

Тема создана для размещения вопросов по функционированию lisp-программ под nanoCAD версии от 4.0 и выше.

Просьба размещать либо готовые и гарантированно работающие в nanoCAD lisp-коды, либо, если есть какие-либо вопросы по программированию на lisp, задавать именно их. Любой оффтоп будет удаляться.

[357]

Условное обозначение проема в строительной конструкции (в стене, перекрытии).
Порядок ввода: отметить точку в левом нижнем углу проема, затем в левом верхнем, затем в правом верхнем. В другом порядке рисует неправильно (

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

У меня нет nanoCAD, но я бы попробовал код наподобие:

Код:

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

 (defun c:a2otverstie (/ *error* osmode p1 p2 p3 dlin p4)

  (setq osmode (getvar "osmode"))
  (setvar "osmode" 631)
  (setq p1   (getpoint "\nУкажи точку лево-низ:")
        p2   (getpoint p1 "\nУкажи точку лево-верх:")
        p3   (getpoint p2 "\nУкажи точку право-верх:")
        dlin (min (distance p1 p2) (distance p2 p3))
        dlin (* dlin 0.25)
        p4   (polar p2 (* 1.75 pi) dlin)
        ) ;_ end of setq
  (command "_.solid" "_none" p1 "_none" p2 "_none" p4 "_none" p3 "")
  (setvar "osmode" osmode)
  (princ)
  ) ;_ end of DEFUN

Поскольку я не знаю, что там с отловом ошибок, с определением локальных функций, с обработчиком ошибок и т.п., дальше код улучшать не буду. Хотя вариантов там - море
P.S. Можно в получении p2 заменить getpoint на getcorner (ИМХО) - будет немного нагляднее. Наверное...

[dows]

А чего должен скрипт делать? У меня отрисовал объект Фигура по трем точкам...
В чем полезность?

[yal]

Добрый вечер!
Итак, немного информации о лиспе. Лисп у нас в бете, поэтому нужно относиться несколько снисходительно.
Из известных проблем:
1. appload/autoload временно отключен. (Проблемы с запуском при открытии документа)
2. Конструкция command pause (и в вариациях с аргументами) пока не работает.
3. Не отрабатываются некоторые VLA проперти (ошибка релиза). Поправлено, войдёт в апдейт (см. клуб разработчика).
4. Нет реализации некоторых VLAX функций. Поправлено, войдёт в апдейт. (см. клуб разработчика).
5. Проблемы с совместимостью вызова команд с параметрами - над этим работаем.

[357]

2 Кулик Алексей aka kpblc
Спасибо!
2 dows
Эту фигуру он и должен отрисовать...
Полезность ... конечно же сомнительна )
2 yal
- В составе кода есть строка
(command "_.pline" p2 "_W" (* 0.5 msc) (* 0.5 msc) p4 "")
В автокаде и интелликадах она отрисовывает полилинию толщиной 0,5. В нанокаде эта линия имеет толщину "по слою". Какие изменения в строку надо внести?
- С составе кода есть строка
(command "_.text" "_bl" p7 (* 2.5 msc) 0 txt0)
В автокаде и интелликадах она отрисовывает набранный текст. В нанокаде не отрисовывает ничего. Какие изменения в строку надо внести?
Если вопросы не по адресу - извините

[Makswell]

Сообщение от dows А чего должен скрипт делать? У меня отрисовал объект Фигура по трем точкам... В чем полезность?

Так написано же.

Сообщение от 357 Условное обозначение проема в строительной конструкции (в стене, перекрытии).

Очень полезно. Часто таким пользуюсь.
Впервые увидел в VetCAD++ после чего сам запилил свой аналог на лиспе.

[MCAD]

Сообщение от dows А чего должен скрипт делать? У меня отрисовал объект Фигура по трем точкам... В чем полезность?

Аналогов в СПДС выкладывалось довольно много. Например

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

MCAD, я так понимаю, что хочется обойтись без СПДС

[MCAD]

Кулик Алексей aka kpblc, Да это даже мне понятно :-)) Это был ответ на впрос для Чего это. Плюс к этому могу добавить кучу фенечек, но ты же сочтёшь это рекламой и удалишь.

[357]

Сообщение от Кулик Алексей aka kpblc ... я так понимаю, что хочется обойтись без СПДС

Дело в том, что в нанокаде кроме выносок нет других элементов оформления. А вычерчивать надо и отметки, и линии разрыва и еще многое другое.

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

... а платить за СПДС не хочется. Это понятно.
ИМХО: надо на самом деле создавать "единичный" блок и работать уже с ним. Намного сложнее код получается, но ИМХО - более верный идеологически и намного проще в применении.

[357]

Сообщение от Кулик Алексей aka kpblc надо на самом деле создавать "единичный" блок и работать уже с ним

Согласен полностью! Но для этого надо как минимум научить нанокад качественно работать с блоками )

[dows]

Offtop:

Сообщение от 357 Дело в том, что в нанокаде кроме выносок нет других элементов оформления. А вычерчивать надо и отметки, и линии разрыва и еще многое другое.

Елки! А я не понял, что это обозначение проема! )))) фигура и фигура... зашорен уже :-)

[yal]

Сообщение от 357 (command "_.pline" p2 "_W" (* 0.5 msc) (* 0.5 msc) p4 "") (command "_.text" "_bl" p7 (* 2.5 msc) 0 txt0)

Попробуйте так (command "_.pline" p2 "Ширина" (* 0.5 msc) (* 0.5 msc) p4 "") В будущем поправим.
С текстом сложнее - команду нужно рихтовать. Но можно переписать на VLA-ADDTEXT и VLA-PUT-TEXTSTYLE.

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

yal, так я не понял, ActiveX (точнее, аналоги vl-*, vla-*, vlax-* функций) в nanolisp есть или не совсем?

[yal]

Сообщение от Кулик Алексей aka kpblc yal, так я не понял, ActiveX (точнее, аналоги vl-*, vla-*, vlax-* функций) в nanolisp есть или не совсем?

Есть весь наш ActiveX, который совместим с. Кое что конечно нужно дописать, но в основном есть и работает. Если не считать отвалившегося по дороге vla-put И DCL, кстати есть.

[357]

2 yal
Спасибо, вечером попробую
===========
Попробовал: работает! Спасибо! Теперь бы с текстовыми строками решить...

[gomer]

Сообщение от 357 Надо вырабатывать правила правописания нанолиспов )))

Надо сделать нормальный интерпретатор лиспов

Сообщение от 357 А Вы файлы *.mnl не подгружали?

А свои меню можно уже подгружать?

[357]

В справке написано, что можно файлы *.mnl. При меню ничего не сказано ;-)
Если есть желание реально чем-то помочь - http://forum.dwg.ru/showthread.php?t=85892

[gomer]

Сообщение от 357 В справке написано, что можно файлы *.mnl. При меню ничего не сказано ;-)

можно что? подгружать меню и подгружать лиспы, а *.mnl - это тот же лисп, - разные вещи. Единственное отличие состоит в том, что *.mnl загружается автоматически, если находится в папке одноименного меню, следовательно, если нет меню, то нет и mnl

Если есть желание реально чем-то помочь

А чем помочь? Ну, есть у меня свои лиспы: и отметки там и разрезы и линии разрыва и проемы и еще много чего, что с того... Пока не будет возможности настройки интерфейса (команд _cui, _cuiload) вся эта автоматизация - блеф. Ну не будет рядовой инженер, править файл настройки нанокада, чтоб добавить функцию, написанную только что на коленке, у него нет для этого времени, а может и знаний

[357]

А Вы не думайте о том, что будет делать простой инженер... Просто установите нанокад и откатайте в нем пару-тройку лисп-кодов. Уверяю: сразу появится масса вопросов к разработчикам, о которых они даже и не подозревают. Вот это и будет помощь и нанокаду и пользователям.
Впрочем, Вам ли это объяснять? Вы, как никто другой, знаете, с чего начинается понимание ***кадом лисп-кодов, не раз и не два начинали и заканчивали эту работу. Так примите участие еще раз...

2 yal
Пытался через нанолисп написать в чертеже хоть одну букву - бесполезно! Нанолисп понимает только команду text ... Предложенные ему точка вставки, высота текста, угол поворота, выравнивание он понимать не хочет и требует ввода заново. А формулу завершения ввода текста по CTRL+Enter, понятную нанолиспу, я не знаю. Может быть дадите какие-нибудь рекомендации?

[gomer]

Сообщение от 357 Просто установите нанокад и откатайте в нем пару-тройку лисп-кодов. Уверяю: сразу появится масса вопросов к разработчикам, о которых они даже и не подозревают. Вот это и будет помощь и нанокаду и пользователям.

Не появятся, платный нанокад использовать не собираюсь, по крайней мере пока, а насчет текста, есть же еще entmake и vla-AddText

[Barti]

Всем доброго времени суток! Решил не открывать новую тему, а написать здесь - заказал написание лиспа, который должен был импортировать координаты из текстового файла в виде полилиний в dwg и сразу распихивать их по соответствующим слоям. Лисп сделан, но мне нужно было чтобы он работал и в автокаде и в нанокаде, а в нано что-то работать не хочет. Выкладываю лисп. Скажите, как-то его можно адаптировать под нанокад?

Все, проблема решена

[E-degtyarev]

А может кто подскажет, как залить изображение на IMAGE и IMAGE_BUTTON dcl файла в Nanocad при использовании Lisp? Автокадовская функция SLIDE_IMAGE не катит.
Пример DCL файла:

Код:

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

 imag : dialog {
label = "Рисунок-кнопка";
: image_button {
key = "nad1_110";
height =10;
}
ok_cancel;
}
}

Lisp для загрузки этого DCL:

Код:

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

 (defun c:im ()
(setq dcl (load_dialog "imag.dcl"))
(new_dialog "imag" dcl)
(setq	x (dimx_tile "nad1_110")
y (dimy_tile "nad1_110")
) ;_ конец setq
(start_image "nad1_110")
(slide_image 0 0 x y "РИСУНОК????")
(end_image)
(start_dialog)
(unload_dialog dcl)
) ;_ конец defun

Кто подскажет-что должно быть вместо слова РИСУНОК???? и в каком формате?
Интерпретатор проглатывает функцию (slide_image 0 0 x y "РИСУНОК????") и не ругается, но на кнопке рисунок не отображается. Пробовал подсовывать рисунки типа SLD, BMP, PNG, TIF, GIF, JPG - безрезультатно. Диалоговое окно появляется, а рисунка на кнопке нет.

[gomer]

возможно нанокад просто не может найти слайд

[E-degtyarev]

Сообщение с форума nanocad:
"Функция SLIDE_IMAGE не реализована. Записал в багтрекере Клуба разработчиков пожелание #163. "
Автор ISL

[gomer]

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

[ciril]

Реанимирую тему, чтобы не плодить сущностей.
Пришлось рассматривать нанокад на предмет его пригодности для тестирования, возник вопрос: что у него сейчас с реализацией поддержки лиспа и документацией для разработчиков? Потому что тот chm, который гордо называется ncLisp_ref вызывает неприличный хохот.

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

Насколько я знаю, компилированный lsp (то бишь fas / vlx) поддерживать не планировалось. Со всеми вытекающими.

[ciril]

А те функции лиспа, что поддерживаются, их синтаксис, действия и возвращаемые значения без изменений? Ну или это вообще документировано?

[Сергей812]

Сообщение от ciril А те функции лиспа, что поддерживаются, их синтаксис, действия и возвращаемые значения без изменений? Ну или это вообще документировано?

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

[ciril]

Offtop:

Сообщение от Сергей812 Думаю, что эти вопросы лучше задавать в клуб нано разработчиков.

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

[RrRR]

Сообщение от ciril А те функции лиспа, что поддерживаются, их синтаксис, действия и возвращаемые значения без изменений?

Пользуюсь лиспом под нано. Что-то адаптировал с акада.
По моим ощущениям процентов 80 - 90 сейчас совместимо по лиспу, т.е. можно пользовать любую справку по autolisp держа в голове, конечно, что неходовые функции могут не сработать.

[===AAA===]

Всем привет!

Подскажите, плиз, как в наноКАДе организовать
автозагрузку и автовыполнение lisp-функций при
открытии файла.

Например, в Автокаде /если очень грубо/, можно сделать
файл acad.lsp, вписать в него старт-функцию типа:

(defun-q S::STARTUP (/ a1 a2 a3)
(всякие полезные вещи)
(princ "\nГотово!")
(princ)
)

которая отработает после полной загрузки
чертежа и радостно сообщит об этом.

А в наноКаде как подобное организовать?

[doctorraz]

Сообщение от ===AAA=== в наноКаде как подобное организовать?

через реакторы, на нанофоруме этот вопрос вроде решили

[===AAA===]

А выполнение файлов скриптов (которые "имя_файла.scr") наноКад поддерживает?

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

Вроде да, но расширение там ncs, кажется. ИМХО лучше спрашивать как раз на их форуме, здесь из знатоков, по-моему, только doctorraz.