Jump to content

Адаптация Lisp под Nanocad


aerohost
 Share

Recommended Posts

** Save Path not Valid **

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

C:\Users\******\AppData\Roaming\Nanosoft\nanoCAD x64 22.0\Support
--> DCL File could not be Written.

Не разбирался, откуда он что берёт, заменил путь руками на D:\LDOrder. Папку надо предварительно создать.

Новая ошибка:

Спойлер

1991538478_.png.a3d0cbbe7a69ad51d874c1b79daefd51.png

А это уже другая песня - тут про окно, я не шарю.

LDOrderV1-2-папка.lsp

  • Like 2
Link to comment
Share on other sites

еще один бомбический лисп от LeeMac Layer Director

реалтайм раскидывает примитивы по слоям, очень  выручал в оригинале када

в нано к сожалению не работает

http://lee-mac.com/layerdirector.html

 

 

LayerDirector.gif

Edited by doctorraz
Link to comment
Share on other sites

22 минуты назад, doctorraz сказал:

еще один бомбический лисп от

Ну блин, бодались с ним в автокде 

 

  • Like 1
  • Haha 1
Link to comment
Share on other sites

8 минут назад, MCAD сказал:

Ну блин, бодались с ним в автокде 

месье знает толк.... biglol.gif.12ca819474b5094dc48dbcbf0b8dc5c7.gif

Спойлер

("[DM]TEXT,TEXT,т[235ц]" "ЭС_ТЕКСТ" "Текст" 9 "Continuous" -3 1 nil ) 
("*VPORT*" "CS_UNPLOTTED" "Непечатный VPORT" 104 "Continuous" -3 0 nil )
("MLINE" "ЭС_ЗДАНИЯ" "Здания" 4 "Continuous" -3 1 nil )
("LINE,RECTANGLE,CIRCLE,мрс,мрн" "ЭС_ЭЛЕКТРООБОРУДОВАНИЕ" "Электрика" 40 "Continuous" -3 1 nil )

ну и бонусом раскидывает хрефы

'("ГП_ЭС_" "" "XRef Layer" 60 "Continuous" -3 1 nil )

 

  • Like 2
Link to comment
Share on other sites

7 часов назад, aerohost сказал:

Коллеги, кто сможешь накрутить под Ncad ? Спасибо ! 

 

http://lee-mac.com/layerdraworder.html

"Накрутила" год назад.

NC21.1  - исправлен баг, можно выбрать несколько слоев сразу и перенести в правую часть диалога.
Остальное работает в 20.3.
По разному интерпретируется высота для dcl - см. вариант LDOrderV1-2_Nc20.3.lsp.

Для NC 20.3, NC 21.0 задаю
"arrowbox : image_button { width = 4.17; fixed_width = true; fixed_height = true; color = dialog_background; }" ; height = 5
"arrowimg : image { width = 4.17; fixed_width = true; fixed_height = true; color = dialog_background; }" ; height = 4
" : arrowimg { key = \"bottom\"; height = 2; }"
В NC21.1 задаю для dcl - см. вариант LDOrderV1-2_Nc21.1.lsp
"arrowbox : image_button { width = 4.17; fixed_width = true; fixed_height = true; height = 5; color = dialog_background; }"
"arrowimg : image { width = 4.17; fixed_width = true; fixed_height = true; height = 4; color = dialog_background; }"
" : arrowimg { key = \"bottom\"; }"

На Nc 22.0 оба вар. работают

LDOrderV1-2_Nc20.3.lsp LDOrderV1-2_Nc21.1.lsp

Edited by lidia.antipina.ru
  • Like 1
  • Thanks 4
Link to comment
Share on other sites

Posted (edited)
В 29.07.2022 в 21:41, lidia.antipina.ru сказал:

"Накрутила" год назад.

NC21.1  - исправлен баг, можно выбрать несколько слоев сразу и перенести в правую часть диалога.
Остальное работает в 20.3.
По разному интерпретируется высота для dcl - см. вариант LDOrderV1-2_Nc20.3.lsp.

Для NC 20.3, NC 21.0 задаю
"arrowbox : image_button { width = 4.17; fixed_width = true; fixed_height = true; color = dialog_background; }" ; height = 5
"arrowimg : image { width = 4.17; fixed_width = true; fixed_height = true; color = dialog_background; }" ; height = 4
" : arrowimg { key = \"bottom\"; height = 2; }"
В NC21.1 задаю для dcl - см. вариант LDOrderV1-2_Nc21.1.lsp
"arrowbox : image_button { width = 4.17; fixed_width = true; fixed_height = true; height = 5; color = dialog_background; }"
"arrowimg : image { width = 4.17; fixed_width = true; fixed_height = true; height = 4; color = dialog_background; }"
" : arrowimg { key = \"bottom\"; }"

На Nc 22.0 оба вар. работают

LDOrderV1-2_Nc20.3.lsp 29 \u043a\u0411 · 4 загрузки LDOrderV1-2_Nc21.1.lsp 29 \u043a\u0411 · 4 загрузки

Спасибо за труд.А можно как то запомнить настройку прорисовки слоев ? 

 

Ps. А у вас может ещё есть какие то наработки от данного деятеля ?

Edited by aerohost
Link to comment
Share on other sites

Только что, aerohost сказал:

от данного деятеля ?

Это про LeeMac?

