[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

_____________________________________________________________________________________________________________

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

[RNB]

Код:

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

(defun c:RBmleader ()
  (setvar "cmdecho" 0)
  (vl-cmdf "_-layer" "_make" "-Vynoska" "")
  (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

Ламерский код построения мультивыноски с заданным слоем. Моим потребностям удовлетворяет.

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

Опять забыл про обработку ошибок и метки начала/конца отмены...

[RNB]

Сообщение от Кулик Алексей aka kpblc Опять забыл про обработку ошибок и метки начала/конца отмены...

Каюсь, никак руки не доходят доделать по-человечески

[Red Nova]

Использую этот код для выбора динамических блоков с определенным именем. Есть простой метод вернуть их количество?

[Nike]

http://forum.dwg.ru/showthread.php?t=17333

[Сергей812]

getblockselection по сути ssget с фильтром, а что возвращает ssget? - набор она возвращает)

[Red Nova]

Nike, спасибо, хоть и не совсем ответ на мой вопрос, но пригодится на будущее ։)

______________________________________________________________________________

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

Пример списков:
(setq lstA '(("1" "57") ("2" "69") ("3" "89") ("4" "95") ("5" "89") ("6" "82") ("B" "49")))
(setq lstB '(("1" "53") ("3" "42") ("B" "22")))

Ожидаемый результат:
'(("1" "4") ("2" "69") ("3" "47") ("4" "95") ("5" "89") ("6" "82") ("B" "27")

Пока что мое нерабочее издевательство над кодом выглядит так:
*гнилыми помидорами не кидаться

Код:

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

 
(defun c:SubstractEC ( / lstA lstB lst lstn x sum floor)
  (setq lstA '(("1" "57") ("2" "69") ("3" "89")))
  (setq lstB '(("1" "53") ("3" "22")))
  (setq x 0)
  (setq floor (car (car lstA)))
  (setq sum (distof (cadr (car lstA))))
  (setq lst '())
  (foreach n lstB
    (if (= (car n) floor)
        (setq sum (- sum (distof (cadr n)))
	      lstn (append (list (car n)) (list (rtos sum 2 0)))
	      lst (append lst (list lstn))

	      x (+ 1 x)
	      floor (car (nth x lstA))
	      sum (distof (cadr (nth x lstA)))
	      )
        (setq x (+ 1 x)
	      floor (car (nth x lstA))
	      sum (distof (cadr (nth x lstA)))
	   )
     )
  )
  (princ lst)
  (princ)
)

Добавил.

Вот, нашел такой вариант.

Код:

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

 (defun SEC ( a b / c )
        (if a
            (if (setq c (assoc (caar a) b))
                (cons (cons (caar a) (list (rtos (- (distof (cadar a)) (distof (cadr c))) 2 0))) (SEC (cdr a) b))
                (cons (car a) (SEC (cdr a) b))
            )
        )
    )

[George_D]

Добрый день, подскажите, пожалуйста, какой командой lisp можно удалить строку из таблицы или как создавать таблицу сразу без первой строки , предназначенной для имени таблицы.

Код:

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

  (defun c:Example_AddTable()
    ;; This example adds a table in model space
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))

    (setq pt (vlax-3d-point 0 0 0))

    (setq modelSpace (vla-get-ModelSpace doc))
    (setq MyTable (vla-Addtable modelSpace pt 5 5 10 30))
    (vla-ZoomExtents acadObj)
)

----- добавлено через ~26 мин. -----
Разобрался:

Код:

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

 (vla-Deleterows MyTable 0 1)

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

Сообщение от George_D как создавать таблицу сразу без первой строки , предназначенной для имени таблицы.

Создать стиль, в котором отсутствует заголовок таблицы. Кажется, так.

[fah]

Доброго времени суток! Друзья! Такой вопрос, есть ли тут человек, который владеет Лиспом на профессиональном уровне? Срочно нужна помощь в написании скрипта для автокада. Программа почти дописана, остались некоторые тонкие моменты. Если вкратце, то суть в том, что нужно вытащить блоки с их атрибутами в формате vla , чтоб их можно было тем самым перенести в Excel, на данный момент это получается сделать так, что выделяются все блоки и выносится информации о каждом. Но нужно, чтоб блок можно было выбирать рамкой. Буду благодарен за помощь.

[Сергей812]

Сообщение от fah блоки с их атрибутами в формате vla

что это за чудесный формат?

Сообщение от fah Программа почти дописана

И где она? Если вызывает трудности извлечение атрибутов выделенных блоков, то чем же занимается почти написанная программа тогда?

[Alan]

Сообщение от fah суть в том, что нужно вытащить блоки с их атрибутами

Самое простое - применить команды _ATTOUT и _ATTIN

Сообщение от fah блок можно было выбирать рамкой

Ну там это делается...
Забрать файлик в EXCEL поманипулировать и отдать назад... без программирования.
Метод описан и продемонстрирован не раз!

[fah]

Требуют именно написать скрипт для автоматизированного перемещения информации о блоке с атрибутами в эксель...(
Я всё время работал в автокаде, но никак не с программированием...

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

fah, слабо верится, что на работе требуют написать скрипт. Больше похоже на учебную задачу. На работе обычно пофигу, как ты решил проблему - главное, решил.

[Сергей812]

Да и собственно

Сообщение от fah на данный момент это получается сделать так, что выделяются все блоки и выносится информации о каждом. Но нужно, чтоб блок можно было выбирать рамкой

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

[fah]

Сообщение от Кулик Алексей aka kpblc fah, слабо верится, что на работе требуют написать скрипт. Больше похоже на учебную задачу. На работе обычно пофигу, как ты решил проблему - главное, решил.

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

[fah]

Сообщение от Сергей812 Да и собственно в чем загвоздка то? Получили набор блоков и обрабатываете его - это уже все готово, судя по посту. А как формируете набор блоков - это уже вопрос интерфейса пользователя.

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

[Сергей812]

Сообщение от fah Каким образом сделать этот выбор блока выделением рамкой. Нашёл функцию ssget, вроде она почти по теме, но довести до конца не удаётся.

так выкладывайте свой кусок кода - что не получается)

----- добавлено через ~2 мин. -----
Offtop:

Сообщение от fah эту проблему пытается решить другой сотрудник,

ждем новых участников форума с вопросами вывода в эксель)

[fah]

Собственно вот код:

p.s. выложил картинкой, потому что не удалил комментарии. Пусть лучше всё будет видно.

[Сергей812]

1. типичная задача сбора данных для спецификации - извлечение данных чего не используете то?
2. думал, что выбор осуществляете ssget с ключем X и фильтром на вставки блоков. У вас свой подход)