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

Тема служит продолжением закрытой темы Мои динамические блоки

Спасибо VVA:
В 2010-2011-2012 в редакторе блоков при настройках по умолчанию нельзя добавлять к операциям некоторые вещи, например к операции Flip добавить Strech и т.д.
Проблема:
http://forum.dwg.ru/showpost.php?p=7...postcount=2666
Лечение:
http://forum.dwg.ru/showpost.php?p=7...postcount=2679

==================================================

Проблема:
В некоторых чертежах долго открывается редактор блоков (_bedit)
Лечение:
Проверить в блоке/блоках значение линейных параметров "Максимальное расстояние". Должно быть задано хоть какое-то значение
Блок эдитор открывает несколько минут.

[skkkk]

AMDen, всё верно, спасибо, теперь буду знать. Действительно, с палитры вставляется корректно. Припоминаю вроде, какие-то проблемы тогда у меня были с этим местозаполнителем блока, то ли после обновления атрибутов, то ли еще почему-то, но сейчас воспроизвести их не удалось.

[Theodor]

Коллеги, а вариации по вашим предложениям, но с полем-ссылкой в одном атрибуте на значение другого атрибута в том же блоке не пробовали?

[vit1989]

Сообщение от Theodor Цитата: Цитата: Сообщение от vit1989 При необходимости изменения стадии П на Р можно сделать через свойства чертежа Я не знаю, чем занимается указанная вами примочка от многоуважаемого Любавина В.В., но в своем опусе имел ввиду не буковку "П" или "Р" в основной надписи, а маленький пряоугольничек со сквозной нумерацией вверху справа формата. Предложил вариант пакетного отключения этого уголка при помощи специально выделенного для этого слоя. Если конечно та самая примочка не меняет видимость во всех блоках рамки на всех листах. Цитата: Сообщение от vit1989 utocad Key Manager (c) Любавин Василий Владимирович) А что делает сей продукт? В ближайшем приближении не нашел о нем инфы.

1) Прямоугольник можно отключить в зависимости от стадии это предусмотрено
2) Сия программка очень помогает со свойствами документа, хотя можно и из автокада с ними работать, но через программку намного удобнее, особенно если нужно скопировать из одного в файла в другой (опять же вопросы оформления штампов)

[AMDen]

Сообщение от Theodor Коллеги, а вариации по вашим предложениям, но с полем-ссылкой в одном атрибуте на значение другого атрибута в том же блоке не пробовали?

Пробовал. Всё работает.

[gumel]

Добрый день.
Подскажите неопытному, можно ли каким либо макаром связать несколько линейных параметров в одном блоке?
Суть вопроса заключается в желании использовать array action в связке с линейным параметром. Проблема заключается в том, что хотелось бы, чтобы линейный параметр соответствовал объекту (допустим определял его габарит), а элементы, которые подвергаются размножению находятся с неким смещением относительно границ этого самого объекта.. Заморочено сформулировал вопрос, понятней будет если глянуть вложение

[AMDen]

Сообщение от gumel Подскажите неопытному, можно ли каким либо макаром связать несколько линейных параметров в одном блоке?

Можно. У линейного параметра для массива указать в свойствах - "показать свойства": нет; "цепочка операций": да.

[gumel]

Сообщение от AMDen Можно. У линейного параметра для массива указать в свойствах - "показать свойства": нет; "цепочка операций": да.

Спасибо, еще Number Of Grips сделал равным нулю

----- добавлено через ~21 ч. -----
Еще вопрос.
А как сделать так, и вообще возможно ли такое?

Хотелось бы осуществить связку линейных параметров по определенным параметрам.
Допустим, если пользователь устанавливает линейный параметр равным 1000, то зависимый линейный параметр становится равным 300, если 1500, то 500, а во всех остальных случаях зависимы линейный параметр должен быть равен нулю.
Скорее всего, что нужно рыть в сторону Lookup'а но чет не могу допереть..

Заранее благодарен

[Theodor]

Сообщение от gumel Скорее всего, что нужно рыть в сторону Lookup'а но чет не могу допереть.

Я не знаю, что применительно к каду значит lookup, по попробуйте задействовать выбор. Ну или я не понял до конца задачу.

[Geniy_Dzydo]

Приветствую всех!!!!
Делаю блок для генлпаниста, не знаю как у них называется этот элемент, он в общем две высотные отметки вычитает и рядом разницу между высотными отметками показывает. Так вот вопрос в следующем, как заставить формулу ставить знак "+", знак "-" благо сам по себе ставится!

[Theodor]

Сообщение от Geniy_Dzydo Так вот вопрос в следующем, как заставить формулу ставить знак "+"

Попробуйте поколдовать с дизелем.

[Geniy_Dzydo]

Сообщение от Theodor Попробуйте поколдовать с дизелем.

Ну в экселе я бы наколдовал, а тут для меня темный лес. Прошу гуру программирования научить. разъяснить, наставить на путь истинный!
$(if, условие, истина [, ложь]) - синтаксис условия
$(>=, знач1, знач2) - синтаксис условия больше нуля, где знач1 - это разница между отметками, которые берутся из атрибутов. Знач2 - это нуль
собственно как это в итоге должно выглядеть? $(if, $(>=, знач1, 0), "+"знач1, знач1) - предполагаю как то так, как заставить дизель ставить знак плюс перед Знач1? да и Знач1 нужно представлять в виде этой длинной строки %<\AcExpr (%<\_FldPtr 831151280>%-%<\_FldPtr 831202832>%) \f "%lu2%pr2">%

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

