[vn]

Недавно купил книгу. Полный сборник команд Lisp с их описанием.
Но на этом все и кончилось. Никаких примеров для начинающих.
Если кто знает, с чего начинать изучение Lisp медленно и шаг за шагом , подскажите пожалуйста.

[Кулик Алексей aka kpblc]

Ну я что, обманывать буду? Ты на какой раскладке _c вводил, не на русской ли случайно? Только что специально прогнал - код работает:

Код:

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

(defun c:perekhod3 (/ r r l *error* _osmode)
  (defun *error* (msg)
    (if _osmode
      (setvar "osmode" _osmode)
      ) ;_ end of if
    (princ msg)
    (princ)
    ) ;_ end of defun

  (if (and (setq r (getdist "\nРадиус большой:"))
          ; Задаем большой радиус перехода
           (setq r (getdist "\nРадиус маленький:"))
          ; Задаем маленький радиус перехода
           (setq l (getdist "\nДлина перехода:")) ; Задаем длину перехода
           ) ;_ end of and
    (progn
      (setq _osmode (getvar "osmode"))
      (setvar "osmode" 0)
      (command "_.Pline"
               '(0. 0.)
               (list 0. d)
               (list l d)
               (list l 0.)
               '(0. 0.)
               "_c"
               ) ;_ end of command
      (setvar "osmode" _osmode)
      ) ;_ end of progn
    ) ;_ end of if
  (princ)
  ) ;_ end of defun

[Рyslan]

Я не вводил С вначале, просто стер из close lose. Щас ввел заново С на инглише. Такая же фигня. Не знаю почему так, еще раз повоторюсь что вчера дома у меня тож не работала close

[Кулик Алексей aka kpblc]

Тогда создавай полилинию через dxf Там подобных проблем обычно не бывает.

[Рyslan]

)))) и твой переход3 тоже не работает, тоже самое пишет- неизвестная команда С

[Рyslan]

объяснить можешь почему так получается? через dxf? ты что! я ж тока учусь

[Profan]

В программе perekhod3 (сообщение 61) переменная d не определена.

[Кулик Алексей aka kpblc]

Сообщение от Profan В программе perekhod3 (сообщение 61) переменная d не определена.

Точно! Блин, надо же было так облажаться...

[Рyslan]

да ладна бывает. у меня вон все не работает

[Рyslan]

Алексей, так почему автокад не воспринимает "C"? не разобрался?

[Кулик Алексей aka kpblc]

Не-а, не до того. У меня в ADT до дури муторной работы, горит.
По-быстрому, создание примитива через DXF:

Код:

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

(defun c:go-throught (/ pt max_rad min_rad)
  (if (and (setq pt (cond
                      ((getpoint "\nНижняя левая точка отвода <(0. 0. 0.)> : "))
                      (t '(0. 0. 0.))
                      ) ;_ end of cond
                 ) ;_ end of setq
           (setq max_rad (getdist pt "\nБольшой радиус <Отмена> : "))
           (setq min_rad (getdist pt "\nМалый радиус <Отмена> : "))
           (setq len (getdist pt "\nДлина <Отмена> : "))
           ) ;_ end of and
    (entmakex ; напрямую создаем примитив
          ; подсовываем список, описывающий полилинию:
      (append ; соединяем списки
          ;Список общих данных
        '((0 . "LWPOLYLINE") ; Тип примитива
          (100 . "AcDbEntity") ; Указывать для полилинии обязательно
          (100 . "AcDbPolyline") ; То же
          (90 . 4) ; Количество вершин
          (70 . 1) ; Признак замкнутости. 0 - незамкнута; 1 - замкнута
          (43 . 0.) ; Постоянная ширина полилинии
          (38 . 0.) ; Elevation полилинии
          (39 . 0.) ; Thickness
          )
          ; Список вершин
        (mapcar
          '(lambda (x)
             (cons 10 x)
             ) ;_ end of lambda
          ;; Теперь вычисляем вершины для того, чтобы получилось нечто типа
          ;|
   ---
  /   \
  -----
|;
          (list pt ; первая вершина, левая нижняя
                (list (+ (car pt) max_rad) (cadr pt))
          ; вторая вершина, смещена по Ох влево на max_rad
                (list (+ (car pt) (/ (+ max_rad min_rad) 2.)) (+ (cadr pt) len))
          ; Третья вершина, смещена от начала по Оy на len, влево на сумму половин радиусов
                (list (+ (car pt) (/ (- max_rad min_rad) 2.)) (+ (cadr pt) len))
          ; Четвертая вершина, смещена от начала по Oy на len, влево на разницу половин радиусов
                ) ;_ end of list
          ) ;_ end of mapcar
        ) ;_ end of append
      ) ;_ end of entmakex
    ) ;_ end of if
  ) ;_ end of defun

