Я начинаю заниматься программированием LISP (help)

mmax · 19.02.2006, 20:00

Гопода, я начал этим заниматься совсем недавно, буквально в этом месяце. И у меня уже есть грандиозные планы например: чтобы автокад рисовал какие нибудь стандартные детали сам (болты, гайки шурупы итд)

И соответственно у меня начали появляться вопросы на которые г-н Полещук НН в своих произведениях не смог ответить в полном объеме, значит мне понадобится чья нибудь еще помощь.

У меня уже были вопросы которые я задал здесь и получил исчерпывающие ответы. Но если я на кждый вопрос буду создавать отдельный топик, то количество топиков будет = кол-ву вопросов, а вопросов миллион -- администраторы и модераторы данного ресурса наверное понимают о чем я. Да и такое кол-во ссылок не влезет мой..........

Вобщем я хотел бы все свои вопросы помещать в этот топик и надеюсь на поддержку знающих людей.

Всем заранее благодарен.

Кулик Алексей aka kpblc · 04.04.2008, 23:22

Установи (на всяк случай) service-pack - возможно, ошибка исчезнет.

Kline_Kinder · 04.04.2008, 23:34

Нет его

. Есть старый кад.
Начальству выскажу ФЭ, пусть ищет SP

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

.
Еще раз спасибо.

Кулик Алексей aka kpblc · 05.04.2008, 02:37

А чего его искать-то, этот service-pack? Вот оно

Kline_Kinder · 05.04.2008, 19:45

Вай спасибо! Вы всегда помогаете.

Kline_Kinder · 07.04.2008, 17:38

Новости
SP2 для 2007рус- ошибку не исправил
SP для 2005рус- ошибку не исправил (монтировал 2005+SP поверх 2007р)
Монтаж 2008 (англ)- ошибки нет, прога работает

!
Спасибо!
Я сюда наверняка загляну, по-этому напишите если прога кому-нить нужна.
Прога чертит характерные точки плана местности, по данным полученным при съемке артиллерийской буссолью ПАБ-2Б

ALFMario · 07.05.2008, 13:28

Надо начертить линию р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 "")... вроде понимаю что чего то не хватает а вот чего не знаю... подскажите как правильно сделать пожалста

VVA · 07.05.2008, 13:36

1.
vlax-curve-* принимают и возвращают координату в МСК (WCS)
getpoint, entsel и command - в ПСК (UCS) (наводка: trans)
2. Отключить привязки (OSMODE) или так
(command "_line" "_non" p1 "_non" p2 "")

Рyslan · 07.05.2008, 13:48

Всем привет. Посоветуйте нормальную литературу по lisp. Купил себе Полещука, написано много, только вот как-то справочно. Он по-моему вообще книги писать не умеет.

ALFMario · 07.05.2008, 16:10

Кода такой (код кажеться 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

VVA · 07.05.2008, 16:16

Про progn в IF забыл

Код:

[Выделить все]

(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
    (progn
     (setq p2 (trans (vlax-curve-getclosestpointto
                       (vlax-ename->vla-object (car ent))
                       p1
                     ) ;_ end of vlax-curve-getclosestpointto
                     1
                     0
              ) ;_ end of trans
     ) ;_ end of setq
     (command "_line" "_non" p1 "_non" p2 "")
    )
  ) ;_ end of if
) ;_ end of defun

ALFMario · 07.05.2008, 16:34

2VVA. Не подумал что надо, но и не понимаю почему progn стоит не сразу после IF. Подскажи еще как вставлять код лиспа как у тебя.

VVA · 07.05.2008, 17:02

Нажимаешь на # , появляются тэги

Цитата:

[code]
Здесь код лиспа
[/code]

Или набираешь их ручками
По поводу IF
(IF <УСЛОВИЕ> <УСЛОВИЕ=ИСТИНА> <УСЛОВИЕ=ЛОЖЬ>)
Конструкцию IF тоже расткасил в эти же цвета

