[dextron3]

Всем привет, хотел поинтересоваться есть ли такая опция в автокаде чтобы размерная линия выдавала вместо обычного числа, число формата 200х5, где к примеру 200 константа, то есть интеллектуальный размер, это нужно к примеру показывать ступени если в архитектуре, или количество стержней арматуры в стенах и плитах, то есть размер автоматом считал количество, поделив общую длину на константу (шаг),

в данный момент ставлю размер и вручную прописываю, надеюсь есть решение.

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

[v.psk]

тема обсуждалась
вот например решение

[dextron3]

Спс, то что нужно!

VVA отдельное спасибо!

[AMDen]

А зачем так сложно, через лисп?
В размере прописать префикс 200 и масштаб линейных размеров 0.005.
Или я не понял задачу?

[mainevent100]

Сообщение от AMDen и масштаб линейных размеров 0.005.

а зачем масштаб менять? прописать префикс "200х19="
или в текстовой строке "200х5=<>"

[Oleg T]

Может, кому пригодится. Делает то же самое, что и в #2, но еще вычисляет остаток
Но размеры выбираются по одному (правда, конкретно в автокаде не проверял)

Код:

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

 ;Программа изменения текста размера по заданному шагу
;;-------------------------------------------
(defun c:dim_change ( / pr_snap pr_snap_1 pr pr_ pr_zn pr_txt_old pr_kol pr_razn_ pr_snap1 pr_txt_new pr_razn )
	(if (= pr_snap nil) (setq pr_snap 200))
	(PROMPT "	 Текущий шаг = ")
	(PRIN1 pr_snap)
	(setq pr_snap_1 (getreal "\nВведите новое значение шага или <Enter> :"))
	(IF (> pr_snap_1 0)
			(SETQ pr_snap pr_snap_1)
			(SETQ pr_snap pr_snap)
	)
	(while
		(setq pr (car (entsel "\Выберите размер")))
		(setq pr_ (entget pr))
		(setq pr_zn (cdr (assoc '42 pr_)))
		(setq pr_txt_old (assoc '1 pr_))
		(setq pr_kol (rtos (/ pr_zn pr_snap) 2 0))
		(setq pr_razn_ (fix (- pr_zn (* (atoi pr_kol) pr_snap))))
		(if (= pr_razn_ 0)
			(progn
				(setq pr_snap1 (rtos pr_snap 2 0))
				(setq pr_txt_new (cons 1 (strcat pr_snap1 "x" pr_kol "=<>")))
			)
		)
		(if (> pr_razn_ 0)
			(progn
				(setq pr_razn (strcat "+" (rtos pr_razn_ 2 0)))
				(setq pr_snap1 (rtos pr_snap 2 0))
				(setq pr_txt_new (cons 1 (strcat pr_snap1 "x" pr_kol pr_razn "=<>")))
			)
		)
		(if (< pr_razn_ 0)
			(progn
				(setq pr_kol (- (atoi pr_kol) 1))
				(setq pr_razn (- pr_zn (* pr_kol pr_snap)))
				(setq pr_kol (rtos pr_kol 2 0))
				(setq pr_razn (strcat "+" (rtos pr_razn 2 0)))
				(setq pr_snap1 (rtos pr_snap 2 0))
				(setq pr_txt_new (cons 1 (strcat pr_snap1 "x" pr_kol pr_razn "=<>")))
			)
		)
		(setq pr_ (subst pr_txt_new pr_txt_old pr_))
		(entmod pr_)
		(princ)
	)
)

[dextron3]

Приветствую еще раз, конечно думаю это из области фантастики, но есть ли у кого-нибудь лисп такого формата

1. проставил групповой размер (это автокадовский размер которым выделяешь сразу массив элементов и он их образмеривает, кучей мелких друг за другом размеров, в одну линию)
2. запустил лисп выделил этот массив размеров и лисп одинаковые размеры объединил при этом формат 200х5=1000, потом следующий 150х2=300, и замыкающие 200х3+150=750 ( с двух сторон, елси имееется одиночный кусочек отличающегося
от массива часто встречается в армировании стен)
3. то есть по сути не нужно вводить шаг, а происходит объединение одинаковых размеров

(пример горизонтальное армирование стен стержнями - первый 50мм от перекрытия потом 200мм и потом перемычка шаг 100мм и так на 10 этажей и делается, это за одно движение, вот это автоматизация)

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

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

Это какой командой проставляется "групповой размер"? Что-то в чистом ACAD я такого не припоминаю (в вертикалках типа АА такое было, не спорю).

[dextron3]

Quick dimension

[dextron3]

Вот пример как с этим бороться, хочется объединения одинаковых размеров

[Хмурый]

200х5 -это 200 раз по 5 мм
а 5х200 - пять раз по 200
См. ГОСТ 2.307-2011
"5.48 При нанесении размеров, определяющих расстояние между равномерно расположенными одинаковыми элементами изделия (например, отверстиями), рекомендуется вместо размерных цепей
наносить размер между соседними элементами и размер между крайними элементами в виде произведения количества промежутков между элементами на размер промежутка (см. рисунок 65)"

[dextron3]

гост это понятно, а есть логическое объяснение почему именно так принято, так как интуитивно понятно что сначала нужно длину промежутка знать чтобы найти количество, но никак не наоборот, и соответственно правильно бы было записать 200х5,

или это для машиностроителей ГОСТ, а не для строителей, там только болты гайки, детали, ни одного плана и разреза здания не нашел


обратите внимание на сетки в сериях 60х годов, там обозначение такое, везде во всех сериях, это когда мы не родились еще

----- добавлено через ~1 мин. -----
Все таки проектировщикам ближе 200х5, так как мы воспитывались по сериям и арматурным сеткам, а не по отверстиям в штуцерах

----- добавлено через ~4 мин. -----
Кстати пересмотрел все лестницы в архитектурных чертежах тоже везде 200х5 во всех ступенях

[Oleg T]

Сообщение от Хмурый См. ГОСТ 2.307-2011

ЕСКД не для строителей. У нас СПДС
https://ru.wikipedia.org/wiki/Систем..._строительства

[dextron3]

Код:

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

(defun c:DIM= (/ *kpblc-activedoc* ss item rzm count kr)
;;;Команда проставляет в выбранных размерах запрошенную кратность (по умолчанию 500)
;;; Размер должен быть не перебит и кратен кратности500
;;; Если размер кратен 500, то вставляется текст kx500=<>, где
;;; k - посчитанная кратность
  (vl-load-com)
  (setq *kpblc-activedoc* (vla-get-activedocument (vlax-get-acad-object)))
  (vla-startundomark *kpblc-activedoc*)
  (initget 6)
  (or (setq kr (getint "\nВведите кратность <500>: "))
      (setq kr 500)
    )
  (setq ss (ssget "_:L" '((0 . "DIMENSION"))) count 0)
  (while (and ss
           (> (sslength ss) 0)
       (setq item (ssname ss 0))
       (ssdel item ss)
       ) ;_ end of and
    ;;;(setq item (vlax-ename->vla-object item))
    (setq rzm (atof(vl-string-subst "." "," (dim-get-text-string item))))
    (if (and
	  (zerop (rem rzm kr));;; Делится на kr (500) без остатка, 
	  (> (fix(/ rzm kr)) 1);;; и кратность больше 1
	)
      (setq rzm
         (strcat
          (itoa(fix(/ rzm kr)))
          "x" (itoa kr) "=<>"
          )
	  count (1+ count)  
	)
      (setq rzm nil)
      )
    (if rzm
      (vl-catch-all-apply 'vla-put-textoverride (list (vlax-ename->vla-object item) rzm))
      )
    )
  (vla-endundomark *kpblc-activedoc*)
  (princ "\n==================================")
  (princ "\nИзменено ")(princ count)(princ " размеров")
  (princ " кратность= ")(princ kr)
  (princ)
  ) ;_ end of defun
(defun mip_MTEXT_Unformat ( Mtext / text Str )
  (setq MM Mtext)
  (setq Text "")
   (while (/= Mtext "")
        (cond
          ((wcmatch (strcase (setq Str (substr Mtext 1 2))) "\\[\\{}]")
            (setq Mtext (substr Mtext 3) Text   (strcat Text Str)))
          ((wcmatch (substr Mtext 1 1) "[{}]")(setq Mtext (substr Mtext 2)))
          ((wcmatch (strcase (setq Str (substr Mtext 1 2))) "\\[LO`~]")
	   (setq Mtext (substr Mtext 3)))
          ((wcmatch (strcase (substr Mtext 1 2)) "\\[ACFHQTW]")
            (setq Mtext (substr Mtext (+ 2 (vl-string-search ";" Mtext)))))
          ((wcmatch (strcase (substr Mtext 1 2)) "\\P")
            (if (or
		   (zerop (strlen Text))
		   (= " " (substr Text (strlen Text)))
		   (= " " (substr Mtext 3 1)))
               (setq Mtext (substr Mtext 3))
               (setq Mtext (substr Mtext 3) Text (strcat Text " "))))
	  ((wcmatch (strcase (substr Mtext 1 2)) "\\S")
            (setq Str   (substr Mtext 3 (- (vl-string-search ";" Mtext) 2))
                  Text  (strcat Text (vl-string-translate "#^\\" "/^\\" Str))
                  Mtext (substr Mtext (+ 4 (strlen Str)))))
	  (t (setq Text (strcat Text (substr Mtext 1 1)) Mtext (substr Mtext 2)))))
  Text)
(defun dim-get-text-string  ( dim / str)
 (setq str "")
   (vlax-for item (vla-item (vla-get-blocks
                         (vla-get-activedocument (vlax-get-acad-object))
                       ) ;_ end of vla-get-Blocks
                       (cdr (assoc 2 (entget dim)))
             ) ;_ end of vla-item
     (if (vlax-property-available-p item 'Textstring)
          (setq str (vla-get-textstring item))
       )
     )
(mip_MTEXT_Unformat str)
  )

Вот хотелось бы точно такой же только значение выдавал не 5х200=1000, а 200х5=1000, чувствую нужно где-то строки поменять, но не пойму где...

и как вариацию точно такой же только 200х5 без равно и результата, пусть на стройке в уме умножают )))

[Хмурый]

Сообщение от dextron3 Все таки проектировщикам ближе 200х5, так как мы воспитывались по сериям и арматурным сеткам, а не по отверстиям в штуцерах

Сообщение от Oleg T ЕСКД не для строителей. У нас СПДС

Смотрим ГОСТ 2.501-2011 (в 2018 тоже самое)

[dextron3]

А что по сериям арматурных сеток? которые наши деды вычерчивали пером

Хотел увидеть чертеж раскладки арматуры в плите или в стене по СПДС, это планы призводственного здания я их тоже видел, но хотелось бы конкретно по армированию

[Oleg T]

Сообщение от Хмурый Смотрим ГОСТ 2.501-2011 (в 2018 тоже самое)

Посмотрел.
Ну что же, если есть такой пункт ГОСТ (как в ЕСКД), обязательный к применению, то, возможно, придется менять привычки )).

[AlexCondor]

Сообщение от Oleg T ЕСКД не для строителей. У нас СПДС

ЕСКД очень даже и для строителей, в том числе. Очень внимательно изучаем ГОСТ 21.1101 СПДС. Основные требования к проектной и рабочей документации. Особенно раздел - Нормативные ссылки.
PS. Немножко дополню, Так для памятки

[dextron3]

Интересно как архитекторы которые ступени образмеривают в разрезах воспримут эту информацию...

[Oleg T]

Сообщение от AlexCondor Особенно раздел - Нормативные ссылки.

Ну, что же, признаю, никогда не был силен в глубоком изучении нормативной документации )).

[koMon]

Сообщение от dextron3 где-то строки поменять

Код:

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

 (strcat
          (itoa (fix (/ rzm kr)))
          "x" (itoa kr) "=<>"
)

на

Код:

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

 (strcat
          (itoa kr)
          "x" (itoa (fix (/ rzm kr))) "=<>"
)

[dextron3]

Спасибо!, буду придерживаться 20 летней привычке, 200х5

[koMon]

А если, к примеру, написать команду простановки таких размеров?

Это конечно не интеллектуальный размер...

[dextron3]

Была бы вообще пушка!, но чтобы они были не мертвые, а то проставил потом его уже редактировать не возможно, а так же я не могу понять алгоритм работы, как это будет выглядеть (как будет потом привязываться и не будет ли тормозить), я использую СПДС графиковские размеры, а так же хотелось бы чтобы Вы улучшили тот лисп, чтобы он красным цветом выделял размеры которые не преобразовываются к примеру если шаг 200 задан, а выделил размер 2100 к примеру, то он красным подсвечивался, так бы я его потом вычленял и преобразовывал (правил) в требуемый

[v.psk]

dextron3, а применительно к какой работе требуется этот инструмент, конечно, если не секрет?
Если для раскладывания блоков добора, то есть проверенный и удобный алгоритм.

[dextron3]

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

[koMon]

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

[dextron3]

Да что-то сложновато с редактированием, согласен погорячился, я бы только прикрутил 2 опции к лиспу верхнему:

1. Чтобы он мог редактировать уже измененные им же размеры, тупо заново выводить (он сейчас этого не делает),
"к примеру размер 200х5=1000, из него можно было сделать 500х2=1000, или же его притянул на 200х5=900, задал шаг 100, и сделал 100х9=900, понятное дело как бы обновил поверх"
2. Сейчас к примеру если размер 2100, а шаг 200, то он просто не замечает этот размер, а хотелось бы чтобы в красный цвет перекрышивал (это защита от дурака, когда миллион размеров все подряд выделяешь можешь пропустить, а так красным подсвечивает и уже отдельно внимание им уделяешь, прорабатываешь штучно)

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