[sergius7900]

Может кто сможет написать и поделиться Lisp по такой задаче (низкий поклон):

Есть размер в котором будет отображаться количество шагов , шаг и результат произведения - 20х200=4000
4000 - не перебитый размер и меняется при перемещении ручки
200 (шаг) - который можно менять на любое другое положительное число.

ЦЕЛЬ: сделать так что бы при изменении числа 4000 менялось количество шагов

к примеру было: 20х200=4000 перетащили ручку размера и величина размера теперь 4800 и автоматически выражение принимает вид 24х200=4800, а также
что бы можно было ещё и поменять величину 200(шаг) на например на 400 и автоматически выражение принимает вид 12х400=4800

P.S. Предполагаю, как вариант, что размер будет создаваться уже из под кнопки LISP для размера с заведомо запрограммированными действиями, описанные выше. Но может будет легче реализовать сие кликнув уже по готовому размеру (тогда можно редактировать ранее выполненные чертежи)

[Maksim7enov]

Может легче сделать поле в текстовой части размера? Вставляем поле с формулой в текст размера и все.

[skkkk]

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

[skkkk]

Maksim7enov, кстати, тоже вариант, что-то сразу не подумал, только менять шаг довольно трудоемко, или выводить его в отдельный текст со ссылкой поля на него.
В приложенном файле меняем содержимое красного текста на другое число и делаем _REGEN.
Если скопировать размер в паре со своим текстом, а не сам по себе, то эта пара начнет работать независимо.
Или вообще создать несколько разных размеров каждый со своим шагом.

[v.psk]

sergius7900, этот вариант не подходит?

[Maksim7enov]

Сообщение от skkkk В приложенном файле меняем содержимое красного текста на другое число и делаем _REGEN.

Я думал надо было получить, что-то типо этого!
Тогда лучше через блок с атрибутами, там задавать шаг для растягивания размера. Если использовать лисп то при измерении размера придется постоянно вызывать его и исправлять размер. Я бы для таких целей использовал лучше блок!

[v.psk]

Maksim7enov, зато лисп сработает с любым количеством размеров, в том числе параллельных и уже существующих.

[Maksim7enov]

Сообщение от v.psk любым количеством размеров

Да, но стоит изменить размер после выполнения лиспа и все!

[v.psk]

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

[Maksim7enov]

Он же не работает с размерами у которых уже изменено текстовое поле.
Если изменять 1 раз и потом не менять размер, конечно с полями и не стоит возиться.
Того 3 варианта, кому какой приглянулся.

[skkkk]

Сообщение от v.psk этот вариант не подходит?

v.psk, проверил лисп. При изменении уже обработанных размеров он их повторно не обрабатывает. Нужно сначала убирать лишние символы (кроме значения самого размера) - тогда работает. Это, конечно, нетрудно исправить. В целом да, хороший способ. Даже, пожалуй лучше блоков или размеров с полями. Потому что используется штатный функционал по-максимуму в том смысле, что можно использовать ассоциативность, строить размеры стандартно тоже удобнее, нежели возиться с блоками, полями, ибо с ними что-то можно легко напутать и т.д.

[koMon]

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

[skkkk]

Сообщение от koMon вариант #2 с формулой сделать в виде лиспа с выбором точки выносной линии размера, которую тянуть, с назначением кратного коэффициента и переформатированием размерного текста с обновлением поля в формуле

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

[v.psk]

Сообщение от skkkk . Это, конечно, нетрудно исправить.

Да, или лисп, или в свойствах размера удалить данные (для перебитых размеров в поле "текстовая строка"), тогда вернется вычисленное значение

[koMon]

skkkk, ну если только не перегружать! а так будешь постоянно думать какой размер обработал, а какой нет и потом если куда уйдёт...

[skkkk]

koMon, я в таких случаях для контроля обычно добавляю в код изменение цвета обработанных примитивов.
Offtop: Вообще, прикольно у нас тут
Сами порешали всё за ТС'a, подобрали оптимальный вариант, уже чуть ли не к реализации вплотную подошли, а сейчас окажется какая-то ма-а-а-аленькая мелочь в ТЗ, которая перевернет всё с ног на голову

