[ERi]

Как поставить значок диаметра на линейном размере? Автокад 2009 руский

[sasha_lif]

Повторю: я не хочу каждый раз дописывать, я хочу посадить на кнопку!

[E-degtyarev]

Код:

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

(defun c:dd ()
  (setq x (car (entsel)))
  (setq xx (entget x))
  (entmod (subst (cons 1 "%%c<>") (assoc 1 xx) xx))
)

Попробуй этот лиспик

[sasha_lif]

E-degtyarev, работает, но размеры выделять можно только по- одному, секущей рамкой не выбирает

был у меня лисп mes2txt.lsp , который делает override для всех размеров
и вот я на его основе (ОЧЕНЬ коряво, но работу делает) сделал добавление значка диаметра к ЛИНЕЙНЫМ размерам:

Выкладываю исходный (Override всех размеров)
и переделанный (добавление значка диаметр без override)

Большое спасибо автору mes2txt.lsp за его лисп!

[grachev.p]

Код:

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

(defun c:dd ()
(while
  (setq x (car (entsel)))
  (setq xx (entget x))
  (entmod (subst (cons 1 "%%c<>") (assoc 1 xx) xx)))
)

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

[sasha_lif]

grachev.p,
Одна закрывающая скобка в конце лишняя!
(Ага, ты уже подправил, теперь ОК)
И все равно секущей рамкой удобнее!

[grachev.p]

Сообщение от sasha_lif grachev.p, Одна закрывающая скобка в конце лишняя! И все равно секущей рамкой удобнее!

Да, тоже заметил, исправил

Код:

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

(defun C:DD (/)
(vl-load-com)
  (vla-startundomark
    (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
  )
  (if (not (setq DIM (ssget "_I" '((0 . "DIMMENSION")))))
    (progn
      (prompt "\nВыберите размеры:")
      (setq DIM (ssget '((0 . "DIMENSION"))))
    ) ;_ end progn
  ) ;_ end if
  (setq nabor (sslength DIM))
  (setq r 0)
  (repeat nabor
    (setq xx (entget (ssname DIM r)))
    (setq r (1+ r))
    (entmod (subst (cons 1 "%%c<>") (assoc 1 xx) xx))
  ) ;_ end repeat
  (vla-endundomark adoc)
  (princ)
) ;_ end defun

Вот с секущей рамкой

[AlexV]

Как раз сегодня сделал похожий макрос.. Добавляет к размерам суффиксы-префиксы, + возможность автоматически добавить префикс вида "X х N=".
Значения X в комбобоксе. К примеру, если значение 200, то при выборе размера 2000 добавится префикс "200х10=". Если размер нацело на выбранный шаг не делится, (к примеру, "2011"), то префикс не добавляется. Двойной щелчок по страницам - ввод новых значений суффиксов префиксов (форма немодальная).
Выбор размеров - в цикле "поштучно", надо будет, могу переделать на рамку..

[zmr2114]

Почему у меня вместо символа диаметра отображается буква Ш?

[T-Yoke]

Сообщение от zmr2114 Почему у меня вместо символа диаметра отображается буква Ш?

нужен другой шрифт

[zmr2114]

Шрифт не меняю, просто на одном комп. все работает, а прихожу домой, вместо символа буква. Аналогично в Word и OpenOf. отсутствуют такие символы в шрифте Ariel. А в более ранних версиях текстовых редакторов присутствуют, что за безобразие?

[KSI]

zmr2114, а теперь еще раз, внятно и подробно опиши СВОЮ проблему.

[vawer]

Сообщение от zmr2114 Шрифт не меняю, просто на одном комп. все работает, а прихожу домой, вместо символа буква. Аналогично в Word и OpenOf. отсутствуют такие символы в шрифте Ariel. А в более ранних версиях текстовых редакторов присутствуют, что за безобразие?

Ariel вот:


А шрифт у тебя Arial. Похоже на кривую модификацию стандартного шрифта с неизвестной целью.

[Bublik 22]

%%C. Это самое простое решение. Причём "С" латиницей (аглицкой тобиш). Я делаю это с помощью тексового редактора VetCad. Очень удобно.

[Yuzer]

Сообщение от zmr2114 Шрифт не меняю, просто на одном комп. все работает, а прихожу домой, вместо символа буква.

Ну сказали же - шрифт не такой (может год выпуска другой, может изуродованый, может еще чего...).

[Jonas]

Сообщение от AlexV Как раз сегодня сделал похожий макрос..

Что то не хочет работать. Акад2011. Доп. модуль для VBA с сайта загрузил.
Окно открывается, предлагает выбрать размер и всё.

[zmr2114]

KSI, объясняю. У меня на работе имеется комп, на нем установлены текстовые редакторы MS и OpenOffice. Аналогичные версии данных программ я установил на компьюторе дома, однако создавая документ на рабочем компе и открывая его дома, я вместо знака диаметра обнаруживаю букву Ш. С чем это связано не знаю.
Yuzer, программы я устанавливал с одного носителя, а результат разный. Сегодня установил MS 2011, результат такой же, символа диаметр нет в шрифтах Areal и Times New Roman. Аналогичная ситуация в Акад2007. Что за безобразие.

[Yuzer]

Сообщение от zmr2114 однако создавая документ на рабочем компе и открывая его дома, я вместо знака диаметра обнаруживаю букву Ш. С чем это связано не знаю.

Перенести шрифты с рабочего компа на домашний (это самое пройстое). Не получится - будем думать.
папка С/Widows/Fonts и соответственно установить их.

[KSI]

zmr2114, отсюда я не вижу, какие установлены операционные системы у Вас дома и на работе. А также не могу посмотреть папку шрифтов на обеих машинах. Поэтому я и задал такой вопрос. Чем полней человек опишет ситуацию, тем больше вероятность получения правильного ответа.

Попробуйте с помощью стандартной программы "Таблица символов", проверить наличие знака диаметра в файлах шрифта - код 00D8 и 02205.
Да, и какие значения в реестре HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Nls\CodePage для ключей 1250, 1251 и 1252?

[zmr2114]

U+00D8 буква Ш
U+2205 отсутствует
При установке шрифта Arial Unicode MS, символ присутствует на своих местах.
Я в компьютере не силен и не знаю как проверить какие значения в реестре HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Nl s\CodePage для ключей 1250, 1251 и 1252.
На обоих компах (рабочий и домашний) у меня установлена одна и таже операционная система Windows Home Edit.

[KSI]

Сообщение от zmr2114 U+00D8 буква Ш

а должен быть Ø. Отсюда и проблема.