Однако((((

  • Haha 3
Link to comment
Share on other sites

58 минут назад, aerohost сказал:

А можно как то запомнить настройку прорисовки слоев ? 

Можно сохранить скриншот настроенного диалогового окна, использовать в нем фильтр.

 

59 минут назад, aerohost сказал:

Ps. А у вас может ещё есть какие то наработки от данного деятеля ?

У LeeMac очень много на его сайте, что конкретно требуется?

Link to comment
Share on other sites

В 01.08.2022 в 20:28, lidia.antipina.ru сказал:

Можно сохранить скриншот настроенного диалогового окна, использовать в нем фильтр.

Можно поподробнее 

Link to comment
Share on other sites

Имела ввиду скриншот настройки слоев в AutoCAD, если нельзя параллельно открыть с наной для настройки фильтров в нане. Что можно сделать со слоями в нане - см. ее справку:

image.thumb.png.803fc617b7a00d66f5df6d3882773a3f.png

Link to comment
Share on other sites

В 17.08.2022 в 22:38, lidia.antipina.ru сказал:

См. адаптированные https://forum.nanocad.ru/index.php?/files/category/1-fayly/

 

Спасибо. А в какой части кода можно изменить высоту шрифта? Очень уж большой получается.

Link to comment
Share on other sites

  • 2 months later...

Есть лисп Align_den.lsp для автокада для построения аксонометрии. В автокаде все работает, а в нанокаде не хочет строить аксонометрию, только поворачивает линии. Пытался закомментировать строки  vla-startUndoMark, vla-endUndoMark, но все равно не получилось. 

Можете помочь привести его в рабочее состояние?

Align_den.gif

Align_Den.lsp

Link to comment
Share on other sites

12 часов назад, lidia.antipina.ru сказал:

Примерчик dwg приложите

 

эммм, а что Вы хотите увидеть в dwg? Ну будет там пара линий нарисована, а толку от этого? То как должен работать лисп показано в гифке, как работает в нанокаде показать не могу, не имею возможности записать экран. Пробовал в чистом чертеже нарисовать прямоугольник и сделать из него аксонометрию, а лисп вместо этого просто поворачивал прямоугольник на 45 градусов вокруг базовой точки.  
А сам лисп Align_den приложен был к сообщению.

Я программист не настоящий, поэтому в этом мало что понимаю (вообще ничего :prostite:)

Link to comment
Share on other sites

Внес несколько изменений.

Протестировал на небольших примерах. Почему-то не растягиваются тексты.

 

Основная проблема в том, что очень активно используются функции (vl-cmdf и (command.

А они зачастую имеют разный синтаксис в АС и NC.

Ну и математика очень заковыристая у автора получилась.

Ее расковырять - легче заново алгоритм перестроить.

Возможно, тексты получится обработать, если все команды (vl-cmdf заменить на (command.

Это в виде версии, но часть проблем удалось решить именно такой заменой.

 

Align_Den.lsp

Edited by EdwardSt
  • Like 3
Link to comment
Share on other sites

1 час назад, EdwardSt сказал:

Внес несколько изменений.

Протестировал на небольших примерах. Почему-то не растягиваются тексты.

 

Основная проблема в том, что очень активно используются функции (vl-cmdf и (command.

А они зачастую имеют разный синтаксис в АС и NC.

Ну и математика очень заковыристая у автора получилась.

Ее расковырять - легче заново алгоритм перестроить.

Возможно, тексты получится обработать, если все команды (vl-cmdf заменить на (command.

Это в виде версии, но часть проблем удалось решить именно такой заменой.

 

Align_Den.lsp 11 \u043a\u0411 · 1 загрузка

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

:stena:

Может Вы не окончательный вариант прикрепили?

aks.jpg

Edited by SibLis
Link to comment
Share on other sites

11 минут назад, SibLis сказал:

По идее должно было получиться то что по центру, а получилось как справа. Причем правый прямоугольник ромб вставился как блок. Т.е. он что-то сделал и повернул на 45 градусов, но не так. А с текстом он вообще ничего не делал.

В какой версии наны работаете?

Я тестировал для последней.

 

Попутно выяснилось, что, например, в версии 21 бездиалоговая команда "-insert" в принципе работает некорректно при попытке изменить поворот блока (ровно наш случай) и прекращает работу. Возможно, это пофиксили только в текущей версии. Можете приложить скрин командной строки? Возможно, из него станет понятно, что команда именно прервалась.

Спойлер

image.png.2a288478ae51f567a02fb322dc751d74.png

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

 

 

  • Like 2
Link to comment
Share on other sites

9 минут назад, EdwardSt сказал:

В какой версии наны работаете?

Я тестировал для последней.

 

  Должно быть как-то так (Показать контент)

image.png.2a288478ae51f567a02fb322dc751d74.png

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

 

 

ААА. Понятно. Сейчас тестировал в нано 20. На работе могу проверить в нано 22, но это будет только в понедельник. 

Позже отпишусь о результате

  • Like 1
Link to comment
Share on other sites

В 02.11.2022 в 21:40, EdwardSt сказал:

В какой версии наны работаете?

Я тестировал для последней.

 

  Должно быть как-то так (Показать контент)

image.png.2a288478ae51f567a02fb322dc751d74.png

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

 

 

Протестировал в нане 22. Заработало!!!!. Спасибо огромное. :dance::bravo:

  • Like 1
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
 Share

  • Tell a friend

    Love Официальный форум компании Нанософт? Tell a friend!
×
×
  • Create New...