[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

_____________________________________________________________________________________________________________

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

[Aminka]

Сообщение от gomer Код: [Выделить все] (vl-remove-if 'listp (mapcar 'cadr (ssnamex selection)))

Gomer, спасибо, но мне не понятно именно откуда берется лишний мусор при применении ssnamex, поскольку г-н Полищук утверждает, что если функция ssnamex без указания номера должна возвращать список, то длина этого списка будет равна количеству элементов набора. Однако, если выбирать не кликом мыши по объекту, а прямоугольником, то появляется лишнее значение.

[VVA]

Сообщение от Aminka но мне не понятно именно откуда берется лишний мусор при применении ssnamex

Читай справку об ssnamex. Помимо самих примитивов ssnamex возвращает более детальную информацию, например, каким способом был выбран примитив. И если способ рамка (Window or WPolygon), секрамка (Crossing or CPolygon) или линия (Fense), то будут представлены еще и описания этих многоугольников. Это и есть "лишнее значение".
Еще способ преобразовать набор в список примитивов (без vla функций) _dwgru-conv-pickset-to-list

[gomer]

Сообщение от VVA Еще способ преобразовать набор в список примитивов (без vla функций)

кхм, без ssnamex

[Aminka]

Ооо! Спасибо, еще куча всяких интересностей..)
Дивная штука автолисп..для решения одной простенькой задачи я уже накатала два варианта , а есть еще множество всяких вариантов. Посему еще вопрос-как вы определяете оптимальность для простеньких программ - быстродействием? в редакторе при трассировке где-то дано общее время выполнения лисп-приложения?

[Do$]

Сообщение от Aminka для решения одной простенькой задачи

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

Сообщение от Aminka как вы определяете оптимальность для простеньких программ - быстродействием?

В первую очередь - универсальностью решений. Часто - в ущерб быстродействию (современные компьютеры позволяют такую роскошь).

Сообщение от Aminka в редакторе при трассировке где-то дано общее время выполнения лисп-приложения?

Нет в редакторе такого, время работы можно оценить так, как советует VVA в этом посте.

[Fynjy87]

Здравствуйте!
Как хорошо, что уже есть тема для чайников)

У меня вопрос. Поиском ответ найти не удалось. Подскажите, пожалуйста, как значения координат точек при создании объектов привязать к значениям переменных? Например, как для отрезка:

