[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

_____________________________________________________________________________________________________________

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

[name02]

Сообщение от Ingpro А какую ошибку будем ловить в лиспе #4837, выход по Esc?

В русском автокаде нажатие Esc выводит сообщение "Функция прервана."
А уж что делать в случае этой ошибки сам решай - удалять все что создано с момента запуска или ничего или еще что-то

[Ingpro]

Сообщение от name02 В русском автокаде нажатие Esc выводит сообщение "Функция прервана." А уж что делать в случае этой ошибки сам решай - удалять все что создано с момента запуска или ничего или еще что-то

Если бы знал, что делать, не спрашивал бы...
Во многих программах нет отлова ошибок... потому что не все функции этого требуют? или по другим причинам?

[koMon]

потому что красивое окончание/прерывание программы практически не влияет на результат её выполнения.

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

Вопрос - что будет, если пользователь на запрос имени комнаты нажмет Esc? Или при запросе точки?
ИМХО код условия в while должен быть наподобие

Код:

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

 and 
 (= 
   (type 
     (setq Roomname (vl-catch-all-apply 
                      (function 
                        (lambda () 
                          (getstring t "\nEnter room name: ")
                        )
                      )
                    )
     )
   )
   'str
 )
 (/= roomname "")
 (= 
   (type 
     (setq fc (vl-catch-all-apply 
                (function 
                  (lambda () 
                    (getpoint "\nFirst point <Cancel> : ")
                  )
                )
              )
     )
   )
   'list
 )
 fc
 (= 
   (type 
     (setq nc (vl-catch-all-apply 
                (function 
                  (lambda () 
                    (initget 32)
                    (getcorner fc "\nPick Next corner")
                  )
                )
              )
     )
   )
   'list
 )
 nc
    )

Код не проверял, если что

[Ingpro]

Сообщение от koMon потому что красивое окончание/прерывание программы практически не влияет на результат её выполнения.

Т.е. чисто визуальная красота и никакого сбоя программы?

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

Сообщение от Кулик Алексей aka kpblc Вопрос - что будет, если пользователь на запрос имени комнаты нажмет Esc? Или при запросе точки? ИМХО код условия в while должен быть наподобие

Код работает, но пишет в ком. строке:
Enter room name: *Прервано*
First point <Cancel> : *Прервано*
; ошибка: неверный тип аргумента: consp #<%catch-all-apply-error%>

Код:

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

  (defun c:RoomLabel3 (/  Roomname fc nc h v str p) 
  (while 
   (and 
(= 
  (type 
    (setq Roomname (vl-catch-all-apply 
                     (function 
                       (lambda () 
                         (getstring t "\nEnter room name: ")
                       )
                     )
                   )
    )
  )
  'str
)
(/= roomname "")
(= 
  (type 
    (setq fc (vl-catch-all-apply 
               (function 
                 (lambda () 
                   (getpoint "\nFirst point <Cancel> : ")
                 )
               )
             )
    )
  )
  'list
)
fc
(= 
  (type 
    (setq nc (vl-catch-all-apply 
               (function 
                 (lambda () 
                   (initget 32)
                   (getcorner fc "\nPick Next corner")
                 )
               )
             )
    )
  )
  'list
    )
nc
)

    (setq h (abs (- (car fc) (car nc)))
          v (abs (- (cadr fc) (cadr nc)))
    )
    (setq str (strcat (strcase Roomname) 
                      "\\P"
                      (rtos h 2 2)
                      " x "
                      (rtos v 2 2)
                                    )
    )
    (setq p (mapcar (function (lambda (a b) (/ (+ a b) 2.))) fc nc))
    (entmakex 
      (list (cons 0 "MTEXT") 
            (cons 100 "AcDbEntity")
            (cons 100 "AcDbMText")
            (cons 10 (trans p 1 0))
            (cons 1 str)
            (cons 41 (- (car p) (car p)))
            (cons 71 5)
            (cons 72 5)
            (cons 73 1)
            (cons 7 (getvar 'TextStyle))
      )
    )
  )
  (princ)
)

че-то по Esc не выходит вообще, приходится принудительно выключать AutoCad...

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

А нечего просто копировать код ) Скобку перед and Пушкин ставить будет?

[Ingpro]

Сообщение от Кулик Алексей aka kpblc А нечего просто копировать код ) Скобку перед and Пушкин ставить будет?