[sergius7900]

Сообщение от v.psk sergius7900, этот вариант не подходит?

Подхотит (только можно ещё напильником подработать, чуть)

Можно во 2-м приближении сделать так , что бы шаг можно было бы менять в уже "обработанном" размере LISP-ом

НАПРИМЕР:
4х400=1600 - (выражение обработано Вашим LISP-ом)

Захожу в редактор размера и меняю 400 на 200 (при этом чтобы связка 8х200=1600 оставалась рабочей!!! ) после редактирования. То есть чтобы я мог и в дальнейшем скопировать этот размер и использовать на другом фрагменте, перебивая ШАГ.

[sergius7900]

Сообщение от skkkk DWG 2010 Пример блока 2.dwg (81.0 Кб, 3 просмотров)

к посту #4
Можно перебить на тип ПОВЁРНУТЫЙ РАЗМЕР (сам не смог), но имея на руках 2-3 варианта можно выбрать наилучший...

Lisp приложение если коллега (v.psk) допилит и Ваш (skkkk) дополненный вариант - будем посмотреть/испытывать.

[StupidDuck]

Код:

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

 (defun c:dim+spacing ( / spacing selection)
(vl-load-com)
(vla-startundomark (vla-get-activedocument (vlax-get-acad-object)))
(initget 7)
(setq spacing (getint "\nВведите шаг:"))
(if (setq selection (ssget "_:A:L" '((0 . "DIMENSION"))))
(progn
(foreach x (mapcar (function vlax-ename->vla-object)
			  (vl-remove-if 'listp (mapcar 'cadr (ssnamex selection))))
(vla-put-TextOverride x
  (strcat 			      
	"%<\\AcExpr ("
  	"%<\\AcObjProp Object(%<\\_ObjId " (GET-OBJECTID-x86-x64 x) ">%).Measurement \\f \"%lu2%pr0\">%" "/"
	(itoa spacing)
				") \\f \"%lu2%pr0\">%" "x" (itoa spacing) "=<>")))
(vl-cmdf "_.UPDATEFIELD" selection "")
(princ "\nВсе нормуль...")
)
(princ "\n×Чтото не то...")
  )
(vla-endundomark (vla-get-activedocument (vlax-get-acad-object)))
(princ)
)

GET-OBJECTID-x86-x64 нужно скачать на форуме

[v.psk]

StupidDuck, спасибо, пока не проверить...
// если что, на всякий случай, лисп выше не мой, его написал ув. VVA.

[sergius7900]

Сообщение от StupidDuck GET-OBJECTID-x86-x64 нужно скачать на форуме

Не затруднит ли участников рабочей группы поделиться ссылкой ? (поиск по форуму не выдал результатов по запросу GET-OBJECTID)

[skkkk]

https://forum.dwg.ru/showpost.php?p=566244&postcount=8

[Dr.Smiley]

Код:

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

 (defun C:DimSSF (/ adoc ss shg fld str)
;;;Dim Step Size to Field
;;;VVA for dwg.ru
;;;http://forum.dwg.ru/showthread.php?t=103609
  (vl-load-com)
  (vla-startundomark
    (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
  ) ;_ end of vla-startundomark
  (while (not (eq shg "Выход"))
    (if (not (numberp *DimSSF_SHG*))
      (initget 8 "Выход")
      (initget 6 "Выход")
    ) ;_ end of if
    (if (not (numberp *DimSSF_SHG*))
      (setq shg (getint "\nШаг [Выход]: "))
      (setq
        shg (getint
              (strcat "\nШаг [Выход] < " (itoa *DimSSF_SHG*) " >: ")
            ) ;_ end of getint
      ) ;_ end of setq
    ) ;_ end of if
    (if (null shg)
      (setq shg *DimSSF_SHG*)
    ) ;_ end of if
    (setq *DimSSF_SHG* shg)
    (if (not (eq shg "Выход"))
      (progn
        (while (= (type (setq ss (vl-catch-all-apply
                                (function
                                  (lambda ()
                                    (ssget "_:L" '((0 . "DIMENSION"))) ;_ end of ssget
                                  ) ;_ end of lambda
                                ) ;_ end of function
                              ) ;_ end of vl-catch-all-apply
                     ) ;_ end of setq
               ) ;_ end of type
               'pickset
            ) ;_ end of =
          (foreach en
                   (mapcar
                     (function vlax-ename->vla-object)
                     (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
                   ) ;_ end of mapcar
            (setq fld (strcat
                        "%<\\AcExpr ("
                        "%<\\AcObjProp Object(%<\\_ObjId "
                        (vl-princ-to-string
                          (Get-ObjectID-x86-x64 en)
                        ) ;_ vl-princ-to-string
                        ">%).Measurement \\f \"%lu2\">%"
                        "/"
                        (itoa shg)
                        ") \\f \"%lu2%pr0\">%"
                      ) ;_ strcat
            ) ;_ setq
            (setq str (strcat fld "x" (itoa shg) "=<>"))
            (vl-catch-all-apply
              (function
                (lambda ()
                  (vla-put-textoverride en str)
                ) ;_ end of lambda
              ) ;_ end of function
            ) ;_ end of vl-catch-all-apply
            (vl-cmdf "_updatefield" (vlax-vla-object->ename en) "")

          ) ;_ end of foreach
        ) ;_ end of while
      ) ;_ end of progn
    ) ;_ end of if
  ) ;_ end of while
  (vla-endundomark adoc)
  (princ)
) ;_ end of defun

;;--------------------------------------------------------
;; Функция получает строковое представление ObjectID
;; вне зависимости от того AutoCAD x86 или x64
;; Источник: "Field and objectid problem"

;;http://forums.autodesk.com/t5/Visual-LISP-AutoLISP-and-General/Field-and-objectid-problem/m-p/2478592/highlight/true#M276818
;; http://forum.dwg.ru/showthread.php?t=51822
;;--------------------------------------------------------
(defun Get-ObjectID-x86-x64 (obj / util)
  (setq util (vla-get-utility
               (vla-get-activedocument (vlax-get-acad-object))
             ) ;_ end of vla-get-Utility
  ) ;_ end of setq
  (if (= (type obj) 'ENAME)
    (setq obj (vlax-ename->vla-object obj))
  ) ;_ end of if
  (if (= (type obj) 'VLA-OBJECT)
    (if (> (vl-string-search "x64" (getvar "platform")) 0)
      (vlax-invoke-method
        util
        "GetObjectIdString"
        obj
        :vlax-false
      ) ;_ end of vlax-invoke-method
      (rtos (vla-get-objectid obj) 2 0)
    ) ;_ end of if
  ) ;_ end of if
) ;_ end of defun

Вот плагин написанный тем же уважаемым VVA, который на мой взгляд самодостаточен .
Единственное в нем есть проблемка одна, дважды команду на один и тот же размер (если вдруг нужно шаг поменять) лучше не использовать, а удалять и ставить новый размер.
после изменения размера, для смены количества шагов нужно регенерировать чертеж. Так же можно задавать неограниченное количество размеров под одну команду.

[v.psk]

Сообщение от Dr.Smiley удалять и ставить новый размер

Зачем удалять? Выделить кучку размеров и очистить поле "текстовая строка", я писал выше...

[sergius7900]

Можно сказать что цель достигнута.
Всем спасибо, как и обещал - Низкий поклон за помощь !

[DMSskop]

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

[yaego]

А что нужно изменить в лиспе из поста 23, чтобы размер имел вид "ШАГ х n= ПРОИЗВЕДЕНИЕ"? Зачем, не спрашивайте. Традиция.

[VVA]

Сообщение от yaego А что нужно изменить в лиспе из поста 23, чтобы размер имел вид "ШАГ х n= ПРОИЗВЕДЕНИЕ"? Зачем, не спрашивайте. Традиция.

Строка 056

Код:

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

(setq str (strcat (itoa shg)  "x" fld  "=<>"))