| Правила | Регистрация | Пользователи | Сообщения за день | | Поиск | | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
|
||||
Регистрация: 06.10.2017
Сообщений: 45
|
Цитата:
Команда же должна быть Block_Along_PLine? |
|||
|
||||
|
||||
|
||||
Инженер LISP Регистрация: 11.05.2005
Минск
Сообщений: 6,992
|
__________________
Как использовать код на Лиспе читаем здесь |
|||
|
||||
По ходу надо завязывать с красивостью и тупо пристёгивать файл...
Да, и у меня тоже работает))) Но нюансы конечно же остались. Последний раз редактировалось koMon, 05.03.2018 в 21:22. |
||||
|
||||
Регистрация: 06.10.2017
Сообщений: 45
|
Со второго раза запустился. Теперь другая проблема.
Файл с дорогой и опорами во вложении. При первом запуске приложения сформировалась такая табличка. Иероглифы в заголовке в принципе не так уж страшно - есть расшифровка ) но почему-то посчитались только две опоры, хотя их на самом деле куда больше. И еще, при попытке запустить приложение повторно - запрашивается имя файла с координатами, хотя я выбираю полилинию |
|||
|
||||
Иероглифы скорее всего побочный эффект копи-паста. Вкладываю лисп.
Сделал в файле из #26 3 запуска. PDF файл со скриншотами вкладываю. Запуск 1. Выбираю полилинию, генерится csv, открываю csv. Запуск 2. Выбираю полилинию, предлагается переписать csv, переписываю csv, открываю csv. Запуск 3. Стираю всё, кроме полилинии, выбираю полилинию, предлагается выбрать файл для чтения, выбираю csv, проставляются блоки. Блок с относительной дистанцией 0 игнорируется. Последний раз редактировалось koMon, 21.03.2018 в 17:14. |
||||
|
||||
Регистрация: 06.10.2017
Сообщений: 45
|
|
|||
|
||||
Чудеса!) У меня из дороги_2 файл сгенерился полностью, включая блок 3.
Попробуйте проверить командой CIP из кода ниже пересечение полилинии и блока №3. (defun c:CIP() (setvar "pdmode" 3) (setvar "pdsize" 100) (setq pline_object (vlax-ename->vla-object (car (entsel "\nSelect Target PLine: ")))) (while t (setq block_object (vlax-ename->vla-object (car (entsel "\nSelect Block to Test: "))) vla_method_executed (vla-GetBoundingBox block_object 'left_lower_corner 'right_upper_corner) command_executed (command "rectang" "_non" (vlax-safearray->list left_lower_corner) "_non" (vlax-safearray->list right_upper_corner)) intersection_Points_array (vl-catch-all-apply 'vla-IntersectWith (list pline_object block_object acExtendNone)) ) (if (or (= (type intersection_Points_array) 'VL-CATCH-ALL-APPLY-ERROR) (< (setq intersections_number (vlax-safearray-get-u-bound (vlax-variant-value intersection_Points_array) 1)) 0) ) (print "Selected Block Does Not Intersect with PLine") (progn (print "Selected Block Intersects with PLine") (setq intersection_points_coordinates_list (vlax-safearray->list (vlax-variant-value intersection_Points_array))) (repeat (/ (1+ intersections_number) 2) (command "point" "_non" (list (car intersection_points_coordinates_list) (cadr intersection_points_coordinates_list))) (setq intersection_points_coordinates_list (cdddr intersection_points_coordinates_list)) (print intersections_number) ) ) ) ) ) инересно пересекаются они у вас или как? Последний раз редактировалось koMon, 12.03.2018 в 15:46. |
||||
|
||||
Проверяется пересечение полилинии и габаритного прямоугольника блока. Они должны быть в одной плоскости. Но в дороге 2 видно, что они в одной плоскости. Ерунда какая-то…
----- добавлено через ~1 ч. ----- VVA, а у тебя генериться блок 3 для дороги 2 из #29? Последний раз редактировалось koMon, 14.03.2018 в 16:20. |
||||
|
||||
Инженер LISP Регистрация: 11.05.2005
Минск
Сообщений: 6,992
|
koMon, нет
__________________
Как использовать код на Лиспе читаем здесь |
|||
|
||||
Однако!?
Всегда скептически относился к вопросам о версии автокада и установленных апдейтах, но не в этом случае. Другого ничего не приходит в голову. VVA, ты как думаешь, в чём засада? У меня всё пересекается и выводится… |
||||
|
||||
Инженер LISP Регистрация: 11.05.2005
Минск
Сообщений: 6,992
|
koMon, CIP у меня отрабатывает
Вопрос был Опора 3 пропускается
__________________
Как использовать код на Лиспе читаем здесь |
|||
|
||||
Scared, видимо VVA занят. Ты можешь сделать то, что я прошу выше?
|
||||
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Возможно ли в Автокаде 2014 в свойствах полилинии сделать площадь в квадратных метрах? | erikbond | AutoCAD | 13 | 13.04.2016 19:07 |
Как преобразовать модель автомобиля, из блоков, линий, 3d линий, полилиний... | Legion | AutoCAD | 11 | 29.08.2015 13:33 |
в автокаде редактор блоков не закрывается, но выдает себя за основной файл | SitchAzamat | AutoCAD | 3 | 18.09.2012 16:49 |
Поворот блоков вдоль полилинии, сплайна | Victor | Готовые программы | 3 | 19.02.2012 22:12 |
ищу функцию построения 3d полилинии | mankurt | Программирование | 8 | 07.02.2012 12:43 |