Перейти к содержанию

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


Рекомендуемые сообщения

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

 

Num_Nc.lsp

Ссылка на сообщение
Поделиться на другие сайты
  • 4 месяца спустя...

Добрый день! Весёлая штука, только я добавил еще и выбор высоты текста в 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 

Ссылка на сообщение
Поделиться на другие сайты

Присоединяйтесь к обсуждению

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

Гость
Ответить в этой теме...

×   Вставлено с форматированием.   Восстановить форматирование

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

Загрузка...
  • Расскажите друзьям

    Нравится Официальный форум компании Нанософт? Расскажите друзьям!
  • Похожий контент

    • От Vozhich
      Есть программы которая считывает атрибуты блока и заполняет таблицу (например: общие данные).
      Случайно заметил глюк. При очередном открытии файла (после просмотра его автокадом) атрибуты блоков немного "поплыли".
      Помогает команда в командной строке "атробновить". Атрибуты в пространстве модели после этого выглядят нормально. Но программное чтение атрибута не видить его значения.
      При этом в свойствах блока значения атрибутов видно. Чтобы исправить ситуацию приходится ручками заходить в редактирование атрибута блока и не редактируя выйти.
      Что это может быть? и как избежать?
    • От A.Kudrjashov
      В AutoLISP различие результата выполнения функций print и prin1 заключается в частности в том, что функция print предваряет вывод очередной порции текста переводом строки.
      В nanoCAD этого не происходит ! 

       
      TestPrint.lsp
       
      test-print_nanoCAD.txt
       
      test-print_AutoCAD.txt
    • От Танюха
      Отрисовка условного обозначения откосов дороги с возможностью регулировать расстояние между штрихами (2,4).
      Ролик снят в nanoCAD 20.1
      otkgp_1.lsp
    • От Танюха
      Значения координат точек (X,Y,Z) выводятся в системе координат nanoCAD, округленные до двух знаков после запятой. Вывод координаты Z можно отрегулировать. 
      geo_koord_mleader_adapt.lsp
    • От Танюха
      Экспорт координат указанных точек, выбранных объектов: точек, блоков, полилиний, сплайнов в текстовый файл или Excel. Округление координат происходит в соответствии с текущими настройками команды _UNITS
      coorN_nano.LSP
×
×
  • Создать...