[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

_____________________________________________________________________________________________________________

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

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

Пока все то же самое, что и под виндой. С некоторыми ограничениями на dcl, насколько я помню.

[Ingpro]

Сообщение от Ingpro Можно этот лисп использовать в связке с replace.lsp

Я пытаюсь вызвать лисп "Sel-mtxt-rpl" из лиспа "repl", добавив эти строки

Код:

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

 (load "Sel-mtxt-rpl")
(c:Sel-mtxt-rpl)
(c:repl)

Но это срабатывает только при первой загрузке, если повторить команду "repl", то она
запускается первой, а (load "Sel-mtxt-rpl") вообще не срабатывает.
Мне нужно, чтобы сначала сработал код "Sel-mtxt-rpl", затем "repl".
Посоветуйте,плз, как это можно исправить.

Код:

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

 (defun c:repl (/ actdoc copobj errcount extlst extset fromcen laycol maxpt curlay minpt objlay okcount olayst sclay tocen toobj vlaobj *error*)
  (vl-load-com)
  (defun *ERROR*(msg)
    (if olaySt
      (vla-put-Lock objLay olaySt)
      ); end if
    (vla-EndUndoMark actDoc)
    (princ)
    ); end of *ERROR*
  (defun GetBoundingCenter(vlaObj / blPt trPt cnPt)
  (vla-GetBoundingBox vlaObj 'minPt 'maxPt)
      (setq blPt(vlax-safearray->list minPt)
       trPt(vlax-safearray->list maxPt)
       cnPt(vlax-3D-point
        (list
             (+(car blPt)(/(-(car trPt)(car blPt))2))
             (+(cadr blPt)(/(-(cadr trPt)(cadr blPt))2))
          0.0
            ); end list
      ); end vlax-3D-point
     ); end setq
  ); end of GetBoundingCenter
  (if(not(setq extSet(ssget "_I")))
    (progn
      (princ "\nSelect the objects to replace ")
      (setq extSet(ssget))
      ); end progn
    ); end if
  (if(not extSet)
    (princ "\nDistination objects isn't selected!")
    ); end if
  (if
    (and
    extSet
    (setq toObj(entsel "\nSpecify the sample object "))
    ); and and
    (progn
      (setq actDoc
        (vla-get-ActiveDocument
          (vlax-get-Acad-object))
       layCol
        (vla-get-Layers actDoc)
       extLst
        (mapcar 'vlax-ename->vla-object
                    (vl-remove-if 'listp
                     (mapcar 'cadr(ssnamex extSet))))
       vlaObj(vlax-ename->vla-object(car toObj))
       objLay(vla-Item layCol
             (vla-get-Layer vlaObj))
       olaySt(vla-get-Lock objLay)
       fromCen(GetBoundingCenter vlaObj)
       errCount 0
       okCount 0
       ); end setq
      (vla-StartUndoMark actDoc)
      (foreach obj extLst
   (setq toCen(GetBoundingCenter obj)
         scLay(vla-Item layCol
              (vla-get-Layer obj))
              );end setq
   (if(/= :vlax-true(vla-get-Lock scLay))
     (progn
     (setq curLay(vla-get-Layer obj))
     (vla-put-Lock objLay :vlax-false)
     (setq copObj(vla-copy vlaObj))
     (vla-Move copObj fromCen toCen)
     (vla-put-Layer copObj curLay)
     (vla-put-Lock objLay olaySt)
     (vla-Delete obj)
     (setq okCount(1+ okCount))
     ); end progn
     (setq errCount(1+ errCount))
     ); end if
   ); end foreach
      (princ
   (strcat "\n" (itoa okCount) " were changed. "
      (if(/= 0 errCount)
        (strcat (itoa errCount) " were on locked layer! ")
        ""
        ); end if
      ); end strcat
   ); end princ
      (vla-EndUndoMark actDoc)
      ); end progn
    (princ "\nSource object isn't selected! ")
    ); end if
  (princ)
  ); end of c:repl

(load "Sel-mtxt-rpl")
(c:Sel-mtxt-rpl)
(c:repl)
(princ)

Если снова выполнить загрузку "repl", то это сработает, как надо...

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

Вопрос больше подходит под https://forum.dwg.ru/showthread.php?t=22894
А так - загрузку кода и вызов sel-mtxt-rpl стоит засунуть внутрь тела основной команды.

[Ingpro]

Сообщение от Кулик Алексей aka kpblc А так - загрузку кода и вызов sel-mtxt-rpl стоит засунуть внутрь тела основной команды.

Вопрос перенесён туда https://forum.dwg.ru/showthread.php?t=22894?

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

Перенес

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

Offtop: Но дайте мне развидеть этот код...

[Ingpro]

Сообщение от Кулик Алексей aka kpblc загрузку кода и вызов sel-mtxt-rpl стоит засунуть внутрь тела основной команды

Так тоже не получилось... Если в "sel-mtxt-rpl" добавить загрузку repl.lsp, то он (repl.lsp) загружается первым...

[name02]

Держи:
repl.lsp
Но на будущее - старайся писать понятнее - очень трудно понять что ты загружал...

[Ingpro]

Сообщение от name02 Держи: repl.lsp Но на будущее - старайся писать понятнее - очень трудно понять что ты загружал...

Ок, name02, спасибо, работает в нужном порядке!

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

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

Код:

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

 (defun c:repl (/ sel-mtxt-rpl actdoc copobj errcount extlst extset fromcen laycol maxpt curlay minpt objlay okcount olayst sclay tocen toobj vlaobj *error*
              )
  (vl-load-com)

  (defun *error* (msg)
    (if olayst
      (vla-put-lock objlay olayst)
    )     ; end if
    (vla-endundomark actdoc)
    (princ)
  )

  (defun getboundingcenter (vlaobj / blpt trpt cnpt)
    (vla-getboundingbox vlaobj 'minpt 'maxpt)
    (setq blpt (vlax-safearray->list minpt)
          trpt (vlax-safearray->list maxpt)
          cnpt (vlax-3d-point
                 (list
                   (+ (car blpt) (/ (- (car trpt) (car blpt)) 2))
                   (+ (cadr blpt) (/ (- (cadr trpt) (cadr blpt)) 2))
                   0.0
                 )
               )
    )
  )

  (defun sel-mtxt-rpl (/ mtext_filtered_sset mtext_sset pattern)
    (setq pattern             (getpropertyvalue (car (entsel "\nОбразец МТекста для фильтрации: ")) "text")
          mtext_filtered_sset (ssadd)
    )
    (if (setq mtext_sset (ssget '((0 . "mtext"))))
      (sssetfirst
        nil
        (foreach mtext
                       (vl-remove-if-not
                         '(lambda (mtext) (vl-string-search pattern (getpropertyvalue mtext "text")))
                         (vl-remove-if 'listp (mapcar 'cadr (ssnamex mtext_sset)))
                       )
          (ssadd mtext mtext_filtered_sset)
        )
      )
    )
    (princ)
  )

  (sel-mtxt-rpl)
  (if (not (setq extset (ssget "_I")))
    (progn
      (princ "\nSelect the objects to replace ")
      (setq extset (ssget))
    )     ; end progn
  )       ; end if
  (if (not extset)
    (princ "\nDistination objects isn't selected!")
  )       ; end if
  (if
    (and
      extset
      (setq toobj (entsel "\nSpecify the sample object "))
    )     ; and and
     (progn
       (setq actdoc   (vla-get-activedocument (vlax-get-acad-object))
             laycol   (vla-get-layers actdoc)
             extlst   (mapcar 'vlax-ename->vla-object
                              (vl-remove-if
                                'listp
                                (mapcar 'cadr (ssnamex extset))
                              )
                      )
             vlaobj   (vlax-ename->vla-object (car toobj))
             objlay   (vla-item laycol
                                (vla-get-layer vlaobj)
                      )
             olayst   (vla-get-lock objlay)
             fromcen  (getboundingcenter vlaobj)
             errcount 0
             okcount  0
       )  ; end setq
       (vla-startundomark actdoc)
       (foreach obj extlst
         (setq tocen (getboundingcenter obj)
               sclay (vla-item laycol
                               (vla-get-layer obj)
                     )
         ) ;end setq
         (if (/= :vlax-true (vla-get-lock sclay))
           (progn
             (setq curlay (vla-get-layer obj))
             (vla-put-lock objlay :vlax-false)
             (setq copobj (vla-copy vlaobj))
             (vla-move copobj fromcen tocen)
             (vla-put-layer copobj curlay)
             (vla-put-lock objlay olayst)
             (vla-delete obj)
             (setq okcount (1+ okcount))
           ) ; end progn
           (setq errcount (1+ errcount))
         ) ; end if
       )  ; end foreach
       (princ
         (strcat "\n"
                 (itoa okcount)
                 " were changed. "
                 (if (/= 0 errcount)
                   (strcat (itoa errcount) " were on locked layer! ")
                   ""
                 ) ; end if
         ) ; end strcat
       )  ; end princ
       (vla-endundomark actdoc)
     )    ; end progn
     (princ "\nSource object isn't selected! ")
  )       ; end if
  (princ)
)

----- добавлено через 52 сек. -----
Пока бегал по делам, опередили )

[Ingpro]

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

Алексей, спасибо! И этот код работает! Только просит выбрать объекты вот таким текстом:
Ia?acao IOaenoa aey oeeuo?aoee:
Он и в коде такой почему-то... строка 028 (заменить на: Образец МТекста для фильтрации
Если можно я выложу эти коды в готовые программы, думаю многим будет полезен...

[name02]

Сообщение от Ingpro Если можно я выложу эти коды в готовые программы, думаю многим будет полезен...

Быть может и полезен, только все-таки твою программу надо доработать:
1 Сделать по-русски поясняющие надписи во время работы команды
2 Многие переменные у тебя не объявлены локально - замусоривают память компьютера. Плюс теоретически имена переменных могут совпадать с переменными других программ - что может вызвать ошибки работы

Поправь, не поленись, доведи до ума!

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

Исправил. Постоянно забываю про особенности копирования кода из VLIDE...

[Ingpro]

Сообщение от name02 Быть может и полезен, только все-таки твою программу надо доработать: 1 Сделать по-русски поясняющие надписи во время работы команды 2 Многие переменные у тебя не объявлены локально - замусоривают память компьютера. Плюс теоретически имена переменных могут совпадать с переменными других программ - что может вызвать ошибки работы

...поясняющие надписи по-русски я сделаю, с переменными могу запутаться...

[name02]

Про переменные посмотри тут https://storage.piter.com/upload/new...00467/ch33.pdf pdf-страница номер 10 (описание функции defun).
Если кратко - то все что пишется в скобках после defun - локальные переменные, до знака "/" - аргументы функции (входные переменные), а после знака "/" - переменные используемые во время работы функции. И те и другие "живут" только во время выполнения кода функции

[Ingpro]

Сообщение от name02 Про переменные посмотри тут https://storage.piter.com/upload/new...00467/ch33.pdf pdf-страница номер 10 (описание функции defun).

Спасибо, попробую разобраться...

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

Я бы всерьез задумался о следующем:
1. Обработка ошибок, особенно для варианта запроса чего бы то ни было у пользователя
2. Практически полная переделка логики: какой смысл запрашивать по 100500 наборы, когда можно в лучшем случае обойтись одним?
3. Про области видимости и доступность переменных / локальных функций уже сказали.

[Ingpro]

Сообщение от name02 после знака "/" - переменные используемые во время работы функции

Значит, здесь перечислены только переменные используемые во время работы функции?

Код:

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

 (defun c:repl1 (/ sel-mtxt-rpl actdoc copobj errcount extlst extset fromcen laycol maxpt curlay minpt objlay okcount olayst sclay tocen toobj vlaobj *error*)

(defun sel-mtxt-rpl (/ mtext_filtered_sset mtext_sset pattern)

А локальные создаются с помощью setq?

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

https://autolisp.ru/2011/06/08/funct...bility-region/ :?:

[Ingpro]

Сообщение от name02 Если кратко - то все что пишется в скобках после defun - локальные переменные, до знака "/" - аргументы функции (входные переменные), а после знака "/" - переменные используемые во время работы функции.

Во многих лисп переменные (все?) записываются после ( / ...), варианты до знака "/" мне не встречались...
Например:

Код:

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

 (defun c:ctan ( / *error* grcircle grarc grgetpoint an1 an2 cn1 cn2 di1 di2 ocs rd1 rd2 tmp )