[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

_____________________________________________________________________________________________________________

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

[La Persona]

Доброго всем времени суток! Подскажите, пожалуйста, почему значения num_cu и num_ou остаются пустыми? Код DCL и LISP приведены ниже.
Форма благополучно вызывается, забиваю значения, но переменные остаются пустыми..

Код:

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

 (defun num-dialog-handler( / dcl_id num_ou num_cu)
  (if (< (setq dcl_id (load_dialog "C:\\Documents and Settings\\user\\Ìîè äîêóìåíòû\\Automation LISP\\dialog_num.dcl")) 0) (exit))
  (if (not (new_dialog "dialog_num" dcl_id)) (exit))
  (setq num_cu (atoi (get_tile "kNum_cu")))
  (setq num_ou (atoi (get_tile "kNum_ou")))
  (setq num_list (list num_cu num_ou))
  (start_dialog)
  (unload_dialog dcl_id)
)

Код:

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

 
dialog_num: dialog {label="Êîëè÷åñòâî êðàíîâûõ óçëîâ è îòêðûòûõ ó÷àñòêîâ";
:edit_box{label="Êîëè÷åñòâî êðàíîâûõ óçëîâ"; key="kNum_cu";
	edit_width=12; edit_limit=24;}
:edit_box{label="Êîëè÷åñòâî îòêðûòûõ ó÷àñòêîâ"; key="kNum_ou";
	edit_width=12; edit_limit=24;}
ok_button;
}

[Дима_]

Вас порядок действий не смущает?

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

А в каком месте проверяешь? Это ж у тебя локальные переменные!

[gomer]

Сообщение от La Persona почему значения num_cu и num_ou остаются пустыми?

про action_tile не знал, да еще и забыл

[La Persona]

Сообщение от Дима_ Вас порядок действий не смущает?

А должен? О каком порядке идет речь?

Сообщение от Кулик Алексей aka kpblc А в каком месте проверяешь? Это ж у тебя локальные переменные!

По окну контрольных значений.

Сообщение от gomer про action_tile не знал, да еще и забыл

Разве (setq num_cu (get_tile "kNum_cu") не равнозначно (action_tile "kNum_cu" "(setq num_cu $value)")??

[gomer]

Сообщение от La Persona Разве (setq num_cu (get_tile "kNum_cu") не равнозначно (action_tile "kNum_cu" "(setq num_cu $value)")??

отнюдь, более того

Сообщение от La Persona (action_tile "kNum_cu" "(setq num_cu $value)")

это вообще моветон

в простых диалогах есть только два элемента, достойные action_tile - это кнопки accept и cancel (которой у вас нет, а она нужна, хотя бы потому, что пользователь должен иметь возможность отменить команду)

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

Offtop: Что значит дурная привычка использовать callback-функцию целиком на диалог!

[gomer]

ООП, каг бэ

[La Persona]

Сообщение от gomer ООП, каг бэ

Offtop: что наподобие )) .NETом все мозги уже замылились
Так что все-таки использовать: get_tile или action_tile? Если не затруднит - набросайте код, как примерно оно всё должно выглядеть.. Моё творения отказывается работать должным образом

[gomer]

La Persona, причем тут нет, вы должны понять что вообще происходит, тогда код сам напишется
по порядку грузим диалог, из файла назначаем кнопкам их действия, запускаем диалог, ждем выхода, отлавливая результат, выгружаем диалог
второй пункт подробнее: чтоб кнопка accept отловила значение полей ввода, ей нужно задать действие - отловить значения таких-то полей. Если перевести вышесказанное с русского на лисп, то можно увидеть, что и то и то нужно

[La Persona]

Сообщение от gomer по порядку грузим диалог, из файла назначаем кнопкам их действия, запускаем диалог, ждем выхода, отлавливая результат, выгружаем диалог второй пункт подробнее: чтоб кнопка accept отловила значение полей ввода, ей нужно задать действие - отловить значения таких-то полей. Если перевести вышесказанное с русского на лисп, то можно увидеть, что и то и то нужно

Благодарствую, подсказка помогла )
В итоге родилось это:

Код:

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

 (defun num-dialog-handler (/ dcl_id num_ou num_cu)
  (if (< (setq dcl_id (load_dialog "C:\\WK\\dialog_num.dcl")) 0)
    (exit)
  )
  (if (not (new_dialog "dialog_num" dcl_id))
    (exit)
  )
  (action_tile
    "accept"
    (strcat
      "(setq num_cu (get_tile \"kNum_cu\"))"
      "(setq num_ou (get_tile \"kNum_ou\"))"
      "(done_dialog)"
    )
  )
  (start_dialog)
  (unload_dialog dcl_id)
  (setq num_list (list num_cu num_ou))
)

