[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

_____________________________________________________________________________________________________________

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

[Сергей812]

Этот форум почитайте для начала)

Offtop:

Сообщение от Alexll А вот когда значение написано отдельной текстовой строкой делать "ссылку" на эту строку у меня так и не получилось.

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

[RNB]

Такой вопрос возник. Знает ли кто, какой командой AutoCad выполняет редактирование текста мультивыноски?

----- добавлено через ~1 ч. -----
UPD. Разобрался. При выделенной мультивыноске _MLEADERCONTENTEDIT

----- добавлено через ~3 ч. -----
Спасайте, товарищи. Мозг сплавил. Как сделать так, чтобы после выполнения лиспа остались выделенные объекты?

[Сергей812]

Сообщение от RNB Как сделать так, чтобы после выполнения лиспа остались выделенные объекты?

Может так ?

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

Или через sssetfirst

[RNB]

Сообщение от Сергей812 Может так ?

Сообщение от Кулик Алексей aka kpblc Или через sssetfirst

Получилось и через _pselect и через sssetfirst
Собственно, добился от мультивыноски, чтобы она работала как надо с заменой слоя. Выкладываю варик с _pselect.
С удовольствием выслушаю замечания

Код:

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

 (defun c:MYmleader ()
  (setvar "cmdecho" 0)
  (vl-cmdf "_-layer" "_make" "mleader" "")
  (if (= (type
	   (vl-catch-all-apply
	     (function
	       (lambda ()
		 (command "_mleader" pause pause "")
	       ) ;_ end of lambda
	     ) ;_ end of function
	   ) ;_ end of vl-catch-all-apply
	 ) ;_ end of type
	 'list
      ) ;_ end of =
    (princ)
    (princ)
  ) ;_ end of if
  (vl-cmdf "_layerp")
  (vl-cmdf "_pselect" "_l" "" "_mleadercontentedit")
  (setvar "cmdecho" 1)
  (princ)
) ;_ end of defun

[Сергей812]

копаться вглубь лень, но строчка 3 - почему не проверяете, существует ли уже данный слой? Проверяется одной строчкой вида (tblsearch "LAYER" %Имя слоя%) - если вернула nil, то тогда создаем. Иначе - просто делаем слой активным через "CLAYER". Естественно, перед этим значение нужно сохранить (setq lOldLayer (getvar "CLAYER")) и в строке 18 восстановить из этой переменной.

[RNB]

Сообщение от Сергей812 копаться вглубь лень, но строчка 3 - почему не проверяете, существует ли уже данный слой? Проверяется одной строчкой вида (tblsearch "LAYER" %Имя слоя%) - если вернула nil, то тогда создаем. Иначе - просто делаем слой активным через "CLAYER". Естественно, перед этим значение нужно сохранить (setq lOldLayer (getvar "CLAYER")) и в строке 18 восстановить из этой переменной.

Дельное замечание, спасибо.
Но и в этом варианте, думаю, достаточно будет _layerp, без переменных

[Alexll]

Подскажите как из LISPа получить доступ к атрибутам блока. Создал блок, создал для него пару атрибутов, а стандартными способами(как у примитива) доступ к этим атрибутам получить не могу.

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

Поискать: http://www.google.ru/cse?cx=partner-...%B0&gsc.page=1

[Alexll]

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

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

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

[gomer]

Сообщение от Кулик Алексей aka kpblc Такой команды нет

как минимум properties

[Сергей812]

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

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

gomer, я отвечал на вопрос

Сообщение от Alexll типа "....эта команда выдает атрибуты блока по его имени".

[Alexll]

Итак, товарищи, почитал по форуму еще раз, теперь скажите прав я или нет.
получается что имя атрибута блока, всегда следует за блоком. И зная имя блока, с помощью команды entnext мы можем узнать имя атрибута. А уж из имени атрибута достать все его данные не сложно.
Вопрос в том, всегда ли соблюдается это условие, что за именем блока следует имя атрибута? и не бывает ли это каким то образом перемешано?
Если этот способ получения атрибутов блока надежный, то он меня устраивает.

[Сергей812]

подсказка - смотрите DXF коды для INSERT, в частности - код 66.

[Alexll]

Ну это я понял. Если там 1, то далее идут еще какие то примитивы. Или вы что то другое имеете ввиду?

[Сергей812]

Сообщение от Alexll Ну это я понял. Если там 1, то далее идут еще какие то примитивы.

Дальше идут не какие то примитивы - а атрибуты)

Variable attributes-follow flag (optional; default = 0); if the value of attributes-follow flag is 1, a series of attribute entities is expected to follow the insert, terminated by a seqend entity.

[Vladimir_Sergeevich]

Помогите идеей пожалуйста. Есть чертеж трубы, создаваемой спец прогой, на нам надо найти два одинаковых числа и одно из них заменить. в общем случае все работает, за одним исключением.
1.нахожу в таблице отметку в поле Н8 (0 TEXT)
2.нахожу оба текста с этим значением (ssget "_X" (list (cons 0 "TEXT") (cons 1 val_h8))) ;;тут val_h8 - текстовая строка
3.изменяю тот, что не в таблице (их однозначно два и проверяю по точке вставки. например программа выдает 125,24, а надо Н8=125,24)
Есть один момент, когда это не срабатывает: когда отметка 125,20. В таблице она пишется как есть с двумя знаками, а на разрезе, где надо добавить "Н8=" хвостовые ноли подавляются и соответственно "125,20" /= "125,2"
Как еще можно реализовать подобный поиск?
з.ы. (rtos x 2 2) так же выдает без подавления - проверил сразу... хоть впору сначала все числа обработать, что бы везде до 2х знаков было.

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

Используй нечто типа (strcat "H8=" <Текстовая строка>)
Здесь <Текстовая строка> - прямо тот текст, который получаешь откуда надо.