[amator]

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

[{Smirnoff}]

Используй Use Overall Scale of: на закладке Fit. Все элементы размера будут масштабироватся пропорционально этому коэффиценту.

[amator]

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

[Jurasic]

Теоретически можно решить эту проблему и програмно, т.е. написать лисп / arx-приложение (и т.п.), которые будут создавать некий набор слоев, размерных стилей (...). Можно эти програмки скачать...
А можно.... Для каждого формата (А4, А3, А2 и т.д.) сделать файл-шаблон. В AutoCad эти файлы имеют расширение dwt и хранятся в папке ...\Template. Такой файл можно получить командой SaveAs из обычного чертежа. Файл должен содержать необходимый набор слоев, размерных и текстовых стилей. Если я правильно понял вопрос...

[amator]

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

[amator]

Я хочу создавать размерный стиль програмно под vba сразу задавая параметры стиля, а не используя то что он мне предлогает по умолчанию.

[Jurasic]

Для того что-бы создать шаблон с размерными стилями лисп знать не обязательно.... Тогда для изменения стрелочек тебе перед проставлением размера нужно лишь поменять размерный стиль или, если размер уже прставлен, выделить его и переключить размерный стиль в выпадающем списке панели инструментов Dimensions.
Если поменять нужно только одну стрелку из готового размерного стиля то это - Ctrl + 1, команда _.properties.

[{Smirnoff}]

Я даже сначала не понял что требуется програмно. Так вроде в хелпе ясно сказано:

Dimensions created via the AutoCAD user interface are created with the active dimension style plus all document overrides. Dimensions created via ActiveX are created with the active dimension style only. To have the dimensions created via ActiveX take on the document overrides, use the CopyFrom method to copy the dimension style from the document to the active dimension style. This process will copy all existing overrides into the active dimension style.

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

[Jurasic]

А!! Я пишу в основном только на лиспе, но на VBA должно быть то же самое... Создаешь размерный стиль (програмно), делаешь его активным и через object.SetVariable Name, Value устанавливаешь все его свойства.
Кусок из какого то моего размерного стиля Для примера....
.....
'("DIMADEC" 0)
'("DIMALTD" 2)
'("DIMALTF" 25.4000)
'("DIMALTRND" 0.0000)
'("DIMALTTD" 2)
'("DIMALTTZ" 0)
......
Нужно установить что-то порядка 40 переменных размерного стиля.

[{Smirnoff}]

Короче логика вроде должна быть такой.

1) создаём размерный стиль
2) создаем один размер
3) изменяем параметры размера
4) копируем параметры размера в размерный стиль методом CopyFrom
5) создаём новые размеры с уже изменёнными параметрами.

[Jurasic]

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

По-моему речь о создании размерного стиля.... А свойства размерного стиля, это системные переменные начинающиеся на "DIM"....

[{Smirnoff}]

Короче я попробывал действовать по ранее описанному алгоритму. Все вроде работает, правда параметр менял только один - размер стрелки.

>amator Тут все почти как на VBA.

Код:

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

(defun c:test(/ actDoc mSp dimCol newDim)
  (vl-load-com)
  (setq actDoc
	 (vla-get-ActiveDocument
	   (vlax-get-acad-object))
	mSp(vla-get-ModelSpace actDoc)
	dimCol(vla-get-DimStyles actDoc)
	newSt(vla-Add dimCol "My_DimStile")
	newDim(vla-AddDimRotated mSp
		(vlax-3d-point '(0.0 0.0 0.0))
		(vlax-3d-point '(10.0 0.0 0.0))
		(vlax-3d-point '(5.0 2.0 0.0))
		0.0
		)
	); end setq
  (vla-put-ArrowheadSize newDim 0.5)
  (vla-CopyFrom newSt newDim)
  (princ)
  ); end of c:test

[skkkk]

А как программно переключить размерный стиль лиспом или через командную строку? Нужна кнопка, которая бы делала следующее: 1.Переключается размерный стиль со Standart на My dimstyle.
2.Запрашивается ввод первой точки размерной линии, затем второй (_dimaligned - параллельный).
3.Размерный стиль переключается обратно.

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

http://forum.dwg.ru/showthread.php?t=2721