|
||
| Правила | Регистрация | Пользователи | Сообщения за день | | Поиск | | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,856
|
Установи (на всяк случай) service-pack - возможно, ошибка исчезнет.
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
проектант Регистрация: 31.01.2007
город-Герой ОДЕССА
Сообщений: 26
|
Нет его . Есть старый кад.
Начальству выскажу ФЭ, пусть ищет SP Устанавливаю счас старый кад, а план местности по данным с буссоли буду чертить уже завтра. Спасибо, за то что наставили на путь истинный. То что это не мой баг, избавляет от штудирования основательно подзабытой инфы о лиспе . Еще раз спасибо. |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,856
|
А чего его искать-то, этот service-pack? Вот оно
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
проектант Регистрация: 31.01.2007
город-Герой ОДЕССА
Сообщений: 26
|
Новости
SP2 для 2007рус- ошибку не исправил SP для 2005рус- ошибку не исправил (монтировал 2005+SP поверх 2007р) Монтаж 2008 (англ)- ошибки нет, прога работает ! Спасибо! Я сюда наверняка загляну, по-этому напишите если прога кому-нить нужна. Прога чертит характерные точки плана местности, по данным полученным при съемке артиллерийской буссолью ПАБ-2Б |
|||
|
||||
Регистрация: 11.10.2007
Gomel
Сообщений: 68
|
Надо начертить линию р1 р2 Координату p1 получаю через getpoint , точку p2 следующим оброзом
(setq p2 (vlax-curve-getclosestpointto (vlax-ename->vla-object (car ent)) p1) ) Теперь через команду (command "_line" p1 p2 "")... ничего не получаетья и через (vl-cmdf "_line" p1 p2 "")... вроде понимаю что чего то не хватает а вот чего не знаю... подскажите как правильно сделать пожалста |
|||
|
||||
Инженер LISP Регистрация: 11.05.2005
Минск
Сообщений: 6,992
|
1.
vlax-curve-* принимают и возвращают координату в МСК (WCS) getpoint, entsel и command - в ПСК (UCS) (наводка: trans) 2. Отключить привязки (OSMODE) или так (command "_line" "_non" p1 "_non" p2 "")
__________________
Как использовать код на Лиспе читаем здесь |
|||
|
||||
Регистрация: 11.10.2007
Gomel
Сообщений: 68
|
Кода такой (код кажеться kpblc писал) хочу сделать для себя... но не получаеться, должен рисоваться перпендикуляр к выбранной линии до точки... не получаеься ничего... возрващает тока значение точки и все..
больше ничего сделать не могу... не понимаю... помогиет плз (defun C:test (/ ent p1 p2) (vl-load-com) (if (and (= (type (setq ent (vl-catch-all-apply '(lambda () (entsel "\nВыбрать объект (линия) <Выход> : " ) ;_ end of entsel ) ;_ end of lambda ) ;_ end of vl-catch-all-apply ) ;_ end of setq ) ;_ end of type 'list ) ;_ end of = (= (type (setq p1 (vl-catch-all-apply '(lambda () (cond ((getpoint "\n Точка <или последнее> : " ) ;_ end of getpoint ) (t (cadr ent)) ) ;_ end of cond ) ;_ end of lambda ) ;_ end of vl-catch-all-apply ) ;_ end of setq ) ;_ end of type 'list ) ;_ end of = ) ;_ end of and (setq p2 (trans (vlax-curve-getclosestpointto (vlax-ename->vla-object (car ent)) p1) 1 0) ) ;_ end of setq (command "_line" "_non" p1 "_non" p2 "") ) ;_ end of if ) ;_ end of defun |
|||
|
||||
Инженер LISP Регистрация: 11.05.2005
Минск
Сообщений: 6,992
|
Про progn в IF забыл
Код:
__________________
Как использовать код на Лиспе читаем здесь |
|||
|
||||
Инженер LISP Регистрация: 11.05.2005
Минск
Сообщений: 6,992
|
Нажимаешь на # , появляются тэги
Цитата:
По поводу IF (IF <УСЛОВИЕ> <УСЛОВИЕ=ИСТИНА> <УСЛОВИЕ=ЛОЖЬ>) Конструкцию IF тоже расткасил в эти же цвета Код:
__________________
Как использовать код на Лиспе читаем здесь |
|||
|
||||
Регистрация: 11.10.2007
Gomel
Сообщений: 68
|
Еще вопрос есть. функция Fix возвращает целое число, но происходит у меня не всегда правильно, (fix 23.0) возвращает в какой то ситуации 23 а иногда 22, что может быть причиной ?
Последний раз редактировалось ALFMario, 13.05.2008 в 11:02. |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,856
|
ALFMario, твою ситуацию повторить не удалось (сколько ни пытался).
Syrex, поищи по форуму. Такая тема точно была, это я помню.
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Регистрация: 25.08.2005
Сообщений: 2,556
|
Цитата:
http://www.caduser.ru/cgi-bin/f1/board.cgi?t=19162TV |
|||
|
||||
Тему не читал. Посоветуйте пожалста книжку по изучению лисп-а, только так чтобы для полного чайника в этом деле.
__________________
Блог |
||||
|
||||
Ладно, с летературой разобрался, пытаюсь написать с другом лисп, и вот возникли вопросы, может кто подскажет.
1. Как определить список выделенных обьектов? 2. Как определить тип выделенного обьекта? 3. Как получить текст из выделенного Mtext а или Text a? 4. Как получить имена Layout ов? Заранее спасибо.
__________________
Блог |
||||
|
||||
Инженер LISP Регистрация: 11.05.2005
Минск
Сообщений: 6,992
|
1.Создаем набор
(setq ss (ssget)) Преобразуем набор в список (setq lst (_dwgru-conv-pickset-to-list ss)) Код _dwgru-conv-pickset-to-list 2. Имя примитива хнатится в поле с номером 0 Код:
4. (getvar "CTAB") - текущий (layoutlist) - все
__________________
Как использовать код на Лиспе читаем здесь |
|||