fimas Posted January 11 Report Share Posted January 11 Есть ли липс для отображения отклонения проекта от факта в плане или по высоте? Quote Link to comment Share on other sites More sharing options...
Boroda888 Posted January 11 Report Share Posted January 11 Что имеется в виду? Контроль построения по картам (подложке)? Quote Link to comment Share on other sites More sharing options...
fimas Posted January 11 Author Report Share Posted January 11 1 час назад, Boroda888 сказал: Что имеется в виду? Контроль построения по картам (подложке)? Контроль фактического положения( например сваи) от проектного. чтоб отклонение по осям показывало Quote Link to comment Share on other sites More sharing options...
VitBor Posted January 11 Report Share Posted January 11 (edited) 2 часа назад, Boroda888 сказал: Что имеется в виду? Контроль построения по картам (подложке)? Спойлер Edited January 11 by VitBor Quote Link to comment Share on other sites More sharing options...
Boroda888 Posted January 11 Report Share Posted January 11 Реально мечты )) Это в Геоникс поди Или размеры ставить )) Quote Link to comment Share on other sites More sharing options...
lidia.antipina.ru Posted January 20 Report Share Posted January 20 См. http://www.dxf-workshop.com/ExtraToolsOnRu/ - версия под AutoCAD 2017х64 оказалась с вирусом, под 21-23 извлекла. Требуются исходники .arx, тогда можно посмотреть, какие из утилит имеет смысл адаптировать, но не на лиспе 2 Quote Link to comment Share on other sites More sharing options...
VitBor Posted January 23 Report Share Posted January 23 Имхо, этот лисп можно портировать в нанокад..... Anker.rar Quote Link to comment Share on other sites More sharing options...
lidia.antipina.ru Posted February 1 Report Share Posted February 1 Адаптированый вариант см. https://forum.nanocad.ru/index.php?/files/category/1-fayly/ 5 Quote Link to comment Share on other sites More sharing options...
lidia.antipina.ru Posted February 2 Report Share Posted February 2 (edited) Часто достаточно для адаптации под Nc в старых лиспах в конструкциях (command "PLINE" ... "") (сommand "ARC" ... "") удалить лишний последний "" Edited February 2 by lidia.antipina.ru 2 Quote Link to comment Share on other sites More sharing options...
VitBor Posted July 20 Report Share Posted July 20 (edited) Любезно прошу помочь с лиспом, рандомно изменяющим поворот блоков на 180о относительно базовой точки их вставки, т.е. одноименные блоки, подлежащие повороту, выбираются случайным образом ( или проще- стрелки должны поменять направление хаотично) Стрелка_200723.dwg Edited July 20 by VitBor Quote Link to comment Share on other sites More sharing options...
lidia.antipina.ru Posted July 20 Report Share Posted July 20 (edited) А что, просто выбрать блоки и в свойствах установить поворот 180 не подходит? добавлено через 1 минуту Или надо текущий уг.поворота +180? добавлено через 7 минут А если блок содержит атрибуты и текст, то они должны поворачиваться? Edited July 20 by lidia.antipina.ru Quote Link to comment Share on other sites More sharing options...
lidia.antipina.ru Posted July 20 Report Share Posted July 20 (edited) Или надо просто поменять направление всех/выбраных стрелок на противоположное? Edited July 20 by lidia.antipina.ru Quote Link to comment Share on other sites More sharing options...
VitBor Posted July 20 Report Share Posted July 20 Только что, lidia.antipina.ru сказал: Или надо просто поменять направление всех/выбраных стрелок на противоположное? Лисп должен повернуть блок (блоки) рандомно, т.е. на 0 или на 180 случайным образом. Quote Link to comment Share on other sites More sharing options...
lidia.antipina.ru Posted July 20 Report Share Posted July 20 То есть, выбрать часть блоков и задать им уг. поворота 0 или 180? Так? Тогда зачем лисп? Quote Link to comment Share on other sites More sharing options...
VitBor Posted July 20 Report Share Posted July 20 (edited) Спойлер Поясню, для того, что бы из 200 не выбирать вручную 100 случайных блоков, Edited July 20 by VitBor 1 Quote Link to comment Share on other sites More sharing options...
kpblc Posted July 20 Report Share Posted July 20 Офф: Не знаю как остальных, а лично меня чрезвычайно напрягает слово "случайно". Вопрос не в реализации, а в результате. 1 Quote Link to comment Share on other sites More sharing options...
EdwardSt Posted July 20 Report Share Posted July 20 Еще больше напрягает , что непонятно, что именно должно быть случайным: угол поворота или выбор стрелок? Quote Link to comment Share on other sites More sharing options...
lidia.antipina.ru Posted July 20 Report Share Posted July 20 45 минут назад, VitBor сказал: Показать контент Поясню, для того, что бы из 200 не выбирать вручную 100 случайных блоков, Для этого, по-моему, достаточно использовать QS,QSELECT,БВЫБОР - Быстрый выбор, затем Свойства -> Поворот Quote Link to comment Share on other sites More sharing options...
XPom Posted July 20 Report Share Posted July 20 насколько я понял, нужно из 200 стрелочек, повернутых в одну сторону половину, выбранную случайным образом, развернуть в обратную Quote Link to comment Share on other sites More sharing options...
kpblc Posted July 20 Report Share Posted July 20 Хоть убей не понимаю глубинного смысла таких телодвижений, но вот в качестве затравки rnd-rotate-blocks.lsp Quote Link to comment Share on other sites More sharing options...
XPom Posted July 20 Report Share Posted July 20 Если поворотов стрелки всего 2 (0 и 180) (ну или несколько), то можно обойтись "недодинамическими" блоками nanocad c параметром видимости и таблицей nanocad (c применением функции ctlSetValue) Стрелка_200723(1).dwg Правда, стрелки будут поварачиваться не совсем рандомно, а по определенным правилам сортировки таблицы Quote Link to comment Share on other sites More sharing options...
VitBor Posted July 20 Report Share Posted July 20 24 минуты назад, kpblc сказал: Хоть убей не понимаю глубинного смысла таких телодвижений, но вот в качестве затравки Лисп vk_RandNum и ему подобные я активно использую, rnd-rotate-blocks под ак, в nc 22.0 не работает (. я не думал, что это так сложно... ) Quote Link to comment Share on other sites More sharing options...
EdwardSt Posted July 20 Report Share Posted July 20 Спойлер (defun c:rand_rotate ( / i nab) (setq i 0 nab (ssget "_X" (list (cons 0 "INSERT")))) (repeat (sslength nab) (if (> (_dwgru-random) 0.5) (Block_rotate (ssname nab i) pi ))) (setq i (1+ i)) ) (prin1) ) (defun Block_rotate (el ang / a d) (setq d (entget el)) (if (setq a (assoc 50 d)) (setq d (subst (cons 50 (+ (cdr a) ang)) a d)) (setq d (append d (list (cons 50 ang))))) (entmod d) ) (defun _dwgru-random (/ modulus multiplier increment) ;;; Генерирует случайное вещественное число в диапазоне от 0 до 1 ;;; Используется глобальная переменная *DWGRU_SEED* (if (not *dwgru_seed*) (setq *dwgru_seed* (getvar "DATE")) ) ;_ end of if (setq modulus 65536 multiplier 25173 increment 13849 *dwgru_seed* (rem (+ (* multiplier *dwgru_seed*) increment) modulus) ) ;_ end of setq (/ *dwgru_seed* modulus) ) ;_ end of defun Солью проги, конечно, является генератор СЧ по наводке от @kpblc Quote Link to comment Share on other sites More sharing options...
kpblc Posted July 20 Report Share Posted July 20 Я проверял на NC23, у меня сработал. Просмотри код - там на основании полученного псевдослучайного числа выполняется поворот. Если число меньше или равно 0.5, то поворот выполняется. Попробуй выбрать штук 20 одинаково расположенных блоков - увидишь, что после применения случайное количество случайно расположенных блоков повернулись на 180 добавлено через 0 минут @EdwardSt, генератор честнейшим образом стырен с форума dwg.ru Quote Link to comment Share on other sites More sharing options...
EdwardSt Posted July 20 Report Share Posted July 20 1 минуту назад, kpblc сказал: генератор честнейшим образом стырен с форума dwg.ru Потому и пишу не об авторстве, а о наводке))) Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.