[Red Nova]

Со школы не ладится у меня с программированием. Все предметы щелкал, а на экзамене по информатике (Visual foxpro) программку типа суммирования столбцов списал у соседа (это уже в университете).
Не смотря на эте намерен научится писать программы для Автокада на лиспе, скачал книгу Хювенена, несколько примеров создания программ, но после получасового “смотрения” таких книг мое мышление явно притормаживает.
Решил пойти другим путем.
Нашел самый короткий лисп из моей коллекции, и прошу программистов с этого форума пошагово объяснить какой символ что означает. Надеюсь на вашу помощь.

Код:

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

(defun c:make-blocks-explodeable (/ adoc)
  (vl-load-com)
  (vla-startundomark
    (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end of vla-startundomark
  (vlax-for blk_def (vla-get-blocks adoc)
    (if (and (equal (vla-get-isxref blk_def) :vlax-false)
             (equal (vla-get-islayout blk_def) :vlax-false)
             ) ;_ end of and
      (vl-catch-all-apply '(lambda () (vla-put-explodable blk_def :vlax-true)))
      ) ;_ end of if
    ) ;_ end of vlax-for
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

_____________________________________________________________________________________________________________

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

[alex8888]

Подскажите, пожалуйста, как обработать формулу (см. вложение) при нескольких значениях угла альфа. Список из необходимых углов альфа и величина R известны, но количество альф может быть различным. Требуется получить список из Lx или конкретные значения L0, L1, L2 ... и т.д.
Через обработку списка из альф посредством команды nth получаю значения L0, ....Ln, но сама запись очень громоздкая:

Код:

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

(setq 
spisok_sin (mapcar 'sin (list 0 (/ pi 8.0) (/ pi 4.0) (* 3.0 (/ pi 8.0)) (/ pi 2.0)))
L0 (sqrt (- (expt R 2.0) (* (expt (* R (nth 0 spisok_sin)) 2.0))))
L1 (sqrt (- (expt R 2.0) (* (expt (* R (nth 1 spisok_sin)) 2.0))))
L2 (sqrt (- (expt R 2.0) (* (expt (* R (nth 2 spisok_sin)) 2.0))))
L3 (sqrt (- (expt R 2.0) (* (expt (* R (nth 3 spisok_sin)) 2.0))))
L4 (sqrt (- (expt R 2.0) (* (expt (* R (nth 4 spisok_sin)) 2.0))))
)

Попытался организовать через функции foreach, mapcar и lambda, но положительного результата не достиг - зато мозги вскипели
Не получается подставлять в выражение значение из списка - требуют всегда число, а как без nth до него добраться?

[TararykovDG]

alex8888, попробуй так

Код:

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

; если R и spisok_sin заданы
(mapcar '(lambda (x) (sqrt (- (expt R 2.0) (* (expt (* R x) 2.0))))) spisok_sin)

[Frigate]

Здравствуйте,

прошу ответить, верно ли я понял, что ruCAD, который бесплатно выложен в сети для общего пользования, работает только с 2006 автокадом? 2009-ый стартер даже не замечает

[alex8888]

TararykovDG, спасибо, получилось. А то голову сломал, куда же lambda воткнуть - я ее пытался внутри формулы прописать, а нужно в начале.

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

[ShaggyDoc]

Сообщение от Frigate прошу ответить, верно ли я понял, что ruCAD, который бесплатно выложен в сети для общего пользования, работает только с 2006 автокадом? 2009-ый стартер даже не замечает

Это старая версия. Последняя версия ruCAD-2008 "замечает" и работает со всеми AutoCAD начиная с 2008 (R17.1) до R18.2 (если такая будет). Более ранние не поддерживаются.

[Frigate]

ShaggyDoc

я скачал с этого сайта в downloads ruCAD. Значит она старая? А где я могу скачать новую, или это невозможно?

[alex8888]

ShaggyDoc, а в 2011 каде получится запустить? И где скачать, если можно?

Как привести список типа ((x1 y1)(x2 y2)(x3 y3)...(xn yn)) к виду (x1 y1 x2 y2 x3 y3 .... xn yn) ?
Offtop: (Туплю чего то сегодня ) - не могу найти никак

[ShaggyDoc]

А где я могу скачать новую, или это невозможно?

Скачать нельзя нигде. Используется только достаточно узким кругом спонсоров и заказчиков системы.

ShaggyDoc, а в 2011 каде получится запустить?

Должно быть. Покупать 2011 ради ответа на на этот вопрос у меня нет возможностей. Пока все мои клиенты работают в 2008 и не намерены обновлять Автокады из-за "сбоку-бантик". А радикальных новых возможностей не появляется.

Ограничения младших версий вызваны тем, что выполнен полный переход на возможности 3D, аннотативность и прочее, появившееся в 2008. А старшие версии ограничены 18.2, да и то "от фонаря". Технических ограничений нет, так как не используется OA, в котором есть контроль версий.

[TararykovDG]

Сообщение от alex8888 Как привести список типа ((x1 y1)(x2 y2)(x3 y3)...(xn yn)) к виду (x1 y1 x2 y2 x3 y3 .... xn yn) ?

Код:

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

(setq lst (list (list 1 1) (list 2 2) (list 3 3)))
(apply 'append lst)

[Frigate]

ShaggyDoc
а есть возможность запустить руКАД, скачанный с этого сайта, под 2009 автокадом?

У меня программа стартер пишет - не вижу автокада.

[alex8888]

Можно ли сплайн, созданный методом vla-addSpline сконвертировать в полилинию без применения командного метода

Код:

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

(vl-cmdf "_splinedit" (entlast) "_p" "10")

?

[Frigate]

Интересная особенность VLISP редактора - если создавать мастером приложение и файлы .lsp лежат в папке создаваемого приложения, то длина имени таких .lsp файлов не может превышать 24 символа. Если файлы-исходники находятся в др. папках, то таких ограничений нет. Но добавлять больше чем по 5 файлов-исходников (.lsp) не получается. Может кто знает, как можно за одно выделение добавить все свои исходные .lsp файлы в состав приложения?

[ShaggyDoc]

Сообщение от Frigate Интересная особенность VLISP редактора - если создавать мастером приложение и файлы .lsp лежат в папке создаваемого приложения, то длина имени таких .lsp файлов не может превышать 24 символа. Если файлы-исходники находятся в др. папках, то таких ограничений нет. Но добавлять больше чем по 5 файлов-исходников (.lsp) не получается. Может кто знает, как можно за одно выделение добавить все свои исходные .lsp файлы в состав приложения?

Пользоваться штатными средствами ведения проекта очень неудобно. Гораздо лучше редактировать файл проекта обычным текстовым редактором и добавлять файлы в список вручную. Первоначально проект создать в IDE, а потом - руками редактировать список :OWN-LIST.

Файлы можно группировать, вставлять комментарии как в LISP за символами ";", располагать в подкаталогах. Запись файла в список надо делать с относительным путем от файла проекта.

Например

"3d/draw/pipe/support/erico/ru-3d-steel-erico-bracket-2-channel-draw"

Неудобство - после изменения проект надо заново загружать.

[Frigate]

Очень нужен совет опытных пользователей Автокада. Создал команду, подцепил ее на кнопку. Файл .lsp с командой разместил в папке, которую прописал в путях доступа к вспомогат. файлам. Теперь меняю код в .lsp файле, но подкачивается старый вариант файла. ВАообще удалил файл и папку. Все равно откуда-то подгружается файл )))

Прошу помощи ) Иначе придется просто менять название программсы и прописывать новое уже название на кнопке.

[hwd]

Сообщение от Frigate Очень нужен совет опытных пользователей Автокада. Создал команду, подцепил ее на кнопку. Файл .lsp с командой разместил в папке, которую прописал в путях доступа к вспомогат. файлам. Теперь меняю код в .lsp файле, но подкачивается старый вариант файла. ВАообще удалил файл и папку. Все равно откуда-то подгружается файл ))) Прошу помощи ) Иначе придется просто менять название программсы и прописывать новое уже название на кнопке.