Попробуй $(strcat,"+",Знач1)
Но сработает или нет, без понятия.

[Geniy_Dzydo]

Прописал $(strcat,"+",Знач1) - прописал, но не помогло, может не так прописал коненчо

[Theodor]

Сообщение от Geniy_Dzydo Прошу гуру программирования научить.

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

[Geniy_Dzydo]

Эх, ну ладно, благо у генпланистки большинство отметок положительные, так что перед полем тупо поставил знак +. Всем спасибо!

[Theodor]

Сделайте еще один атрибут и прикрутите впереди к итоговому. Пусть генпланист сам решает, надо ли ему добавить плюсик или удалить, если значение отрицательное.

[Geniy_Dzydo]

Сообщение от Theodor Сделайте еще один атрибут

тогда блок не будет универсальным. т.к. придется этот атрибут двигать ближе/дальше к отметке! )))

[skkkk]

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

Я бы копал в сторону реакторов в данном случае. Тогда и поля бы не понадобились. Правда вопрос, что загрузит Автокад сильнее. Поля при большом количестве замедлят сохранение, печать, регенерацию, хотя тут отчасти поможет подбор переменной FIELDEVAL. А в случае с реактором возможны тормоза при редактировании таких блоков. Но это неточно. Я сужу по опыту создания реактора на команду _copyclip. Ну и, конечно, придется на всех машинах обеспечить загрузку лиспа, и AutoCAD LT - мимо.

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

[Geniy_Dzydo]

ну если кто-то из сильных мира сего спрограммирует что-то подобное (если уж 3Д блоки динамические народ делает), то думаю все генпланисты данного ресурса скажут спасибо. Хотя подозреваю, что для генпланистов есть специальный модуль, где это все уже реализовано. Но конечно его никто нам не купит))))
кстати сделал тоже самое и без блока, просто с тремя текстами...

[skkkk]

Для блока "дельта", который во вложении в #3889

Код:

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

 (defun C:ATT_RESIDUAL ( / ss i vla_obj_list vla_obj)
	(vl-load-com)
	(setq ss (ssget "_X" '((0 . "INSERT"))))
	(if ss
		(repeat (setq i (sslength ss))
			(setq vla_obj_list (cons (vlax-ename->vla-object (ssname ss (setq i (1- i)))) vla_obj_list))
		)
	)
	(if vla_obj_list 
		(setq 
			vla_obj_list
			(vl-remove-if-not
			   '(lambda (x) 
					(wcmatch (get-block-name x) "дельта")
				)
				vla_obj_list
			)
		)
	)
	(mapcar 
	   '(lambda (x)
			(LM:vl-setattributevalue
				x
				"СТРОКА1"
				(rtos 
					(- 	(atof (LM:vl-getattributevalue x "СТРОКА3"))
						(atof (LM:vl-getattributevalue x "СТРОКА2"))
					)
					2 2
				)
			)
			(if (> (atof (LM:vl-getattributevalue x "СТРОКА1")) 0)
				(LM:vl-setattributevalue x "СТРОКА1" (strcat "+" (LM:vl-getattributevalue x "СТРОКА1")))
			)
			
		) 
		vla_obj_list
	)
)




;; Get Attribute Value  -  Lee Mac
;; Returns the value held by the specified tag within the supplied block, if present.
;; blk - [vla] VLA Block Reference Object
;; tag - [str] Attribute TagString
;; Returns: [str] Attribute value, else nil if tag is not found.

(defun LM:vl-getattributevalue ( blk tag )
    (setq tag (strcase tag))
    (vl-some '(lambda ( att ) (if (= tag (strcase (vla-get-tagstring att))) (vla-get-textstring att))) (vlax-invoke blk 'getattributes))
)



;; Set Attribute Value  -  Lee Mac
;; Sets the value of the first attribute with the given tag found within the block, if present.
;; blk - [vla] VLA Block Reference Object
;; tag - [str] Attribute TagString
;; val - [str] Attribute Value
;; Returns: [str] Attribute value if successful, else nil.

(defun LM:vl-setattributevalue ( blk tag val )
    (setq tag (strcase tag))
    (vl-some
       '(lambda ( att )
            (if (= tag (strcase (vla-get-tagstring att)))
                (progn (vla-put-textstring att val) val)
            )
        )
        (vlax-invoke blk 'getattributes)
    )
)

(defun get-block-name ( blockentity / name repbtag )
;;; (C) Lee Mac LM:EffectiveName
;;; http://www.theswamp.org/index.php?topic=37493.0
;;; http://forum.dwg.ru/showthread.php?t=65082
;;; blockname EffectiveName динамические блоки
  (if (= (type blockentity) 'VLA-OBJECT)
	(setq blockentity (vlax-vla-object->ename blockentity))
  )
  (if (wcmatch (setq name (cdr (assoc 2 (entget blockentity)))) "`**")
    (if
      (and
        (setq repbtag
          (cdadr
            (assoc -3
              (entget
                (cdr
                  (assoc 330
                    (entget (tblobjname "BLOCK" name))
                  )
                )
               '("AcDbBlockRepBTag")
              )
            )
          )
        )
        (setq repbtag (handent (cdr (assoc 1005 repbtag))))
      )
      (setq name (cdr (assoc 2 (entget repbtag))))
    )
  )
  name
)

Использованы функции от Lee Mac отсюда.

----- добавлено через ~10 мин. -----
Да, забыл. Чтобы после точки отображались нули, если разница будет целым числом, нужно переменную DIMZIN установить в 0.