[Ingpro]

Всем доброго дня!
Некоторые коды, в которых есть (rtos (cal... иногда перестают работать...
Выберите текст или мтекст: ; ошибка: no function definition: C:CAL.
Тема поднялась сначала https://forum.dwg.ru/showthread.php?t=168218 "Назначить разделители в лиспе"
(лиспы из постов #17, #26 и # 29 изначально работали), но думаю будет правильно создать отдельную тему...
Были предложения загрузить geomcal.arx, но странная вещь, после вызова программы sumT.lsp (правка см. пост #6)
(https://forum.dwg.ru/showpost.php?p=...&postcount=564 "Как сосчитать сумму цифр из отдельных мтекстов")
эта ошибка исчезает и лиспы с функцией "cal" снова нормально работают...
Ув. знатоки, подскажите, что происходит при запуске sumT.lsp, что положительно влияет на функцию "cal" в других кодах.
Это пример кода с функцией "cal":

Код:

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

 (defun c:МАВ (/ m_text_object result)
  (setq m_text_object (vlax-ename->vla-object (car (entsel "\Select text or mtext: "))))
  (vla-addtext (vla-get-block (vla-get-activelayout (vla-get-activedocument (vlax-get-acad-object))))
			   (setq result (rtos (cal (vl-string-translate "," "." (vla-get-textstring m_text_object))) 2 2))
			   (vlax-3d-point (getpoint (strcat "\nУкажите точку для вставки результата (" result "): ")))
			   20
  )
  (princ)
)

[Сергей812]

загрузка geomcal помогает? если да - кинули в автозагрузку и забыли. Зоопарк чужих программ из разных источников - хорошо, что вообще работает)

[Ingpro]

Сообщение от Сергей812 загрузка geomcal помогает

Не было никакой загрузки geomcal, просто после запуска sumT.lsp, все коды с функцией "cal" заработали...
Думаю, есть в sumT.lsp что-то, что можно добавить в коды с функцией "cal" для корректной работы...

[koMon]

Сообщение от Ingpro что происходит при запуске sumT.lsp

учитывая что несрабатывание c:cal в предыдущих сообщениях было связано с отсутствием загрузки самого калькулятора, маловероятно что загрузка sumt.lsp может на это как-то влиять. чтобы раскопать причины нужна однозначная повторяемость косяка, а не единичное его проявление.

[Ingpro]

Сообщение от koMon учитывая что несрабатывание c:cal в предыдущих сообщениях было связано с отсутствием загрузки самого калькулятора

Неизвестно, что загрузка самого калькулятора отсутствует...

[Ingpro]

Сообщение от Ingpro после запуска sumT.lsp, все коды с функцией "cal" заработали...

Уточнение по поводу запуска функции CAL, функция CAL начинает работать не после запуска SumT.lsp,
а после запуска программы суммирования текстов Txt2Field.lsp (модифицированная FieldArithmeticV1-2.lsp Lee mac).
Поле суммы нескольких текстов https://forum.dwg.ru/showthread.php?p=2019408
Проверялось на нескольких компах и в AutoCAD 2015, 2020 rus.

Код:

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

 ;;  Author: Lee Mac & dwg.ru gumel, Copyright © 2014  -  www.lee-mac.com ;;
(defun c:Txt2Field ( / *error* fmt inc ins lst sel str )

 (setq fmt "%lu2%pr2%") ;; Field Formatting

    (defun *error* ( msg )
        (LM:endundo (LM:acdoc))
        (if (not (wcmatch (strcase msg t) "*break,*cancel*,*exit*"))
            (princ (strcat "\nError: " msg))
        )
        (princ)
    )

    (if (and (setq sel (ssget '((0 . "TEXT,MTEXT"))))
             (setq ins (getpoint "\nPick point or cell for field: "))
        )
        (progn
            (if (setq tmp
                    (ssget "_X"
                        (list '(0 . "ACAD_TABLE")
                            (if (= 1 (getvar 'cvport))
                                (cons 410 (getvar 'ctab))
                               '(410 . "Model")
                            )
                        )
                    )
                )
                (repeat (setq idx (sslength tmp))
                    (setq tab (cons (vlax-ename->vla-object (ssname tmp (setq idx (1- idx)))) tab))
                )
            )
            (if (= 1 (sslength sel))
                (setq str
                    (strcat
                        "%<\\AcObjProp Object(%<\\_ObjId "
                        (LM:ObjectID (vlax-ename->vla-object (ssname sel 0)))
                        ">%).TextString \\f \"" fmt "\">%"
                    )
                )
                (progn
                    (repeat (setq idx (sslength sel))
                        (setq lst
                            (vl-list*
                                "%<\\AcObjProp Object(%<\\_ObjId "
                                (LM:ObjectID (vlax-ename->vla-object (ssname sel (setq idx (1- idx)))))
                                ">%).TextString>%" " + "
                                lst
                            )
                        )
                    )
                    (setq str
                        (strcat
                            "%<\\AcExpr "
                            (apply 'strcat (reverse (cdr (reverse lst))))
                            " \\f \"" fmt "\">%"
                        )
                    )
                )
            )
            (LM:startundo (LM:acdoc))
            (if (setq tmp (LM:getcell tab (trans ins 1 0)))
                (apply 'vla-settext (append tmp (list str)))
                (vla-addmtext
                    (vlax-get-property (LM:acdoc) (if (= 1 (getvar 'cvport)) 'paperspace 'modelspace))
                    (vlax-3D-point (trans ins 1 0))
                    0.0
                    str
                )
            )
            (LM:endundo (LM:acdoc))
        )
    )
    (princ)
)

;; Returns a string containing the ObjectID of a supplied VLA-Object
 
(defun LM:ObjectID ( obj )
    (eval
        (list 'defun 'LM:ObjectID '( obj )
            (if
                (and
                    (vl-string-search "64" (getenv "PROCESSOR_ARCHITECTURE"))
                    (vlax-method-applicable-p (vla-get-utility (LM:acdoc)) 'getobjectidstring)
                )
                (list 'vla-getobjectidstring (vla-get-utility (LM:acdoc)) 'obj ':vlax-false)
               '(itoa (vla-get-objectid obj))
            )
        )
    )
    (LM:ObjectID obj)
)

;; Opens an Undo Group.
 
(defun LM:startundo ( doc )
    (LM:endundo doc)
    (vla-startundomark doc)
)
 
;; Closes an Undo Group.
 
(defun LM:endundo ( doc )
    (while (= 8 (logand 8 (getvar 'undoctl)))
        (vla-endundomark doc)
    )
)
 
;; Returns the VLA Active Document Object
 
(defun LM:acdoc nil
    (eval (list 'defun 'LM:acdoc 'nil (vla-get-activedocument (vlax-get-acad-object))))
    (LM:acdoc)
)
 
(vl-load-com) (princ)

Может включается какая-нибудь системная переменная?..

[Сергей812]

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

[Ingpro]

Сообщение от Сергей812 хотите иметь пакет надстроек с гарантированным результатом работы

Использую много лиспов, но с таким сталкиваюсь впервые, может кто поймет в чем проблема...
И для создания новых кодов с функцией CAL будет полезно...

[===AAA===]

Так о чем всё же речь идёт - о (C:CAL ...), как в названии Темы
или о (cal ...), как в приведённом примере:

Некоторые коды, в которых есть (rtos (cal... иногда перестают работать...

Это как бы немного разные вещи...

Судя по сообщению, внутри функции (cal ) в "правильном файле" производится
определение функции (c:cal ...), которое превращается в nil после загрузки
или отработки "неправильного" файла.

[Ingpro]

Сообщение от ===AAA=== Так о чем всё же речь идёт - о (C:CAL ...), как в названии Темы или о (cal ...)

Нет разницы CAL или cal... Одинаково пишет в ком. строке "no function definition: C:CAL"...

Этот код заменяет на результат группу отдельных текстов или мтекстов (с умножением двух чисел, выражения типа 25*36).
В коде вообще нет функции CAL?..

Код:

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

 (defun c:У2 ( / ss i e ex txt n1 n2 )
  (if (setq ss (ssget "_:L" (list (cons 0 "*TEXT"))))
    (repeat (setq i (sslength ss))
      (setq e (ssname ss (setq i (1- i))))
      (setq txt (cdr (assoc 1 (setq ex (entget e)))))
      (setq n1 (substr txt 1 (1+ (vl-string-search "*" txt))))
      (setq n2 (substr txt (+ 2 (vl-string-search "*" txt))))
      (setq n1 (atof n1))
      (setq n2 (atof n2))
      (setq txt (rtos (* n1 n2) 2 2))
      (entupd (cdr (assoc -1 (entmod (subst (cons 1 txt) (assoc 1 ex) ex)))))
    )
  )
  (princ)
)

[koMon]

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

то есть если запустить автокад в первый раз и не грузить никаких программ суммирования и ваще никаких lisp-программ и проверить работу cal, например так (cal "1+2+3"), то автокад скажет, что функция cal неизвестна?

[Ingpro]

Сообщение от koMon (cal "1+2+3"), то автокад скажет, что функция cal неизвестна?

Именно так при первом запуске:
Команда: (cal "1+2+3")
; ошибка: no function definition: CAL
Потом запускаю Txt2Field.lsp и все коды с CAL работают
Команда: (cal "1+2+3")
6
И во всех потом открытых файлах всё работает...

[koMon]

Сообщение от ===AAA=== Это как бы немного разные вещи...

чего это? это один загруженный внешний arx модуль: и команда и функция.

Код:

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

Command: (+ cal 1)
; error: bad argument type: numberp: #<SUBR @00000213560e8908 <EXRXSUBR>>
Command: (+ c:cal 1)
; error: bad argument type: numberp: #<SUBR @00000213560e8908 <EXRXSUBR>>

[Ingpro]

Сообщение от koMon Command: (+ cal 1) ; error: bad argument type: numberp: #<SUBR @00000213560e8908 <EXRXSUBR>

Код:

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

 Команда: (+ cal 1)
; ошибка: неверный тип аргумента: numberp: #<SUBR @00000000373e8930 <EXRXSUBR>>
Команда: (+ c:cal 1)
; ошибка: неверный тип аргумента: numberp: #<SUBR @00000000373e8930 <EXRXSUBR>>

Цифры разные 8908 и 8930...
Может для AutoCAD rus надо команду КАЛЬК?
Команда: КАЛЬК
>> Выражение: 1+2+3
6
Если в лиспе из поста#1 заменить cal на кальк, код тоже работает, но только после запуска Txt2Field.lsp

Код:

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

  (defun c:МАВ (/ m_text_object result)
  (setq m_text_object (vlax-ename->vla-object (car (entsel "\Select text or mtext: "))))
  (vla-addtext (vla-get-block (vla-get-activelayout (vla-get-activedocument (vlax-get-acad-object))))
			   (setq result (rtos (кальк (vl-string-translate "," "." (vla-get-textstring m_text_object))) 2 2))
			   (vlax-3d-point (getpoint (strcat "\nУкажите точку для вставки результата (" result "): ")))
			   20
  )
  (princ)
)

[koMon]

Сообщение от Ingpro Именно так при первом запуске:

тогда для начала надо проверить при первом запуске автокада загруженность cal, запустив appload и найти есть ли калькулятор в загруженных приложениях.

----- добавлено через ~17 мин. -----
блин, это русский автокад. по ходу косяк похоже из-за локализации.

[Ingpro]

Сообщение от koMon блин, это русский автокад. по ходу косяк похоже из-за локализации

Вот такое есть..
Загружаю geomcal, добавляю в автозагрузку, вроде все коды работают...
But why did they work without it? the question is rhetorical...
Всем спасибо за участие...

[koMon]

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

дык вроде с этого и начинали копать)))

[===AAA===]

чего это? это один загруженный внешний arx модуль: и команда и функция.

Да кто бы спорил?

Но в примере:

Некоторые коды, в которых есть (rtos (cal... иногда перестают работать... Выберите текст или мтекст: ; ошибка: no function definition: C:CAL.

при вызове функции (cal ...) в "ошибке" говорится именно про c:cal

Т.е. про "C:ххх".

Иными словами - вызываем функцию ХХХ и получаем сообщение, что функция YYY не определена.

В примере:

Command: (+ cal 1) ; error: bad argument type: numberp: #<SUBR @00000213560e8908 <EXRXSUBR>> Command: (+ c:cal 1) ; error: bad argument type: numberp: #<SUBR @00000213560e8908 <EXRXSUBR>>

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

А регистр - да, конечно не важен.

[koMon]

Сообщение от ===AAA=== на мой взгляд, оба раза сообщения касаются встроенной функции "+"

естественно ей подсунули вместо числа, а она показывает что именно ей подсунули) EXternal Runtime eXtension SUBRoutine.

[===AAA===]

Значит в *.arx это может быть один и тот же указатель?
Интересно... Ибо в "простом LISP" они разные:

Команда: (defun a1 () (setq a (+ 1 1))) A1 Команда: (defun c:a1 () (setq a (+ 1 1))) C:A1 Команда: (+ 1 a1) неверный тип аргумента: numberp: #<SUBR @00000175e6dc37a0 A1> Команда: (+ 1 c:a1) неверный тип аргумента: numberp: #<SUBR @00000175e6dc38b8 C:A1>

А, я понял, о чем речь!

Сперва определяем (defun c:a1 () (setq a (+ 1 1)))
а потом присваиваем (setq a1 c:a1)

Сорри, но в чем смысл этого действия?

[koMon]

да нет никакого смысла, просто показать, что cal и с:cal в одном внешнем модуле.

[Сергей812]

И, кстати, по русски в справке написано

Prerequisites: The GeomCal ObjectARX application must be loaded before the function can be called, (arxload "geomcal").

[Ingpro]

Перед вызовом функции должно быть загружено приложение GeomCal ObjectARX (arxload "geomcal").
А загружаем GeomCal.crx... это разве одно и то же?

[Сергей812]

сначала было расширение arx, потом стало crx. Вам главное чтобы работало или до расширения докопаться решили?) По факту crx - это arx с урезанным функционалом, поэтому загружаются одинаково.

[Ingpro]

Сообщение от Сергей812 По факту crx - это arx с урезанным функционалом, поэтому загружаются одинаково.

Понятно, спасибо.

[koMon]

Сообщение от Ingpro А загружаем GeomCal.crx

если при использовании функции arxload в качестве аргумента используется только имя загружаемого приложения, то она будет искать по путям все доступные расширения для загрузки к этому имени и загрузит первое в очерёдности расширений. поэтому без разницы что есть в наличии *.arx или *.crx.