Код:

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

 (entmake '((0 . "LINE") (8 . "1") (10 0 0) (11 0 60)))

Получить по существу (10 X1 Y1) (11 X2 Y2), только на языке лиспа.

[Лиспер]

Это так что ли?

Код:

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

(entmakex (list '(0 . "LINE") '(8 . "1") (list 10 x1 y1) (list 11 x2 y2))

[Fynjy87]

Сообщение от Лиспер Это так что ли? Код: [Выделить все] (entmakex (list '(0 . "LINE") '(8 . "1") (list 10 x1 y1) (list 11 x2 y2))

Да. Здорово) Теперь все намного проще. Спасибо!

[Frigate]

День добрый!

Прошу помощи по программной работе с OpenOffice. Копал везде - в ЛИСП не нашел примеров работы с OpenOffice. Только компилированный модуль.
Проверил - модуль работет вроде корректно. Но - нужно, чтобы приложение (сам файл) (Calc=Excel) было открыто. А как его открыть программно?

Напр., для Excel делают так:

Код:

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

    (setq path (getfiled	"Выберите файл Excel:"
			(getvar "dwgprefix")
			"xls"
			16
	      )
  )
  (setq sheet_name_or_number 1); 
  (setq ExcelApp (vlax-get-or-create-object "Excel.Application"))
  (vla-put-visible ExcelApp :vlax-true)

А как запустить подобное приложение и открыть файл Calc (Open Office)?

Буду благодарен з аподсказку.

Если советов не будет, придется работать через АДО c xls.
И проверять, что я там наворотил в файле, открывая файл xls из OpenOffice.

Либо упрощенный вариант - создавать файл csv формата.

[VVA]

Сообщение от Frigate А как запустить подобное приложение и открыть файл Calc (Open Office)?

Спросить у гугла
how to create object (word/excel) for openoffice
Если за xls зарегистрирован OpenOffice (т.е. по даблклику на файле грузится OpenOffice), то можно так

Код:

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

(defun vva-xopen (name / di na sh)
;; get from Patrick_35
;; http://www.theswamp.org/index.php?topic=29548.0 
;;;Usage 
;;;(setq my_file (vva-xopen "c:/test.txt")) 
;;;(setq my_file (vva-xopen "c:/test.avi")) 
;;;(setq my_file (vva-xopen "c:/test.3gp")) 

  (and   (setq name (findfile name)) 
   (setq sh (vlax-create-object "Shell.Application")) 
   (setq di (vlax-invoke sh 'Namespace (vl-filename-directory name))) 
   (setq na (vlax-invoke di 'parsename (strcat (vl-filename-base name) (vl-filename-extension name)))) 
   (vlax-invoke-method na 'invokeverbex "open") 
  ) 
  (vlax-release-object sh) 
  na 
)

[Frigate]

VVA,

Владимир, спасибо аз ответ. Этот код мне пригодится. Но хотелось бы все-таки понять, как из ЛИСПа забраться в OpenOffice - может кто уже дошел до этого и не прочь поделиться?
Для меня описание, как из Делфи,С++ и тп попасть в OpenOffice пока сродни китайским иероглифам. Если б видеть хоть какой-нить аналог на ЛИСПе, то дальше б уже разобрался по этому аналогу. А так - остается лишь пользоваться скомпилированным модулем по обмену с OpenOffice (лежит в download), либо (что проще и надежнее) создавать файл crv в ЛИСПе.

[Fynjy87]

Еще раз, здравствуйте!)

Подскажите, пожалуйста, можно ли в лиспе задавать относительный путь к файлу? В программе Елпанова Евгения, которую я взял за основу, файлы Excel выбираются через getfiled. Когда файлов много, это неудобно. Я нашел только как жестко закрепить пусть к файлу. Но намного удобнее было бы с относительным. Это возможно?

[Дима_]

Сообщение от Fynjy87 Но намного удобнее было бы с относительным. Это возможно?

В прямую нет - автолисп не знает из какого файла загруженна программа, поищи - обсуждалось - есть варианты через поиск .lsp файлов (кривенький), (getenv "appdata") и пр.

[Fynjy87]

Сообщение от Дима_ В прямую нет - автолисп не знает из какого файла загруженна программа, поищи - обсуждалось - есть варианты через поиск .lsp файлов (кривенький), (getenv "appdata") и пр.

Ясно. Спасибо за ответ! Похоже, на данный момент шкурка выделки не стоит.

[ShaggyDoc]

шкурка выделки не стоит

Неправильный вывод. В правильной программе не должно быть никаких абсолютных путей. Все дополнительные файлы должны лежать там, где положено им лежать. А не куда их кто-то положил.

Хорошая программа должна их уметь найти. А в плохой можно и записать "C:/SuperPuper"

[Fynjy87]

Сообщение от ShaggyDoc Неправильный вывод. В правильной программе не должно быть никаких абсолютных путей. Все дополнительные файлы должны лежать там, где положено им лежать. А не куда их кто-то положил. Хорошая программа должна их уметь найти. А в плохой можно и записать "C:/SuperPuper"

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

[Frigate]

Fynjy87,

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

Пусть к твоему файлу чертежа находишь по

Код:

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

(getvar "dwgprefix")

или так

Код:

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

(vla-get-path
	       (vla-get-activedocument (vlax-get-acad-object))
) ;_ end of vla-get-path

[VVA]

Сообщение от Frigate можно найти путь относительно файла чертежа,

Акад2006-пропадают внешние ссылки пост 9

PL_XRefChgr Функция глобальной замены абсолютных путей ссылок и растров на относительные и обратно, версия: 0.91

[Fynjy87]

Сообщение от Frigate Пусть к твоему файлу чертежа находишь по Код: [Выделить все] (getvar "dwgprefix")

Здорово!) Бывает же так просто. Очень забавно смотрится после всего того, что я сказал про нехватку времени для того, чтобы в этом разобраться
Но без вас я бы действительно это долго искал. Спасибо!

VVA
Сасибо, хорошие программы. Пригодятся на будущее.

[baaba]

Код:

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

 (setq a (getstring)

Что мне нужно:
если пользователь ввёл текст, ничего не делаю с переменной, оставляю как есть, если ввёл число, преобразую оператором atof в число:

Код:

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

 (setq a (atof a))

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