[Айтмат]

Здравствуйте, извините за детский вопрос. Но не могу найти ясного и четкого ответа, хотя тема наверняка давно разжевана.

Создаю таблицу автокада, необходимо чтобы высота строк была фиксированной и точной например 8 мм, текст в данной строке в настройке таблицы 3,5 мм. Плюс по идея я должен оставить отступ внизу и вверху по 2,25. И тогда четко как я понял (я в чем то ошибаюсь) высота строки будет 3,5+ 2*2,25=8 мм, автокад постоянно увеличивает строку на коэффициент 1,333

Почему так происходит? пожалуйста дайте ссылку на соответствующую ветку, если она есть

[Bull]

Там разные знаки по-разному пишутся и поэтому высота "подстраивается". Можно и принудительно задать вроде, но тогда текст "теряется" в случае чего.

[kp+]

Сообщение от Айтмат Плюс по идея я должен оставить отступ внизу и вверху по 2,25

Отступы по высоте поставить заведомо меньше 2,25 или вообще равными 0, вертикальное выравнивание посередине, и все будет как надо.

дайте ссылку на соответствующую ветку

Хорошая ветка - "Практика работы с таблицами", легко находится поиском

[onick]

Попробуйте выделить все строки и столбцы одновременно, сначала выделив всю таблицу до "ручек", а потом нажмите на квадратик появившийся в самом углу - все названия строк и столбцов станут желтыми, ПКМ - свойства таблицы - высота строки - 8

[gattaga]

Здравствуйте! Подскажите, пожалуйста, в чем может быть проблема. Вставляю таблицу из экселя в автокад (как объект автокада) и высота строк в любом случае становится 9мм. Меняла высоту строк в экселе, в типе таблице в самом автокаде, независимо от величин-получается 9. Небольшой нюанс, такое происходит только при масштабировании.


----- добавлено через -----
onick, Нет. Это не помогает. Делала так уже. Почему -то не хочет менять высоту, (ячейки предварительно разблокированы), при таком варианте может менять лишь одну строку

[onick]

Сообщение от gattaga Здравствуйте! Подскажите, пожалуйста, в чем может быть проблема. Вставляю таблицу из экселя в автокад (как объект автокада) и высота строк в любом случае становится 9мм. Меняла высоту строк в экселе, в типе таблице в самом автокаде, независимо от величин-получается 9. Небольшой нюанс, такое происходит только при масштабировании. ----- добавлено через ----- onick, Нет. Это не помогает. Делала так уже. Почему -то не хочет менять высоту, (ячейки предварительно разблокированы), при таком варианте может менять лишь одну строку

Вы вставляете таблицу из excel, а я имел ввиду автокадовский примитив "таблица"...приложите файл, можете стереть из него все и оставить одну таблицу...

[sharp45]

Сообщение от Айтмат Создаю таблицу автокада, необходимо чтобы высота строк была фиксированной и точной например 8 мм, текст в данной строке в настройке таблицы 3,5 мм. Плюс по идея я должен оставить отступ внизу и вверху по 2,25. И тогда четко как я понял (я в чем то ошибаюсь) высота строки будет 3,5+ 2*2,25=8 мм, автокад постоянно увеличивает строку на коэффициент 1,333

Есть буквы с отростками. Например у, р, д, б, в.
Величина отростка по ГОСТу составляет 3/10 от высоты шрифта.
У шрифта 3,5 получается + 1,05мм.

[FRAER]

Всех приветствую.
Не буду создавать новую тему.
Подскажите, можно ли сделать шаг увеличения высоты строки равным 1. Что бы когда текст не помещается в одну строку, строка увеличивалась кратно 1.

[FRAER]

Подскажите, как в таблицах автокада сделать увеличение высоты или ширины строки кратно "1"?

[Сергей812]

Сообщение от FRAER Подскажите, как в таблицах автокада сделать увеличение высоты или ширины строки кратно "1"?

ладно, по высоте можно еще понять - что кратно 8 мм. А вот по ширине в каких единицах?)

[FRAER]

Я имел ввиду, что бы строка по высоте увеличивалась кратно 1 ед.

[kp+]

Подскажите, как в таблицах автокада сделать увеличение высоты или ширины строки кратно "1"?

Штатными средствами вроде бы нельзя (не скажу насчет самых новейших версий, но думаю, и там нет)
Но можно написать лисп, который будет сначала пытаться привести высоту строк к одной единице, проверять, получилось ли, если нет - увеличивать до кратного количества единиц.
Первая часть у меня есть и работает. Те строки, котопые не удалось привести к высоте одной единицы (гостовские 8 мм), маркируются для ручного редактирования (наш горе-нормоконтроль не допускает строки более 8 мм, даже кратной высоты). Вторую нетрудно дописать.

[FRAER]

Сообщение от kp+ Штатными средствами вроде бы нельзя (не скажу насчет самых новейших версий, но думаю, и там нет) Но можно написать лисп, который будет сначала пытаться привести высоту строк к одной единице, проверять, получилось ли, если нет - увеличивать до кратного количества единиц. Первая часть у меня есть и работает. Те строки, котопые не удалось привести к высоте одной единицы (гостовские 8 мм), маркируются для ручного редактирования (наш горе-нормоконтроль не допускает строки более 8 мм, даже кратной высоты). Вторую нетрудно дописать.

