|
||
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
05.07.2005, 20:38 | #1 | |
Нужен Lisp для работы с типами линий
проектирование КМ, КМД
Регистрация: 02.05.2005
Сообщений: 25
|
||
Просмотров: 5053
|
|
||||
Регистрация: 14.03.2005
Сообщений: 21
|
Думаю, шиворот-навыворот происходит от того, что при зеркалировании порядок обхода точек полилинии меняется на противоположный (могу ошибаться). Если так, то есть такие lisp-ы, которые этот обход переворачивают (натыкался как-то на просторах интернета!)
|
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,833
|
> Лентяй : так "на х..." или "на здоровье" ? Шутка.
У меня вопрос - можно ли подобное сварганить, но без применения ActiveX-функций? Причина такого ограничения: лисп под LT идет с поддержкой только vl-* функций (т.е. vla-get-startpoint, vla-get-endpoint и т.п. откажутся работать напрочь). А лиспик весьма нужон. Прошу прощения, что обращаюсь с такой "тупой" просьбой, но в лиспе я... гхм... в общем, никто я там.
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Регистрация: 29.01.2004
Сообщений: 494
|
Цитата:
Command: MIRRLINE Select Lines To Mirror Select objects: 1 found Select objects: ; error: ActiveX Server returned the error: unknown name: StartPoint |
|||
|
||||
Инженер по системам безопасности Регистрация: 23.11.2003
Рига
Сообщений: 1,099
|
>Chief Justice
Лентяй забыл сделать так чтобы выбирались только линии и при выборе объектов другого типа (к примеру полилиний) лисп будет выдавать ошибку. Наверное поленился >kpblc Вот без VLA-* и VLAX-*: Код:
|
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,833
|
> Fantomas : Thanks, буду пробовать. Кстати, дурной вопрос - для полилиний (lwpolyline) что принципиально надо добавить в код, кроме замены строки (setq liLst(ssget '((0 . "LINE")))) на (setq liLst(ssget '((0 . "PLINE"))))? Я так подозреваю, что элементарно заменить начальную и конечную точки не получится.
Конечно, попробую сам разобраться, но знаний-то минимум, хочется увидеть решение профи.
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Инженер по системам безопасности Регистрация: 23.11.2003
Рига
Сообщений: 1,099
|
>kpblc
Добавил полилинии. К сожалению "спрямляет" дуговые сегменты. Ответ на твой вопрос внутри кода в виде логических операторов (-4 . "<OR") ... (-4 . "OR>"). Код:
|
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,833
|
> Fantomas : ну уж не скромничай, не скромничай.
За лисп сыпасибо, с меня причитается.
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Thượng Tá Quân Đội Nhân Dân Việt Nam Регистрация: 14.03.2005
44d32'44"С, 33d26'51"В
Сообщений: 13,381
|
Как сделать реверс и LINE, и LWPOLYLINE и POLYLINE и SPLINE
http://www.kurganobl.ru/cad/book.jsp...=845&tn=main#b |
|||
|
||||
Инженер по системам безопасности Регистрация: 23.11.2003
Рига
Сообщений: 1,099
|
>Gostushev
Для того чтобы работал более совершенный вариант предложенный ShaggyDoc, скачайте библиотеку ЛИСП-функций RU-CAD на сайте www.autocad.ru в разделе Download и поставьте её в автозагрузку. |
|||