[dextron3]

Хотел посоветоваться

Можно ли сделать лисп в котором бы хранились часто используемые слова и фразы в автокаде... (сами слова пополнялись в текстовом файле из которого бы читала их программа)

сам лисп имелбы интерфейс как на скриншоте...

Принцип действия:

1. Нажал на кнопку вышло окошко
2. Щелкунл двойгым щелчком
3. Затем выбрал текст или м-текст (и он заменился бы на выбранный)

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


Надеюсь на помощь VVA... (у Вас был похожий вариант со вставкой букв в алфавитном порядке)

[Sleekka]

Позволю себе одно уточнение:

Код:

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

                      (cons "Катет" "\U+0009")
                      (cons "Промилле" "\U+2030")

Когда я писал подобный код - имели место не срабатывания один раз из 500.
обходил так:

Код:

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

                      (cons "Катет" "\\U+0009")
                      (cons "Промилле" "\\U+2030")

[Red Nova]

МОДЕРАТОРЫ, КАК УДАЛИТЬ ОШИБОЧНОЕ СООБЩЕНИЕ?

[CB]

Код:

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

(cons "Катет" "\\U+0009")
(cons "Промилле" "\\U+2030")

[dextron3]

Red Nova, а где ты хоть раз видел спецификацию которая бы не начиналась с еденицы?

[Red Nova]

Если на каждый элемент новая нумерация то согласен, а если сквозная нумерация то очень даже бывает. Кроме того иногда попадается такой порядок 1, 2, 3, 3', 4 ... Что тогда делать? Надо делить на два приема.

[VVA]

Сообщение от dextron3 VVA, а можно еще вариацию лиспа NUM_Y, чтобы он просто цыфры по порядку выставлял, без пробела и точки (т.е. любой текст заменял на цыфры по оси Y) нужно для спецификации, потомучто иногда бывает что цыфр не хватает я копирую и использую програмку от Дениса на VBA, но она очень навороченная, а хочется простого...

Код:

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

(defun C:NUM_Y1 ( / ss start i lst ed str )
  (vl-load-com)
  (and (setq start (getint "\nНачальный номер <выход>: "))
       (setq ss (ssget "_:L" '((0 . "*TEXT"))))
       (setq lst nil i '-1)
       (repeat (sslength ss)
	 (setq lst (cons (ssname ss (setq i (1+ i))) lst))
	 )
       (setq lst (vl-sort lst '(lambda (e1 e2)
				 (> (caddr(assoc 10 (entget e1)))(caddr(assoc 10 (entget e2))))
				 )
			  )
	     )
       (foreach e1 lst
	 (setq ed (entget e1))
	 (setq str (cdr(assoc 1 ed)))
	 (setq ed (subst (cons 1 (itoa start))
			 (assoc 1 ed)
			 ed)
	       )
	 (entmod ed)
	 (setq start (1+ start))
	 )
       )
  (princ)
  )

Если в коде #37 заменить (0 . "TEXT") на (0 . "*TEXT"), то будет обрабатывать и МТЕКСТ

[Солидворкер]

Сообщение от Red Nova МОДЕРАТОРЫ, КАК УДАЛИТЬ ОШИБОЧНОЕ СООБЩЕНИЕ?

Кнопка

[dextron3]

VVA, спасибо!

Offtop: Хотел поинтересоваться иногда дают чертежи к примеру там нарисовано три линии и стоят размеры: Общий 4500, и два один 2000 и 2501, хотя все привязки точка к точки, мне приходится выполнять стренж, на расстояние 0.33, в меньшую сторону, т.е этот размер меньше единицы но автокад в одном случа его округляет в меньшую сторону а в другом в
большую, как с этим можно побороться, так как у меня когда я черчу, такого никогда не наблюдается, но когда архитектор дает чертежи то сразу этого не заметно а потом всплывают данные косяки при использовании осей, из выданных чертежей, но самое главное архитектурные размеры показывают правильно а когда я образмериваю, то единицы и 9 выскакивают...

[Red Nova]

VVA, Спасибо
dextron3,
Offtop: Лето то уже кончалось.

[dextron3]

Offtop: Red Nova, исправил

[gipro]

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

[VVA]

gipro, Может не весь код скопировал? Там то и не работать нечему.

[gipro]

Заработал... после переименования из number.lsp в num.lsp...

[VVA]

Значит где-то был файл-дубликат. Набери в ком. строке
(findfile "number.lsp") и проветь тот ли путь выдает

[dextron3]

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

[VVA]

Я так понял речь о NBOOK1

Код:

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

(setq txt (entmakex
      (list
        (cons 0 "TEXT")
        (cons 100 "AcDbEntity")
        (cons 100 "AcDbText")
        (cons 72 0)           ;_ выравнивание влево
        (cons 1 str)
       (cons 7 (getvar "TEXTSTYLE")) ;_Текущий стиль
        ;(cons 8 layer) ;_Текущий слой
        (cons 10 '(0 0 0))
        (cons 11 '(0 0 0))
        (cons 40 (getvar "TEXTSIZE")) ;_Текущей высотой текста (переменная TEXTSIZE)
        ) ;_ list
      ) ;_ entmakex
          )

Проверь значение TEXTSIZE

[dextron3]

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

[dextron3]

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

[VVA]

См. выделенное красным в #56 . Пишется текущей высотой, хранящейся с переменной TEXTSIZE. Вот ее и меняй перед вызовом команды.
Типа такого

Код:

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

^C^CTEXTSIZE;3.7;NBOOK1;

Где 3.7 - высота текста

[Astartes]

А можно ли сделать чтобы еще коэффициент сжатия был определенный, например 0,75.
Пытался найти переменную, отвечающую за сжатие, чтобы найти ее в лиспе, но что то не осилил. ((