[gomer]

Сообщение от La Persona В итоге родилось это:

очень мило, а теперь попробуйте избавиться от абсолютного пути в имени файла диалога, одного setq, добавить кнопку отмена и ее обработчик (см. внимательно функции start_dialog и done_dialog) и наконец избавиться от num_list

[ShaggyDoc]

очень мило, а теперь попробуйте ....

...подумать, что будет гадать пользователь, если условия if будут выполняться. Функция будет молча не работать. Надо сообщения давать.

[dirge]

Всем привет! Ребят, есть такая задача. Опишу приведённое вложение в письме. Нужно соединить полилинии (geo_base и geo_extend), так чтобы можно было выбирать направление соединения, иными словами щёлкнули по базовой геометрии потом по той линии которую хотим удлинить и ещё раз либо справа от "мнимой" точки пересечения либо слева и вся геометрия повторилась по тем же координатам (синяя или зелёная линия). Вроде бы казалось ничего сложного, но есть момент который я не могу понять как решить. Вся засада в том, что заранее неизвестно в какой последовательности идут номера точек объектов, а ведь они могут идти и в обратном направлении, а это тогда получится совсем другая геометрия.

[Дима_]

Лично я ничего не понял - какие линии с чем соединять - попробуйте по шагам расписать - как должен получается результат (там может и сами ответ найдете).

[VVA]

Сообщение от dirge Вся засада в том, что заранее неизвестно в какой последовательности идут номера точек объектов, а ведь они могут идти и в обратном направлении

1. Можно узнать "в каком направлении" идет полилиния см. ф-цию lwcl
2. Принудительно преобразовать все полилинии к одному виду (ВСЕ по часовой или ВСЕ ПРОТИВ ЧАСОВОЙ). см. здесь или здесь

[dirge]

Сообщение от VVA 1. Можно узнать "в каком направлении" идет полилиния см. ф-цию lwcl 2. Принудительно преобразовать все полилинии к одному виду (ВСЕ по часовой или ВСЕ ПРОТИВ ЧАСОВОЙ). см. здесь или здесь

Большое спасибо за ссылки, направили на нужное русло меня.

[La Persona]

Здравствуйте! Подскажите, пожалуйста, как узнать координаты AttachmentPoint объекта MText?

Код:

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

     (setq mtext_obj (vla-AddMText
	    (vla-get-ModelSpace
	      (vla-get-ActiveDocument (vlax-get-acad-object))
	    ) ;_ end of vla-get-ModelSpace
	    (vlax-3D-point pt11) 20
	      (strcat
		"{\\A1;"
		(itoa k)
		"\\P"
		"замер"
		" }"
	      )
	  ) ;_ end of vla-AddMText
    ) ;_ end of setq
    (vla-put-AttachmentPoint mtext_obj acAttachmentPointBottomCenter)

[Никита Ремизов]

Здравствуйте! а можно ли как-нибудь в этом лиспе сделать так, чтобы задание "направления копирования" и "участка копирования" производилось в одно действие?

Код:

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

(defun C:MASSIV ()
(setvar "cmdecho" 0)
(setvar "osnapcoord" 1)
(prompt "\nВыберите объекты: ")
(setq old_error *error*)
(setq *error* ERR_)
(setq
     LL        (ssget)
     W         (entget (ssname LL 0))
     TN        (cdr (assoc 10 W))
     S         (getreal "\n Шаг копирования: ")
);setq
(setq
     UG        (getangle "\n Направление копирования: <горизонтально> ")
);
(if (= UG nil)
(setq UG 0)
);if
(setq
     L         (getdist "\n Участок копирования: ")     
     Q         (fix (/ L S))
     TK        (polar TN UG S)
     N         2)
(command "_.undo" "_be")
(repeat Q
(command "_.copy" LL "" TN TK)
(setq
      S1       (* S N)
      TK       (polar TN UG S1)
      N        (+ 1 N))
);repeat
(command "_.undo" "_end") 
(setq *error* old_error)
);setq
(defun ERR_ (msg)
(command "_.undo" "_end")
(setq *error* old_error)
(princ)
)efun ERR

[AlexSheep]

Сообщение от La Persona Подскажите, пожалуйста, как узнать координаты AttachmentPoint объекта MText?

AttachmentPoint - не координата, а способ выравнивания текста относительно координаты вставки (InsertionPoint)