Код:

[Выделить все]

  (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


    (progn
     (setq p2 (trans (vlax-curve-getclosestpointto
                       (vlax-ename->vla-object (car ent))
                       p1
                     ) ;_ end of vlax-curve-getclosestpointto
                     1
                     0
              ) ;_ end of trans
     ) ;_ end of setq
     (command "_line" "_non" p1 "_non" p2 "")
    )

  ) ;_ end of if

ALFMario · 09.05.2008, 01:21

Еще вопрос есть. функция Fix возвращает целое число, но происходит у меня не всегда правильно, (fix 23.0) возвращает в какой то ситуации 23 а иногда 22, что может быть причиной ?

Syrex · 22.05.2008, 00:15

неподскажите как менять цвет фона у модели? листа програмно чтобы кнопку назначить? заранее спасибо

Кулик Алексей aka kpblc · 22.05.2008, 00:53

ALFMario, твою ситуацию повторить не удалось (сколько ни пытался).
Syrex, поищи по форуму. Такая тема точно была, это я помню.

forMA · 22.05.2008, 01:49

Цитата:

Сообщение от Syrex

неподскажите как менять цвет фона у модели? листа програмно чтобы кнопку назначить? заранее спасибо

http://www.caduser.ru/cgi-bin/f1/board.cgi?t=19162TV

Syrex · 23.05.2008, 19:25

forMA спасибо большое поиском пользовался но ненашел программу

Red Nova · 19.06.2008, 09:59

Тему не читал. Посоветуйте пожалста книжку по изучению лисп-а, только так чтобы для полного чайника в этом деле.

Red Nova · 21.06.2008, 18:40

Ладно, с летературой разобрался, пытаюсь написать с другом лисп, и вот возникли вопросы, может кто подскажет.
1. Как определить список выделенных обьектов?
2. Как определить тип выделенного обьекта?
3. Как получить текст из выделенного Mtext а или Text a?
4. Как получить имена Layout ов?
Заранее спасибо.

VVA · 21.06.2008, 19:24

1.Создаем набор
(setq ss (ssget))
Преобразуем набор в список
(setq lst (_dwgru-conv-pickset-to-list ss))
Код _dwgru-conv-pickset-to-list
2. Имя примитива хнатится в поле с номером 0

Код:

[Выделить все]

(setq en (car(entsel "\Выберите объект")))
(princ "\nТип объетка: ")
(princ (cdr(assoc 0 (entget en))))

3. Опять же текстовая строка хранится с поле с номером 1, соответсвенно надо вызывать assoc с ключом 1.
4. (getvar "CTAB") - текущий
(layoutlist) - все

19.02.2006, 20:00
Я начинаю заниматься программированием LISP (help) mmax Программист широкого профиля. Челябинск Регистрация: 08.09.2005 Сообщений: 722 Гопода, я начал этим заниматься совсем недавно, буквально в этом месяце. И у меня уже есть грандиозные планы например: чтобы автокад рисовал какие нибудь стандартные детали сам (болты, гайки шурупы итд) И соответственно у меня начали появляться вопросы на которые г-н Полещук НН в своих произведениях не смог ответить в полном объеме, значит мне понадобится чья нибудь еще помощь. У меня уже были вопросы которые я задал здесь и получил исчерпывающие ответы. Но если я на кждый вопрос буду создавать отдельный топик, то количество топиков будет = кол-ву вопросов, а вопросов миллион -- администраторы и модераторы данного ресурса наверное понимают о чем я. Да и такое кол-во ссылок не влезет мой.......... Вобщем я хотел бы все свои вопросы помещать в этот топик и надеюсь на поддержку знающих людей. Всем заранее благодарен.
Просмотров: 78317

Опции темы	Поиск в этой теме
	Поиск в этой теме: Расширенный поиск

	Реклама i