Добрый день.
А возможно адаптировать приложенный лисп нумератора под Nanocad? Очень удобный для нумерации/перенумерации по клику.
drenum-v4-1.zip (8,7 КБ)
trenum-nc.zip (10,8 КБ)
Про исходники под акад - см. здесь
Нумерация мультивыносок. - Страница 2
Сравнила DRENUM_v4-2.lsp, оказалось, что TRENUM.lsp - это более новая версия, отличия:
TRENUM.LSP - Программа автонумерации/ренумерации следующих элементов ;;
;; TEXT, MTEXT, ACAD_TABLE, MULTILEADER (мультивыносок) и ATTRIBUTES (атрибутов). ;;
;; Имеется три независимых счётчика с независимыми инкрементами, префиксами и суффиксами. ;
DRENUM.LSP - Программа автонумерации/ренумерации следующих элементов ;;
;; TEXT, MTEXT, ACAD_TABLE, MULTILEADER (мультивыносок) и ATTRIBUTES (атрибутов). ;;
;; Имеется два независимых счётчика с независимыми инкрементами, префикс и два суффикса.
Поэтому адаптировала TRENUM.lsp. Проблема в использовании “concatenation” (в настоящее время не поддерживается в nanocad) во встроенных диалогах.
В замен сложных конструкций типа
" : concatenation {children_fixed_width = true; alignment = left; children_alignment = centered ; fixed_width = true; width = 40; "
" : text {label = “Первый префикс:”; alignment = left; fixed_width = true; width = 30;} // текстовое поле "
" : edit_box {key = “dclsbgPDTRPrefixOne”; edit_width=20; value = “”; fixed_width = true; width = 20; alignment = right; } // редактируемое текстовое поле "
" } // конец concatenation "
Достаточно использовать
" : edit_box {label = “Первый префикс:”; key = “dclsbgPDTRPrefixOne”; edit_width=20; value = “”; fixed_width = true; } // редактируемое текстовое поле "
Также не поддерживается children_alignment и children_fixed_width в :dialog
"dcl_trenum_all: dialog {label = " —=={Ренумератор}==— "; initial_focus = “dclsbgPDTRPrefixOne” ; // начало диалога //LA children_alignment = centered; children_fixed_width = false; "
Спасибо огромное