Lisp.Ручная нумерация точек чертежа

[Танюха]

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

 

Num_Nc.lsp

[Boroda888]

Добрый день! Весёлая штука, только я добавил еще и выбор высоты текста в order

(defun c:order (/ ht at begin ht ht_tmp) 
;; http://cad.ru/ru/forum/index.php?PAGE_NAME=message&FID=22&TID=1892&TITLE_SEO=1892&MID=66088#message66088
;; ht 3 - Это высота текста, в данном случае 3.
;; at 0 - это угол наклона текста, в данном случае 0.
;; strcat (itoa num) ".D"
;; strcat - это объединение нескольких строк в одну.
;; (itoa num) - это увеличивающийся номер.
;; .D - это то что добавляется после числа.
;; Текст, который необходимо добавить к увеличивающемуся числу пишем в кавычках до и/или после (itoa num).

 (if (not num)(setq num 1)) 
 
 (setq at 0)
(progn (if (not ht_tmp) (setq ht_tmp 3.5))
    (setq  ht (getreal (strcat "\nВведите высоту текста<"(rtos ht_tmp 2 2)">:")))
    (if (= ht nil)
        (setq ht ht_tmp)
    (setq ht_tmp ht)
    )
)
 (if (setq begin (getint (strcat "Начальный номер <" (itoa num) ">:")))(setq num begin)) 
 (while (setq pt(getpoint (strcat "Укажите местоположение номера [" (itoa num) "]:"))) 
   (command "_text" pt ht at (strcat (itoa num))) 
   (setq num(1+ num)) 
 ); while
); defun c:order 

[Sapunova_Elena]

Добрый день, а можно еще раз выложить для скачивания Num_Nc.lsp, но что бы работало на 21 версии.

Спасибо. 

[Boroda888]

simple_numbering.lsp

[Sapunova_Elena]

Здорово!

Я можно что бы и выноска при этом вставлялась? 

[Boroda888]

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

добавлено через 1 минуту

Можно и маркером замутить

[Boroda888]

Если по простому то можно так

Новый маркер 2.mcdi

[MCAD]

1 час назад, Boroda888 сказал:

Можно и маркером замутить

Auto number.mcdi

добавлено через 0 минут

28 минут назад, Boroda888 сказал:

Если по простому то можно так

Опередил 

[cad@maxsoft.ru]

2 часа назад, Boroda888 сказал:

расстановкой - есть ведь унниверсальная выноска 

Ссылка на утилиту, о которой идет речь в видео.

[MCAD]

В 01.12.2021 в 14:39, Boroda888 сказал:

Если по простому то можно так

 

В 22-й версии можно так:

 

 

Auto number and Table.mcdi

[Юлия И]

Спасибо огромное! Работает! Удобно особенно когда миллион датчиков нужно пронумеровать

[cad@maxsoft.ru]

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

Ссылка на демонстрацию.

И как вариант, можно автоматизировать расстановку по всем объектам чертежа(например для 100 плиний сразу), если задействовать Диспетчер чертежа и RPA систему(но если навыка хватает на работу через API, то лучше через него)

[CSpace]

А есть что-то подобное, но которое умеет изменять разрядность (1,2,3 или 001, 002, 003), умеет в замену в цепочке (если посреди цепочки появился новый датчик, например), в общем - есть ли замена MyOrder в нанокаде?) а то fas не поддерживается

[CSpace]

В 18.10.2022 в 16:10, CSpace сказал:

А есть что-то подобное, но которое умеет изменять разрядность (1,2,3 или 001, 002, 003), умеет в замену в цепочке (если посреди цепочки появился новый датчик, например), в общем - есть ли замена MyOrder в нанокаде?) а то fas не поддерживается

Подобрал NumInc, худо-бедно справляется, но до MyOrder далеко, конечно (сохранение в памяти цепочек, перенумерация, если в середине адрес появляется)

Edited November 21, 2022 by CSpace

[Sart]

20 часов назад, CSpace сказал:

Подобрал NumInc, худо-бедно справляется, но до MyOrder далеко, конечно (сохранение в памяти цепочек, перенумерация, если в середине адрес появляется)

Добрый день. Я так понимаю имеете ввиду NumInc который от LeeMac? Подскажите каким образом запустили его на нанокад? У меня нанокад 22, не получается запустить

[CSpace]

2 часа назад, Sart сказал:

Добрый день. Я так понимаю имеете ввиду NumInc который от LeeMac? Подскажите каким образом запустили его на нанокад? У меня нанокад 22, не получается запустить

Да, он. lsp файл, через настройки-приложения-загрузка приложения.