[olix]

наверно многие сталкивались - при нанесении привязок у повторяющейся арматуры ставим засечку на первой и последней и меняем текст Пример: n*шаг=<> / 6*200=<>
есть ли какое-то приложение или макрос который позволяет автоматически менять такие размеры?
а то позеленеть можно, если каждый раз так лезть в свойства размеров и менять

[Хмурый]

в префиксе надо это писать (пример: 6х20=), а не в строке переопределения размеров. тогда с этими размерами будет работать команда наследования свойств _matchprop и будет немного легче

[olix]

не поняла в каком таком префиксе?

[Хмурый]

у размеров есть свойства: префикс- то, что перед, и суффикс- то, что после

[Makswell]

Имелось ввиду это?
Программа просит указать величину шага, а потом указать примитив размера.
В итоге текст в размере меняется с "Х" на "NxШАГ=Х". N - число, равное тому, сколько ШАГ умещается в Х - вычисляется в программе .

Код:

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

(defun test (/ *error* adoc name_ent list_ent dim_value n1)
  (vl-load-com)
  (defun *error* (msg)
    (vla-endundomark adoc)
    (princ "Работа программы прервана пользователем")
  )
  (vla-startundomark
    (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
  )
  (initget 6)
  (if (not _var_n)
    (setq _var_n0 100)
  )
  (setq	_var_n
	 (getint (strcat "\nВведите положительное целое число <"
			 (rtos _var_n0)
			 ">: "
		 )
	 )
  )
  (if (not _var_n)
    (setq _var_n _var_n0)
    (setq _var_n0 _var_n)
  )
  (setq name_ent (entsel "\nВыберите размер: "))
  (if name_ent
    (progn
      (setq list_ent (entget (car name_ent)))
      (while (not
	       (= (cdr (assoc 0 list_ent)) "DIMENSION")
	     )
	(setq name_ent (entsel "\nВыберите размер: "))
      )
      (setq list_ent  (entget (car name_ent))
	    dim_value (cdr (assoc 42 list_ent))
	    n1	      (rtos (/ dim_value _var_n) 2 0)
      )
      (entmod
	(subst
	  (cons	1
		(strcat	n1
			"x"
			(itoa _var_n)
			"=<>"
		)
	  )
	  (assoc 1 list_ent)
	  list_ent
	)
      )
    )
    (princ "Размер не выбран!")
  )
  (vla-endundomark adoc)
  (princ)
)

[olix]

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

[Makswell]

Так и должно работать:

Сообщение от olix задаю шаг, щёлкаю по размеру и он меняется.

Что поконкрентней работает "не совсем"?

[olix]

пример:
я ставлю размер ( получается 4400)
копирую в командрую чтроку весь текст:

Код:

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

(defun test (/ *error* adoc name_ent list_ent dim_value n1)
  (vl-load-com)
  (defun *error* (msg)
    (vla-endundomark adoc)
    (princ "Работа программы прервана пользователем")
  )
  (vla-startundomark
    (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
  )
  (initget 6)
  (if (not _var_n)
    (setq _var_n0 100)
  )
  (setq	_var_n
	 (getint (strcat "\nВведите положительное целое число <"
			 (rtos _var_n0)
			 ">: "
		 )
	 )
  )
  (if (not _var_n)
    (setq _var_n _var_n0)
    (setq _var_n0 _var_n)
  )
  (setq name_ent (entsel "\nВыберите размер: "))
  (if name_ent
    (progn
      (setq list_ent (entget (car name_ent)))
      (while (not
	       (= (cdr (assoc 0 list_ent)) "DIMENSION")
	     )
	(setq name_ent (entsel "\nВыберите размер: "))
      )
      (setq list_ent  (entget (car name_ent))
	    dim_value (cdr (assoc 42 list_ent))
	    n1	      (rtos (/ dim_value _var_n) 2 0)
      )
      (entmod
	(subst
	  (cons	1
		(strcat	n1
			"x"
			(itoa _var_n)
			"=<>"
		)
	  )
	  (assoc 1 list_ent)
	  list_ent
	)
      )
    )
    (princ "Размер не выбран!")
  )
  (vla-endundomark adoc)
  (princ)
)

получаю ответ (_> )
ввожу нужный мне шаг 200
и тут получается что в командной стороке вводится 2 а где курсив только 00 и все виснит.. как-то так

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

Код скопирован не полностью - не хватает одной закрывающей скобки.
P.S. Прочти dwg.ru/pub/9

[olix]

все заработало!!!!!!!! УРА!!!! супер штука!!! и оочень ускоряет работу!
Спасбо!!!

[мозг]

ка краз заинтересовался той же проблемой.
но у меня получается такое

Команда: (axb) ; ошибка: В функции *error* возникла ошибка:нет описания функции: VLA-ENDUNDOMARK

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

(vl-load-com) в самое начало лиспа добавить надо.

[Makswell]

Я там как раз это добавил спустя 12 минут после первоначального опубликования кода...

[мозг]

не работает
асад 2008 русский

пожно поставить вопрос по другому.

как в размере вида
200xA=<>
при его растягивании заставить <> делиться на 200 и возвращать число A ?

[olix]

я сделала LISp файл например shag.lsp
со следующим текстом, который советовали выше, добавила тольо название shag:

Код:

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

(defun C:shag (/ *error* adoc name_ent list_ent dim_value n1)
  (vl-load-com)
  (defun *error* (msg)
    (vla-endundomark adoc)
    (princ "Работа программы прервана пользователем")
  )
  (vla-startundomark
    (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
  )
  (initget 6)
  (if (not _var_n)
    (setq _var_n0 100)
  )
  (setq	_var_n
	 (getint (strcat "\nВведите положительное целое число <"
			 (rtos _var_n0)
			 ">: "
		 )
	 )
  )
  (if (not _var_n)
    (setq _var_n _var_n0)
    (setq _var_n0 _var_n)
  )
  (setq name_ent (entsel "\nВыберите размер: "))
  (if name_ent
    (progn
      (setq list_ent (entget (car name_ent)))
      (while (not
	       (= (cdr (assoc 0 list_ent)) "DIMENSION")
	     )
	(setq name_ent (entsel "\nВыберите размер: "))
      )
      (setq list_ent  (entget (car name_ent))
	    dim_value (cdr (assoc 42 list_ent))
	    n1	      (rtos (/ dim_value _var_n) 2 0)
      )
      (entmod
	(subst
	  (cons	1
		(strcat	n1
			"x"
			(itoa _var_n)
			"=<>"
		)
	  )
	  (assoc 1 list_ent)
	  list_ent
	)
      )
    )
    (princ "Размер не выбран!")
  )
  (vla-endundomark adoc)
  (princ))

подгружаем lisp file

[мозг]

не работает

[Vova]

Тема "вертикальная выноска линейного размера"
http://forum.dwg.ru/showthread.php?t...EC%E5%F0%E0%22
пост 62 Команда DTO (Dimension text override)
Подойдет? Лисп классный, как и все от VVA, там кроме этой команды несколько других для раборы с размерами

[ытя]

Сообщение от мозг как в размере вида 200xA=<> при его растягивании заставить <> делиться на 200 и возвращать число A ?

Вставляй вместо А поле (field), в формулу которого забиваешь <>/200

[AlexV]

Аналогичная фигня на VBA... В выпадающем списке задаем шаг, выбираем размер.. Также можно добавлять суффиксы - префиксы, заменять текст размера.. (двойной клик по форме - для введения нужного текста..)

[мозг]

лисп то классный, но не то.
DTO это просто массовая перебивка размера. я правильно понимаю?

попробую объяснить (см. картинку)
у меня есть, допустим сетка 2000х2400.
образмериваю, забиваю в размер диапазон 200х12=
при этом само значение размера не перебиваю,
то есть если я увеличу сетку, например, до 3000, то и размер поменяется.
т. о. мне нужно исправить 200х12 на 200х15.
пару раз то перебить можно, но проблема возникает когда таких сеток может быть под сто.
вот я и интересуюсь, как можно оформить какую-нить формулу.

п.с. первый лисп так и не заработал.
п.с.2 поле с формулой <>/200 не работает,

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