Загрузку файла вы прописываете в коде кнопки (т.е. выполняется проверка вызова команды, если возвращается nil - выполняется загрузка файла) или он грузится автоматически?
Если автоматически, то возможно, что команда с таким именем уже существует в др. lisp-файле, который грузится после вашего.

п.с. я не силён в лиспе, это предположение.

[Frigate]

в общем щас более подробно опитшу ситуацию.
Программа (имя ее) - adv-programme-routing-cable-routing-create.
Сейчас такая ситуация-ни одного файла с таким названием нет. Открываю Автокад. Набираю в ком. строке название этой команды:

Команда: adv-programme-routing-cable-routing-create Неизвестная команда "ADV-PROGRAMME-ROUTING-CABLE-ROUTING-CREATE". Для вызова справки нажмите F1.

Далее пытаюсь подгрузить эту программу:

Команда: (load "adv-programme-routing-cable-routing-create") ; ошибка: сбой при выполнении LOAD: "adv-programme-routing-cable-routing-create"

Несмотря на сбой при загрузке, функция загрузилась (только неясно как и откуда???):

Команда: ADV-PROGRAMME-CABLE-ROUTINGS-CREATE-ONE Введите поправку (в процентах) на длину кабеля (целое число от 6 до 30) <20>:

Это уже идет выполнение моей программы-невидимки:

Введите поправку (в процентах) на длину кабеля (целое число от 6 до 30) <20>:

Как можно узнать путь подгрузки программы??? Может ли она каким-то образом уже прописана в путях автозагрузки? ТОлько я ничего такого не делал )))
Прошу помощи )

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

Попробуй указать загрузку так:

Код:

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

(load (findfile "adv-programme-routing-cable-routing-create.lsp"))

Или как там файл называется...

[gomer]

Сообщение от Frigate ТОлько я ничего такого не делал )))

Точно не делал?

ИМХО Вешать на кнопки загрузку файлов - моветон, для этого есть файлы *.mnl и *.cui

и не факт, что команда определена только в этом файле

[Frigate]

ответ автокада

Команда: (load (findfile "adv-programme-routing-cable-routing-create.lsp")) ; ошибка: неверный тип аргумента: stringp nil

Я поиском проверял на компе - такого файла нет совсем больше, файл своей программы и саму прогрмму я переименовал.


Все нормально теперь, еще раз проверил - уже не находит эту программку.

Видимо, есть глюк у Акада какой-то, но сейчас он исчез (после переименования программы)


gomer,

а как сделать загрузку основного VLX файла через CUI?

[gomer]

Перезагрузи кад и попробуй снова
зы просто команда была уже загружена в документ и это не глюк