[Матрос Д.]

Добрый день!
При работе возникла задача - расставить диагональные размеры между большим количеством точек. В Автокаде есть похожая функция "Быстрый размер", но она выставляет линейные размер вдоль определенной оси (X,Y,Z), а требуются диагональные цепочки.

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

А чем стандартный _.dimaligned не устраивает?

[kp+]

Сообщение от Матрос Д. она выставляет линейные размер вдоль определенной оси (X,Y,Z), а требуются диагональные цепочки.

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

[Матрос Д.]

Сообщение от Матрос Д. А чем стандартный _.dimaligned не устраивает?

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

----- добавлено через ~1 мин. -----

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

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

[kp+]

Сообщение от Матрос Д. соединение огромного количества точек

пример бы посмотреть, т.к. не совсем понятно как должны ставиться размеры

Offtop:

Сообщение от Матрос Д. чтобы просто выделить все точки, задать отступ от размеров, нажать Enter и все в автоматическом режиме выставится

мечты о большой красной кнопке обычно остаются мечтами

[ssn]

а чем не нравится _qdim
выделил все объекты маской и получил сразу кучу размеров

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

Сообщение от Матрос Д. собственно ищу либо программу, либо человека, который смог бы ее написать

С такими запросами ты капитально ошибся разделом. Тебе надо в "Поиск исполнителей".

[Матрос Д.]

Сообщение от kp+ пример бы посмотреть, т.к. не совсем понятно как должны ставиться размеры

Приложил скриншот. Верхняя цепочка, как должно быть. Нижняя, как делает автокад функцией "Быстрый размер".

[Bull]

Сообщение от kp+ мечты о большой красной кнопке обычно остаются мечтами

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

PS Так... Рисунок появился. Вроде как ещё проще - просто последовательная простановка наклонных размеров.

[Матрос Д.]

Сообщение от ssn а чем не нравится _qdim выделил все объекты маской и получил сразу кучу размеров

см. сообщение №8

[Матрос Д.]

Сообщение от Bull Ну, в данном случае может и получи'ться. Сам не программирую, но алгоритм предложу. Первый шаг внутри лиспа (или макроса или ещё чего) - выбор первой группы точек, второй - выбор второй группы точек. После этого код, который в каждом наборе расставляет точки по порядку (по какой-либо координате или ещё как там хочет автор) и выставляет наклонные размеры по цепочке а1-б1, а2-б2 и т.д. Правда, если точки расположены плотно, результат может не устроить наложением размеров друг на друга. PS Так... Рисунок появился. Вроде как ещё проще - просто последовательная простановка наклонных размеров.

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

[ssn]

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

[Profan]

Сообщение от Матрос Д. чтобы просто выделить все точки, задать отступ от размеров, нажать Enter и все в автоматическом режиме выставится.

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

[Матрос Д.]

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

По аналогии работает мною выше указанная функция "Быстрый размер" _qdim

[kp+]

Сообщение от Profan Например, полилиния, вершины которой являются этими точками.

макрос по образмериванию полилинии
и еще

[Profan]

Сообщение от Матрос Д. По аналогии работает мною выше указанная функция "Быстрый размер" _qdim

На твоей картинке нижняя цепочка размеров не соответствует реальному расположению точек. Зачем же липу выкладывать?

[Матрос Д.]

Сообщение от kp+ макрос по образмериванию полилинии и еще

Спасибо. То что нужно!

[frostmourn]

Немного переделал программу отсюда.
Скорее для пробы - проверок и прочих удобств не предусмотрено.

Код:

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

 
(defun C:PTDim (/ ass adoc csp dim PTlist)
  (prompt "\nSelect Points: ") 
	(setq ass (ssget '((0 . "POINT")))
		adoc (vla-get-ActiveDocument (vlax-get-acad-object))
        csp (vla-ObjectIDToObject adoc (vla-get-OwnerID (vla-item (vla-get-ActiveSelectionSet adoc) 0)))
		PTlist (_GAS_vlasort (_SStoObjects ass))
		PTlist (mapcar 'car PTlist))
	(mapcar
		'(lambda (x y)
			(setq dim (vla-addDimAligned csp
				(vlax-3d-point x)
				(vlax-3d-point y)
				(vlax-3d-point (mapcar '(lambda (q w) (/ (+ q w 1000) 2)) x y)))
			)
			(mapcar '(lambda (a z) (vlax-put-property dim a z))
			  '(TextInsideAlign VerticalTextPosition) (list 0 acAbove))
		)
		PTlist
		(cdr PTlist)
	)
	(princ)
)


(defun _SStoObjects ( ss / i objects )
   (if (eq 'pickset (type ss))
	   (repeat (setq i (sslength ss))
		   (setq objects
			   (cons
				   (vlax-ename->vla-object
					   (ssname ss
						   (setq i (1- i))
					   )
				   )
				   objects
			   )
		   )
	   )
   )
   objects
)


(defun _GAS_vlasort (LST / )
	(vl-sort
		(mapcar
			'(lambda (x)
					(list
						(vlax-safearray->list (vlax-variant-value
								(vlax-get-property
									x
									(if (vlax-property-available-p x 'InsertionPoint)
										'InsertionPoint
										'Coordinates
									)
								)
						))
						x
					)
			)
			LST
		)
		(function
			(lambda (e1 e2)
				(or
					(< (- (caar e1) (caar e2)) -5.0)
					(and
						(equal (caar e1) (caar e2) 5.1)
						(> (- (cadar e1) (cadar e2)) 5.0)
					)
				)
			)
		)
	)
)