Научите лиспу на примере (или как kpblc, VVA и компания пытаются обучить чайника лиспу)

Red Nova · 20.07.2008, 20:12

Со школы не ладится у меня с программированием. Все предметы щелкал, а на экзамене по информатике (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

_____________________________________________________________________________________________________________

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

Кулик Алексей aka kpblc · 28.02.2016, 14:14

Цитата:

Сообщение от aaalenaaa

как запустить вот этот лисп:

В самом начале приведен пример. Если убрать комментарии, получится:

Код:

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

 (ax:FindBlockTagValue (vla-get-activedocument (vlax-get-acad-object)) "blockname" "tagname" "tagvalue")

aaalenaaa · 28.02.2016, 16:17

Огромное-огромное спасибо!!!
Какой же замечательный форум на этом сайте!!! Да и сам сайт!!! Я так много нового узнала здесь!!!
Спасибо всем!!!!

Neo · 28.02.2016, 19:18

подскажите пожалуйста, как лучше нарисовать полилинию по координатам из списка двух Variant. смысл вот в чем: хочу соединить атрибуты блока полилинией. атрибуты обхожу mapcar и по условию вывожу InsertionPoint. список чищу от nill и получаю точки для полилинии. как "красивее" нарисовать линию, чтобы поменьше кода

VVA · 28.02.2016, 20:55

Здесь есть из чего выбрать
нарисовать полилинию из списка с координатами точек (lisp)
Команда _pline и список точек переменной длины

Neo · 29.02.2016, 11:25

VVA спасибо. я для себя хотел понять как оптимальнее получить из списка Variant-ов один Variant, для построения по нему LWPolyline

trushev · Регистрация: 12.01.2015

Здравствуйте! Голова совсем отупела.
Не получается ни решить вопрос ни найти решение для вложенных диалоговых окон.

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

Есть a.dcl и управляющий им a.lsp. Открытие вложенного окна выполняется выбором строки в поле list-box основного окна.
Далее во вложенном окне необходимо выполнить выбор с рисунка, для чего закрываются оба окна. После выбора возврат
происходит только к первому окну. Автоматический возврат к вложенному окну не получается. Что не так?

a.dcl

Код:

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

d_vvo : dialog {label = "ГЛАВНОЕ ОКНО";
             alignment = centered;
       spacer_1;
       : list_box {label = "ВЫБОР ВЛОЖЕННОГО ОКНА";
                    list = "0\n1\n2";
                     key = "vvo";
                  height = 4;
                   width = 40;
       }
       spacer_1;
       : row {fixed_width = true; alignment = centered;
          : button {fixed_width = true;
                          width = 8;
                      alignment = centered;
                          label = "OK";
                            key = "ok";
                   }
          : button {fixed_width = true;
                      is_cancel = true;
                          width = 8;
                      alignment = centered;
                          label = "Выход";
                            key = "canc";
                    }
          : button {fixed_width = true; width = 8; alignment = centered; label = "Инструкция"; key = "hlp";}
       }
}
vvo0 : dialog {label = "ОКНО 0";
             alignment = centered;
       spacer_1;
       : row {fixed_width = true; alignment = centered;
          : button {fixed_width = true;
                          width = 8;
                      alignment = centered;
                          label = "OK";
                            key = "ok";
                   }
          : button {fixed_width = true;
                      is_cancel = true;
                          width = 8;
                      alignment = centered;
                          label = "Выход";
                            key = "canc";
                    }
          : button {fixed_width = true;
                          width = 8;
                      alignment = centered;
                          label = "Временное закрытие";
                            key = "vzak";
          }
       }
}
vvo1 : dialog {label = "ОКНО 1";
             alignment = centered;
       spacer_1;
       : row {fixed_width = true; alignment = centered;
          : button {fixed_width = true;
                          width = 8;
                      alignment = centered;
                          label = "OK";
                            key = "ok";
                   }
          : button {fixed_width = true;
                      is_cancel = true;
                          width = 8;
                      alignment = centered;
                          label = "Выход";
                            key = "canc";
                    }
          : button {fixed_width = true;
                          width = 8;
                      alignment = centered;
                          label = "Временное закрытие";
                            key = "vzak";
          }
       }
}
vvo2 : dialog {label = "ОКНО 2";
             alignment = centered;
       spacer_1;
       : row {fixed_width = true; alignment = centered;
          : button {fixed_width = true;
                          width = 8;
                      alignment = centered;
                          label = "OK";
                            key = "ok";
                   }
          : button {fixed_width = true;
                      is_cancel = true;
                          width = 8;
                      alignment = centered;
                          label = "Выход";
                            key = "canc";
                    }
          : button {fixed_width = true;
                          width = 8;
                      alignment = centered;
                          label = "Временное закрытие";
                            key = "vzak";
          }
       }
}

a.lsp

Код:

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

(defun aaa (/
            f_vvo
            ;
            dlg
            f
           )
            ;
           (defun f_vvo (val
                         dlg
                         /
                         f
                        )
                        (cond ((= val "0")
                               (if (new_dialog "vvo0" dlg)
                                   (progn
                                   (action_tile "vzak" "(done_dialog 3)")
                                   (setq f (start_dialog))
                                   );progn
                                  ;ИНАЧЕ сбой работы программы 
                                   (alert (strcat "Сбой функции открытия диалогового окна"
                                                  "\n"
                                                  "\n  \"ОКНО 0\""
                                          )
                                   )
                               );if (new_dialog "vvo0" dlg)
                              )
                              ((= val "1")
                               (if (new_dialog "vvo1" dlg)
                                   (progn
                                   (action_tile "vzak" "(done_dialog 3)")
                                   (setq f (start_dialog))
                                   );progn
                                  ;ИНАЧЕ сбой работы программы 
                                   (alert (strcat "Сбой функции открытия диалогового окна"
                                                  "\n"
                                                  "\n  \"ОКНО 1\""
                                          )
                                   )
                               );if (new_dialog "vvo1" dlg)
                              )
                              ((= val "2")
                               (if (new_dialog "vvo2" dlg)
                                   (progn
                                   (action_tile "vzak" "(done_dialog 3)")
                                   (setq f (start_dialog))
                                   );progn
                                  ;ИНАЧЕ сбой работы программы 
                                   (alert (strcat "Сбой функции открытия диалогового окна"
                                                  "\n"
                                                  "\n  \"ОКНО 2\""
                                          )
                                   )
                               );if (new_dialog "vvo2" dlg)
                              )
                        );cond
                        f
           );defun f_vvo
            ;;;;
            ;;;;
            ;;;;
           (setq f 3
               dlg (load_dialog "a.dcl")
           )
            ;
           (while (= f 3)
                  (if (new_dialog "d_vvo" dlg)
                      (progn
                      (action_tile "vvo" "(if (= (f_vvo $value dlg) 3) (done_dialog 3))")
                      (setq f (start_dialog))
                      );progn
                     ;ИНАЧЕ сбой работы программы 
                      (alert (strcat "Сбой функции открытия диалогового окна"
                                     "\n"
                                     "\n  \"ГЛАВНОЕ ОКНО\""
                             )
                      )
                  );if (not (new_dialog "papka" dlg)
                  (if (= f 3)
                      (alert "ВСЕ ОКНА ЗАКРЫТЫ")
                  );if (= f 3)
           );while (= f 3)
            ;
           (unload_dialog dlg)
);defun aaa
(aaa)

kurstep · 10.03.2016, 19:43

Всем привет. Очень нужна одна функция, а как ее сотворить не имею представления... Есть два чертежа - один основной с чертежами и размерами, во втором задан нужный по шаблону размерный стиль.
Нужно сделать программу которая заменяла все размеры чертежа на размеры с нужным стилем (который во втором чертеже) -
Причем желательно сделать с таким условием :
если первоначальный размер имеет высоту текста 2.5 - задавать ему шаблонный аннотативный стиль 1:1
250 - 1:100
500 - 1:200 и т.д.
Заранее спасибо)

skkkk · 10.03.2016, 21:14

Цитата:

Сообщение от kurstep

Очень нужна одна функция, а как ее сотворить не имею представления...

А что тут иметь? Я бы раскопал тему "Программное создание размерного стиля", подставил бы туда нужные значения (разобравшись, какие из них - нужные), и создав столько размерных стилей, сколько надо, а потом запустил бы что-либо типа такого:

Код:

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

 (vl-load-com)
(defun C:TEST ( / ss vla_dim text_height)
	(setq ss (ssget '((0 . "DIMENSION")))) ;;; получаем набор размеров
	(if ss ;;; если набор создан, то
		(repeat (setq i (sslength ss)) ;;; прогоняем процедуру с каждым из объектов набора по очереди
			(setq vla_dim (vlax-ename->vla-object (ssname ss (setq i (1- i)))) ;;; получаем vla-указатель на объект размера
				  text_height (vla-get-TextHeight vla_dim) ;;; получаем высоту текста
			) ;_end of setq
			(cond ;;; назначаем размерный стиль в зависимости от высоты текста
			  (	(= text_height 2.5)(vla-put-StyleName vla_dim "1:1")) ;;; в кавычках надо вписать имя нужного 
			  (	(= text_height 250)(vla-put-StyleName vla_dim "1:100")) ;;; текстового стиля, который уже должен 
			  (	(= text_height 500)(vla-put-StyleName vla_dim "1:200")) ;;; присутствовать в чертеже
			) ;_end of cond
		) ;_end of repeat
	) ;_end of if
);_end of defun

И дело с концом.

gomer · 11.03.2016, 02:37

если стиль размера переопределен, то это может ничего не дать

skkkk · 11.03.2016, 05:23

gomer, если я правильно понял суть замечания, то это опять же к вопросу программного создания размерного стиля. Если при попытке создания он уже есть и (возможно) переопределен, то привести все его настройки в соответствие со "стандартными". А вот если речь о переопределении вручную объектов-размеров, то это действительно может ничего не дать. Не скажу особо точно о программной правке размеров - банально не сталкивался - всегда создавал программно размерные стили, по одному на каждую из нужд и сразу наносил размеры "правильно", чтоб потом не править.
И вообще, если нужна надежная рабочая и безотказная "одна функция", то на много еще таких "Как?" и "А что если..?" придется ответить.

А в конце окажется, что лучше всего было бы использовать аннотативность...

kurstep · 11.03.2016, 09:40

Спасибо большое за ответы, но мне надо не совсем это, стиль размера у меня будет один, - нужно просто чтобы у каждого размера был свой аннотативный масштаб, если размер текста 2.5 1:1, 250- 1:100....
Вопрос в том через какую функцию добавляется аннотативное свойство и добавляются аннатотивные масштабы к объекту

Кулик Алексей aka kpblc · 11.03.2016, 09:46

http://autolisp.ru/2011/03/17/howto-...tyle-or-block/

Frigate · 28.03.2016, 23:44

Приветствую коллег!

Прошу подсказать, как программно вытащить, а также записать путь, который по умолчанию предлагается для печати чертежа в pdf?
Команда печати стандартная:

Код:

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

 (command "_.plot"    "_Yes"	 "model"
					;Имя листа или [?] <Модель>: 
		 printer		;напр., "HP LaserJet 5200 PCL 6 uchastok"
					;Имя устройства вывода 
		 format			;Формат листа бумаги, напр.: "A4"
		 "Millimeters"		;Единицы измерения размеров листа
		 orientation		;Ориентация чертежа
		 "_No"			;Перевернуть чертеж?
		 "_Window"		;Печатаемая область
		 xy1			;Первая точка окна 
		 xy2			;Вторая точка окна 
		 "_fit"			;[Вписать]
		 "_center"		;Смещение от начала (x,y) pdили [Центрировать]
		 "_yes"			;Учитывать стили печати?
		 style			;"acad.ctb" - имя таблицы стилей печати - "monochrome.ctb"	
		 "_yes"			;Учитывать веса линий?
		"As displayed"		;Режим вывода раскрашенных ВЭ		 

		 ;для большинства принтеров:
;;;		 "_No"			;Запись чертежа в файл
;;;		 "_n"			;Сохранить изменения параметров листа
;;;		 "_yes"			;Перейти к печати

		 ;для dwg-to-pdf:
		 pause		 	;тут вбиваем на клаве название файлу pdf: "01", "02" и т.д.
		 "_n"			;Сохранить изменения параметров листа
		 "_yes"			;Перейти к печати

		 
		 
		) ;_ end of command

Сергей812 · 29.03.2016, 01:09

Цитата:

Сообщение от Frigate

Прошу подсказать, как программно вытащить, а также записать путь, который по умолчанию предлагается для печати чертежа в pdf?

Возможно, в этой ветке.

mkung · 07.04.2016, 12:10

Удалено

Сет · 11.04.2016, 16:08

Подскажите, как программно достать точку вставки блока?

Nike · 11.04.2016, 16:34

Цитата:

Сообщение от Сет

Подскажите, как программно достать точку вставки блока?

(cdr (assoc 10 (entget (ssname (ssget "_:S" '((0 . "INSERT"))) 0))))
(cdr (assoc 10 (entget (car (entsel "\nУкажите блок: ")))))

Сет · 11.04.2016, 17:12

Цитата:

Сообщение от Nike

(cdr (assoc 10 (entget (ssname (ssget "_:S" '((0 . "INSERT"))) 0))))
(cdr (assoc 10 (entget (car (entsel "\nУкажите блок: ")))))

А если средствами ActiveX?

Кулик Алексей aka kpblc · 11.04.2016, 17:41

vla-get-insertionpoint

Сет · 11.04.2016, 18:02

Никак не пойму - можно ли сортировать vla-объекты в наборе по определенному условию? Создаю набор таким образом:

Код:

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

 
(setq acadObj (vlax-get-acad-object))
(setq doc (vla-get-ActiveDocument acadObj))

(setq ssetObj (vla-Add (vla-get-SelectionSets doc) "TEST_SSET"))
    
(vla-SelectOnScreen ssetObj)

Нужно отсортировать элементы по координате "y". Допустим с помощью метода vla-get-InsertionPoint получу доступ к точке вставки (я не проверял работоспособность этого метода, но в справке у объекта block почему-то нет свойства InsertionPoint). Но ведь к этому набору не применить метод типа vl-sort?.. Эта функция работает со списками. Или придется преобразовывать набор объектов в список и как-то так сортировать?..

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
LISP. Вставка в таблицу поля, соотвествующего площади примитива	Profan	Готовые программы	272	06.06.2021 23:12
Сейсмозащита и сейсмоизоляция существующих, построенных зд.	IANationalInformAgentstvo	Прочее. Архитектура и строительство	216	20.01.2015 16:51
Мониторы LCD CRT		Разное	94	17.06.2008 10:51
ЮМОР 2006 =)	Perezz!!	Разное	1122	04.01.2007 00:46

20.07.2008, 20:12
Научите лиспу на примере (или как kpblc, VVA и компания пытаются обучить чайника лиспу) Red Nova ՃԱՐՏԱՐԱԳԵՏ, Տ.Գ.Թ. Торонто Регистрация: 23.10.2007 Сообщений: 1,980 Со школы не ладится у меня с программированием. Все предметы щелкал, а на экзамене по информатике (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 _____________________________________________________________________________________________________________ Прошло много лет и топик теперь представляет из себя площадку для обучения азов программирования для многих начинающих. Так что начинающие лиспогрызы приветствуются . __________________ Блог Последний раз редактировалось Red Nova, 12.07.2017 в 05:43.
Просмотров: 1973326