Вроде как комментарии нарисовал.

[Скулачёв А.]

Сообщение от Рyslan Вот это по-моему правильно, тока все равно не работает ;;;Рисование концентрического перехода по ГОСТ ;;;1. View-->Front ;;;2. Pline" "0,0" "0,R" "L,r" "L,0" "0,0" "_close" ;;;3. Revolve ;;;4. View-->SW Isometric ;;;R- радиус большой ;;;r- радиус маленький ;;;L- длина перехода (defun C:PEREKHOD (/R,r,L,Pline); Рисование концентрического перехода по ГОСТ (initget7) (setq R (getdist "\nРадиус большой:")) ; Задаем большой радиус перехода (initget7) (setq r (getdist "\nРадиус маленький:")) ; Задаем маленький радиус перехода (initget7) (setq L (getdist "\nДлина перехода:")) ; Задаем длину перехода (Command "_.View" "_Front") (Command "_.Pline" "0,0" "0,R" "L,r" "L,0" "0,0" "_close") ; Рисуем профиль перехода (setq Pline (entlast)) (Command "_.Revolve" "Pline" "Enter" "X" "Y" "Enter") ; Поворачиваем профиль вокруг выбранной оси (Command "_.View" "_SW") (princ) ; Выход )

Код:

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

(defun C:q()
(initget 7)
(setq R1 (getdist "\nРадиус большой:"))
(setq r2 (getdist "\nРадиус маленький:"))
(setq L (getdist "\nДлина перехода:"))
(command "_.View" "_Front")
(command "_.Pline" (list 0 0) (list 0 R1) (list L r2) (list L 0) "c")
(setq Pline (entlast))
(command "_.Revolve" Pline "" "X" "")
(command "_.View" "_swiso")
(princ)
)

Я твой код немного сократил. У меня работает как часы, если выключить привязки. Я программирую 4 день после окончания курсов при МГТУ им. Баумана. Тебе тоже советую их окончить. Мне там за 4 дня дали столько информации, думаю самостоятельно год бы потратил на изучение.

[Рyslan]

Во! Работает, спасибо!!! До курсов в Бауманке мне не доехать, далековато. Конечно ты прав, когда тебе показывают, быстрее получается учиться.

[Александр Ривилис]

Сообщение от Скулачёв А. Я программирую 4 день после окончания курсов при МГТУ им. Баумана. Тебе тоже советую их окончить. Мне там за 4 дня дали столько информации, думаю самостоятельно год бы потратил на изучение.

А на курсах не говорили, что и для опций команд тоже следует использовать подчеркивание "_"? Кому незачет?

[Скулачёв А.]

Сообщение от Александр Ривилис А на курсах не говорили, что и для опций команд тоже следует использовать подчеркивание "_"? Кому незачет?

Я знаю, что подчёркивание актуально только в локолизованом AutoCad, а у меня родной, и всем советую пользоваться родным, гемора меньше будет.

[Рyslan]

локализованный ето как? на англ. языке? у меня на инглише

[Скулачёв А.]

Сообщение от Рyslan локализованный ето как? на англ. языке? у меня на инглише

Локализваный - любой кроме инглиша (казахский, русский, украинский). Если кад не локализован, смело убирай все подчёркивания.

[Александр Ривилис]

> Скулачёв А.
Ну раз сказал "А" (т.е. используешь подчеркивание в именах команд), то нужно говорить и "Б" (т.е. использовать и в именах опций, функциях initget, ssget и т.д.)
И кроме того на нелокализованном AutoCAD твоя программа просто не будет работать, т.е. она очень не универсальна. А это плохой стиль программирования.

[Рyslan]

ааа, ну значит у меня не локализованный.

[Profan]

Сообщение от Скулачёв А. Я знаю, что подчёркивание актуально только в локолизованом AutoCad, а у меня родной, и всем советую пользоваться родным, гемора меньше будет.

Посоветуй еще заодно и английский язык выучить.

[Кулик Алексей aka kpblc]

Сообщение от Скулачёв А. Я знаю, что подчёркивание актуально только в локолизованом AutoCad, а у меня родной, и всем советую пользоваться родным, гемора меньше будет.

Ага, объясни это пяти десяткам коллег околопенсионного возраста.