[Василич]

Доброго вечера!
Нашел учебник по Лиспу. Смотрю пример. Задача должна рисовать10 кругов и квадратов вписанных друг в друга. Подскажите, в чем ошибка?

Код:

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

(defun ceq ()
  (setvar "cmdecho" 0)
  (setvar "osmode" 0)
  (command "ucs" "")
  (command "ucsicon" "off")
  (command "erase" "all")
  (setq pnt (getpoint "Укажите центр фигуры "))
  (setq dstn (getdist pnt "Укажите начальный радиус "))
    (repeat 10
    (command "circle" pnt dstn "")
    (command "polygon" "4" pnt "i" dstn)
    (setq dstn (/ dstn (sqrt 2)))
    )
  )

Это результат:

Command: (ceq) Укажите центр фигуры 0,0,0
Укажите начальный радиус 15


*Invalid selection*
Expects a point or
Window/Last/Crossing/BOX/ALL/Fence/WPolygon/CPolygon/Group/CLass
; error: Function cancelled

Select objects: *Cancel*

Command:
Command: _ai_selall Selecting objects...done.

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

Вариант 2:

Код:

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

(defun mceq (/ pt dist)
  (if (and (setq pt (getpoint "\nУкажите центр : "))
           (setq dist (getdist pt "\nУкажите начальный радиус : "))
           ) ;_ end of and
    (repeat 10
      (entmakex (list (cons 0 "CIRCLE")
                      (cons 10 pt)
                      (cons 40 dist)
                      ) ;_ end of list
                ) ;_ end of entmakex
      (entmakex (append (list (cons 0 "LWPOLYLINE")
                              (cons 100 "AcDbEntity")
                              (cons 100 "AcDbPolyline")
                              (cons 90 4)
                              (cons 70 1)
                              (cons 43 0.)
                              (cons 38 0.)
                              (cons 39 0.)
                              ) ;_ end of list
                        (mapcar '(lambda (x) (cons 10 x))
                                (list (polar pt 0. dist)
                                      (polar pt (/ pi 2.) dist)
                                      (polar pt pi dist)
                                      (polar pt (* pi 1.5) dist)
                                      ) ;_ end of list
                                ) ;_ end of mapcar
                        ) ;_ end of append
                ) ;_ end of entmakex
      (setq dist (/ dist (sqrt 2.)))
      ) ;_ end of repeat
    ) ;_ end of if
  ) ;_ end of defun

[Profan]

Правильный код:

Код:

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

 
(defun ceq ()
(setvar "cmdecho" 0)
(setvar "osmode" 0)
(command "ucs" "")
(command "ucsicon" "off")
(command "erase" "all" "")
(setq pnt (getpoint "Укажите центр фигуры "))
(setq dstn (getdist pnt "Укажите начальный радиус "))
     (repeat 10
           (command "circle" pnt dstn)
           (command "polygon" "4" pnt "i" dstn)
           (setq dstn (/ dstn (sqrt 2)))
      )
)

Но сама программа "неправильная".

[Дима_]

Еще один неправильный но работает:

Код:

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

(defun ceq ()
  (setvar "cmdecho" 0)
  (setvar "osmode" 0)
  (command "_ucs" "")
  (command "_ucsicon" "_off")
  (command "_erase" "_all" "")
  (setq pnt (getpoint "Укажите центр фигуры "))
  (setq dstn (getdist pnt "Укажите начальный радиус "))
    (repeat 10
    (command "_circle" pnt dstn)
    (command "_polygon" 4 pnt "_i" dstn)
    (setq dstn (/ dstn (sqrt 2)))
    )
  )

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

Кстати, вариант с "горизонтальным" положением квадрата:

Код:

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

(defun mceq (/ pt dist)
  (if (and (setq pt (getpoint "\nУкажите центр : "))
           (setq dist (getdist pt "\nУкажите начальный радиус : "))
           ) ;_ end of and
    (repeat 10
      (entmakex (list (cons 0 "CIRCLE")
                      (cons 10 pt)
                      (cons 40 dist)
                      ) ;_ end of list
                ) ;_ end of entmakex
      (entmakex (append (list (cons 0 "LWPOLYLINE")
                              (cons 100 "AcDbEntity")
                              (cons 100 "AcDbPolyline")
                              (cons 90 4)
                              (cons 70 1)
                              (cons 43 0.)
                              (cons 38 0.)
                              (cons 39 0.)
                              ) ;_ end of list
                        (mapcar '(lambda (x) (cons 10 x))
                                (list (polar pt (* pi 0.25) dist)
                                      (polar pt (* pi 0.75) dist)
                                      (polar pt (* pi 1.25) dist)
                                      (polar pt (* pi 1.75) dist)
                                      ) ;_ end of list
                                ) ;_ end of mapcar
                        ) ;_ end of append
                ) ;_ end of entmakex
      (setq dist (/ dist (sqrt 2.)))
      ) ;_ end of repeat
    ) ;_ end of if
  ) ;_ end of defun

[Profan]

Дима_ зачем-то повторил мой вариант. Или я не заметил различий?

[Василич]

2 Profan, Дима_
А в чем неправильность? Я только второй день разбираюсь.

[Дима_]

Просто вставил свой и не посмотрел что ты меня опередил - отличие в _ и "4" в полигоне - сути не менят, на копирайт не претендую

[Дима_]

Василичу - устарелый метод работы, но наиболее легкий для понимания, по сути мы просто вызываем команды акада с параметрами - быстро пишется но долго работает, хотя в данном примере наверное не принципиально. Вот у Крыса создается на уровне примитивов, это высший пилотаж, я бы такую-же 2 дня писал.

[VVA]

Твой вариант
(command "erase" "all")
Вариант Дима_
(command "_erase" "_all" "")
Команды и опции команд в command личшу писать в английском варианте предворяя префиксом _ (будет работать в любой локализованной версии)(см. #4)
Символ "" в command означает Enter

[Profan]

Да еще переменные остаются глобальными, да еще нет возврата к исходному состоянию переопределенных системных переменных...

[Василич]

Доброго всем утра!
Вот этот оператор:

Код:

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

     (entmakex (list (cons 0 "CIRCLE")
                      (cons 10 pt)
                      (cons 40 dist)
                      ) ;_ end of list
                ) ;_ end of entmakex

Что означают эти цифры? Откуда и по какому принципу берутся эти значения?

Про команды с префиксом, такая же мысль дома вечером пришла

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

DXF Reference, объект CIRCLE:
10 - координаты центра окружности
40 - радиус создаваемой окружности.

[VVA]

>Василич На всякий случай, т.к. здесь озвучено не было. В Автокаде есть редактор Visual Lisp. Набери в командной строке VLIDE. Там много вкусностей

[Василич]

>VVA
я VLISP набираю, в чем отличие?

[Profan]

VLIDE используется для передачи управления Visual LISP. Назначение этой команды аналогично назначению команды VLISP.