[tim87]

Доброго времени суток! Пожалста подскажите как создать обычный "линейный" размер в AutoLisp при помощи команды entmakex? (entmakex (list '( 0 . "DIMENSION") (cons 10 E) (cons 11 C) (cons 12 L) '(8 . "_Размер"))) - Acad игнорирует эту команду (не сообщает об ошибке)
E; C; L - 3D точки. "LINE" и "ARC" по такой схеме работают! Как быть может чегото не хватает? Спасибо.

[Do$]

Размеры бывают линейные, угловые, ординатные и пр...

Сообщение от tim87 (list '( 0 . "DIMENSION") (cons 10 E) (cons 11 C) (cons 12 L) '(8 . "_Размер")))

какой тут должен быть? Надо бы указать.

Сообщение от tim87 Acad игнорирует эту команду (не сообщает об ошибке)

nil то выдает.

[tim87]

Сообщение от Do$ Размеры бывают линейные, угловые, ординатные и пр... какой тут должен быть? Надо бы указать. nil то выдает.

Вот я и говорю, что размер мне нужен "линейный"

nil выдает!

[Do$]

Необходимый минимум данных для линейного размера (типа RotatedDimension):

Код:

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

(entmakex
  '((0 . "DIMENSION") ;*
    (100 . "AcDbEntity") ;*
    (100 . "AcDbDimension") ;*
    (10 910.789 605.613 0.0)   
    (70 . 32) ;*
    (100 . "AcDbAlignedDimension") ;*
    (13 401.424 474.479 0.0)
    (14 910.789 473.069 0.0)
    (100 . "AcDbRotatedDimension") ;*
   )
) ;_ end of entmakex

[tim87]

а за что отвчает DXF код 100?? И гдебы поподробнее почитать про DXF-коды и их применение?

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

Сообщение от tim87 И гдебы поподробнее почитать про DXF-коды и их применение?

DXF Reference, наверное...

[Do$]

Сообщение от tim87 а за что отвчает DXF код 100?? И гдебы поподробнее почитать про DXF-коды и их применение?

Код 100 определяет тип объекта, для указанного выше кода (вольная трактовка):
"AcDbEntity" - объект является вхождением чертежа
"AcDbDimension" - объект является размером
"AcDbAlignedDimension", "AcDbRotatedDimension" - наличие этих двух значений указывает, что размер относится к типу RotatedDimension.

Несколько советов:

• Чтобы создать какой-то объект при помощи entmake(-x), сперва его рисуем "вручную", затем применяем к нему (entget (car (entsel))), жмем F2, копируем оттуда список, удаляем из него DXF группы с кодами -1, 330, 5. С оставшимся экспериментируем - закомментил группу, проверил... создался объект - значит параметр необязательный и может браться по умолчанию (откуда - уже другой вопрос), не создался - значит параметр обязательный.
• Чтобы понять, за какой парметр какой код отвечает, (entget (car (entsel))) к объекту, сохраняем список, меняем параметр исследуемого объекта, снова к нему (entget (car (entsel))), сравниваем получившиеся списки. То что изменилось - то нам и надо.
• Иногда то, что показывается в окне свойств объекта не соответствует тому, что выдаст (entget (car (entsel))). Например: угол поворота в свойствах показан в соответствии с настройками автокада - по умолчанию в градусах. В entget-списке же все значения углов хранятся в радианах.

Если поискать по форуму, то это все уже не раз обсуждалось. Можно много чего полезного накопать если поискать
Удачи!

[Айнар]

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

Код:

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

 (entmakex
  '((0 . "DIMENSION") ;*
    (100 . "AcDbEntity") ;*
    (100 . "AcDbDimension") ;*
    (10 450 0 0)   
    (70 . 32) ;*
    (100 . "AcDbAlignedDimension") ;*
    (13 400 0 0)
    (14 400 400 0)
    (100 . "AcDbRotatedDimension") ;*
   )
) ;_ end of entmakex

вот что получается

[Дима_]

привязки в данном случае (entmake) отключать не нужно, создай "в рукопашную" размер и (entget (entlast)) и посмотри, чем он от твоего отличается (теми полями что ты вводил).

[gomer]

Сообщение от Айнар Не получается создать вертикальный размер

Точку вставки текста забыл... код 11, кажется

[Айнар]

при анализе была обнаружена точечная пара ответственная за угол поворота размера (50 . 1,5708), где угол задается в радианах

Код:

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

 (entmakex
  '((0 . "DIMENSION") ;*
    (100 . "AcDbEntity") ;*
    (100 . "AcDbDimension") ;*
    (10 500 0 0)   
    (70 . 32) ;*
    (100 . "AcDbAlignedDimension") ;*
    (13 400 0 0)
    (14 400 400 0)
    (50 . -1.5708) 
    (100 . "AcDbRotatedDimension") ;*
   )
) ;_ end of entmakex

[T.Bagdat]

Подскажите, как создать не повёрнутый размер, а параллельный.
(entget (car (entsel))) показывает, что отличия лишь в следующем.
- повёрнутый размер включает группы:
(100 . "AcDbAlignedDimension")
(100 . "AcDbRotatedDimension")

- параллельный размер включает только группу:
(100 . "AcDbAlignedDimension")

Просто отказ от группы (100 . "AcDbRotatedDimension") в списке entmake приводит к результату nil

Мой пример вполне рабочего повёрнутого размера:

Код:

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

 
(entmake (list
		'(0 . "DIMENSION")
		'(100 . "AcDbEntity")	
		'(100 . "AcDbDimension")
		'(3 . "standard")
		'(10 100.0 20.0 0.0)
		'(100 . "AcDbAlignedDimension")
		'(13 50.0 0.0 0.0)
		'(14 100.0 0.0 0.0)
		'(100 . "AcDbRotatedDimension")
		'(62 . 7)
		'(70 . 0)
	 ) ;_ end of list
) ;_ end of entmake

[frostmourn]

Сообщение от T.Bagdat что отличия лишь в следующем. - повёрнутый размер включает группы: (100 . "AcDbAlignedDimension") (100 . "AcDbRotatedDimension")

70-ю ещё забыли.
И порядок важен - вот так создаётся:

Код:

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

 (entmake 
		(list
		'(0 . "DIMENSION")
		'(100 . "AcDbEntity")
		'(100 . "AcDbDimension")
		'(10 100.0 20.0 0.0)
		'(3 . "standard")
		'(70 . 1)
		'(100 . "AcDbAlignedDimension")
		'(13 50.0 0.0 0.0)
		'(14 100.0 0.0 0.0)
	))

[T.Bagdat]

frostmourn, благодарю!

Я в самом деле не обратил пристального внимания на флаг 70. На разных размерах он попадался совершенно разным. Где 1, где 0, а где и за 30 переваливал. Сейчас откопал в инете, что они бывают от 0 до 6, да плюс 32/64/128 в зависимости от ситуации. А до этого думал, что лишь бы строчка была. Поставил 0, и нащупал порядок при котором повёрнутый размер нормально создавался. Где, собственно, и застрял)))