Скобку Пушкин поставил, код #4845 исправил
(while
( and
......
теперь в ком. строке:
Enter room name: *Прервано*
Это красиво?

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

Вот только не надо - ты зачем строку 16 закомментировал?

----- добавлено через ~3 мин. -----
Скопируй свой код в VLIDE и там проверяй, где какая конструкция начинается и заканчивается.

[koMon]

Сообщение от Ingpro Т.е. чисто визуальная красота и никакого сбоя программы?

не, ну если начать нажимать что попало, например esc посерёд программы, то это естественно вызовет аварийное завершение, которое сбоем назвать можно с натяжкой. а если обходится без предыдущего, то вполне себе да)

[Ingpro]

Сообщение от Кулик Алексей aka kpblc Вот только не надо - ты зачем строку 16 закомментировал?

Да это не надо, AutoCad писал про лишнюю скобку, но сейчас нормально...
А *error* добавлять? Где про это почитать?..

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

https://autolisp.ru/2009/09/13/error-catch/

[Ingpro]

Сообщение от Кулик Алексей aka kpblc https://autolisp.ru/2009/09/13/error-catch/

Я там был, но...
"Что и где применять - в принципе, каждый решает сам..."
В каких конкретно функциях применять

Код:

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

 (defun *error* (msg)
      (princ (strcat "\n fun_func-2 error : " msg))
      (princ)
      ) ;_ end of defun

Вместо fun_func-2 нужно ставить что-то другое?

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

Лично я предпочитаю *error* не трогать.

[Ingpro]

В данном случае можно применить такую комбинацию с *error*: ???

Код:

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

  (defun c:RoomLabel-err (/  *error* Roomname fc nc h v str p) 
(defun *error* (msg)
 (if (not
  (member msg '("Function cancelled" "quit / exit abort"))
  )
  (princ msg)
 )
)
  (while 
    (and 
      (setq Roomname (getstring t "\nEnter room name: "))
      (setq fc (getpoint "\nPick first corner"))
      (null (initget 32))
      (setq nc (getcorner fc "\nPick Next corner"))
    )
    (setq h (abs (- (car fc) (car nc)))
          v (abs (- (cadr fc) (cadr nc)))
    )
    (setq str (strcat (strcase Roomname) 
                      "\\P"
                      (rtos h 2 2)
                      " x "
                      (rtos v 2 2)
                                )
    )
    (setq p (mapcar (function (lambda (a b) (/ (+ a b) 2.))) fc nc))
    (entmakex 
      (list (cons 0 "MTEXT") 
            (cons 100 "AcDbEntity")
            (cons 100 "AcDbMText")
            (cons 10 (trans p 1 0))
            (cons 1 str)
            (cons 41 (- (car p) (car p)))
            (cons 71 5)
            (cons 72 5)
            (cons 73 1)
            (cons 7 (getvar 'TextStyle))
      )
    )
  )
  (princ)
)

в ком. строке после Esc:
Enter room name: *Прервано*
Функция отменена
Prettily?

[Ingpro]

Я хочу выбрать рамкой отдельные тексты и преобразовать в отдельные мтексты.
Express-команда TXT2MTX объединяет выбранные тексты в один мтекст.
Если просто набрать в комстроке TXT2MTX (или _.txt2mtx) это работает.

Код:

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

 (defun c:t2mt ( / ss i )
(vl-load-com)
		(setq ss (ssget '((0 . "TEXT"))) i -1)
		(while (< (setq i (1+ i)) (sslength ss))
		 (vl-cmdf "_.txt2mtx" (ssname ss i) "")
	)
		(princ)
)

Почему-то не узнается команда
Неизвестная команда "TXT2MTX".
<имя объекта: FF824700>
Как можно исправить, плз?

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

Попробуй использовать handent

[Ingpro]

Сообщение от Кулик Алексей aka kpblc Попробуй использовать handent

А это куда?

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

(ssname ss i)
преобразуется в (handent (cdr(assoc 5 (entget (ssname ss i)))))
Как-то так примерно

[Ingpro]

Сообщение от Кулик Алексей aka kpblc (ssname ss i) преобразуется в (handent (cdr(assoc 5 (entget (ssname ss i)))))

Код:

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

 (defun c:t2mt ( / ss i )
(vl-load-com)
		(setq ss (ssget '((0 . "TEXT"))) i -1)
		(while (< (setq i (1+ i)) (sslength ss))
		 ;(vl-cmdf "_.txt2mtxt" (ssname ss i) "")
(vl-cmdf "_.txt2mtxt" (handent (cdr(assoc 5 (entget (ssname ss i))))) "")
	)
		(princ)
)

Неизвестная команда "TXT2MTX".
<имя объекта: FF824860>

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

Ты со скобками в строке 6 не ошибся?