Можете скинуть ЛИСП.

[Сергей812]

Сообщение от kp+ Штатными средствами вроде бы нельзя (не скажу насчет самых новейших версий, но думаю, и там нет)

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

[FRAER]

Я испрашиваю, можно ли настроить автокад, что бы он высоту строк делал кратно 1ед.
А не с сотыми или тысячными.

[kp+]

Сообщение от FRAER Можете скинуть ЛИСП.

На неделе освобожусь от всякой рутины, допишу пару строк и скину.

Я испрашиваю, можно ли настроить автокад, что бы он высоту строк делал кратно 1ед. А не с сотыми или тысячными

Одна единица это сколько? Это просто одна единица измерения, указанная в units (например, 1 мм), или одна стандартная гостовская высота строки (8 мм)?

Сообщение от Сергей812 Для перфекционистов можно еще собирать таблицы из отдельных блоков-строк, например..

В toolpack кстати есть такая опция. Надеюсь, вы не отрицаете, что в dotsoft не дураки сидят

[FRAER]

Сообщение от kp+ Одна единица это сколько? Это просто одна единица измерения, указанная в units (например, 1 мм), или одна стандартная гостовская высота строки (8 мм)?

Имеется ввиду 1мм.

[kp+]

лисп для приведения высоты всех строк к значению, равному или кратному указанному модулю (1 мм или 8 мм или сколько надо). Написан низким штилем, без защит и проверок, не ругайте сильно. запуск командой t1

Код:

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

  (vl-load-com)
(defun C:t1 (/
		ADOC ATT_DIA ATT_REQ CMD_ECHO CURRENT_LAYER H0 I I0 J SC SNAP_MODE SS ST1 TABLE UNLOCKED
	    )
  (setq acad_app (vlax-get-acad-object))
  (setq adoc (vla-get-activedocument acad_app))
  (vla-StartUndoMark adoc)
  (princ "масштаб: ")
  (VL-PRINC-TO-STRING sc)
  (if (or (= sc nil) (= sc 0))
      (setq sc (getreal))
  )
  (princ "номер строки, с которой начать: ")
  (VL-PRINC-TO-STRING i0)
  (if (or (= i0 nil) (= i0 0))
      (setq i0 (1- (getint )))
  )

  (if (not (setq h0 (getint "модуль высоты строки: (по умолчанию 1)\n")))
    (setq h0 1)
  )
  
  (setq snap_mode (getvar "osmode"));сохранение режима привязок
  (setvar "osmode" 0);выкл привязки
  (setq cmd_echo (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (setq att_dia (getvar "attdia"))
  (setvar "attdia" 0)
  (setq att_req (getvar "attreq"))
  (setvar "attreq" 0)
  (setq current_layer (getvar "clayer"))

  (setq i 0 j 0 st1 0 unlocked acCellStateFormatModified)

  ;(setq cell_color (vlax-create-object "AutoCAD.AcCmColor.20"))
  ;(vla-SetRGB cell_color 255 0 0)
  (princ)
  (princ "выберите таблицу\n")
  (setq ss (ssget "_:S" (list
			 (cons 0 "ACAD_TABLE") ;(cons 8 table_layer_name)
		        )
	   )
  )

  (setq table (vlax-ename->vla-object (ssname ss 0)))
  (setq ss nil)
  (vla-put-RegenerateTableSuppressed table :vlax-true)

  (setq i i0)
  (setq h0 (* h0 sc))
  (while (< i (1- (vla-get-rows table)))
   (progn
    (vla-setrowheight table i 0.01)
    (setq i (1+ i))
   )
  )
  (vla-put-RegenerateTableSuppressed table :vlax-false)
  (vla-RecomputeTableBlock table :vlax-true)
  (vla-put-RegenerateTableSuppressed table :vlax-true)

  
  (setq i i0)
  (while (< i (1- (vla-get-rows table)))
   (progn
    ;(vla-setrowheight table i 0.01) 
    (if (< (fix (/ (vla-GetRowHeight table i) h0)) (/ (vla-GetRowHeight table i) h0))
      (vla-SetRowHeight table i (* h0 (1+ (fix (/ (vla-GetRowHeight table i) h0)))))
    )
    (setq i (1+ i))
   )   
  )
  (vla-put-RegenerateTableSuppressed table :vlax-false)
  (vla-RecomputeTableBlock table :vlax-true)
 
 (setvar "osmode" snap_mode);привязки в прежнее положение
 (setvar "cmdecho" cmd_echo)
 (setvar "attdia" att_dia)
 (setvar "attreq" att_req)
 (setvar "clayer" current_layer)
 (vla-endUndoMark adoc)


)  ;eo defun

[FRAER]

Странно у меня код работает. Абракадабра какая то.

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

Про кодировку сохраняемых lsp-файлов еще раз рассказывать? )