[МИХАИЛCAD]

Как создать кнопку в dcl окошке для редактирования программы lsp которую запускаешь для получения этого dcl окошка

[Do$]

Код:

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

:button {"label=Редактировать программу LSP"; key="button_edit_lsp"; fixed_width=true;}

[gomer]

во-первых, на кой, ой, это надо???
во-вторых, нелья так просто взять и отредактировать программу LSP. Но можно отредактировать файл с расширением LSP
в-третьих, Do$, ты хоть сам понял что написал?
в четвертых, мой вариант:

Код:

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

 dlg_edit_lsp : dialog {
  label= "МИХАИЛCAD";
  : row {
      : retirement_button {label= "Редактировать программу LSP"; key="button_edit_lsp"; height= 4;}
      : retirement_button {is_cancel  = true; key = "cancel"; label ="Отмена";}
      // cancel_button;
    }
}

[Do$]

Сообщение от gomer в-третьих, Do$, ты хоть сам понял что написал?

Исправил свой пост. Так понятнее?

[gomer]

Сообщение от Do$ Так понятнее?

так понятнее, но я бы использовал

Сообщение от gomer retirement_button

вместо

Сообщение от Do$ fixed_width=true

в данном случае

[МИХАИЛCAD]

Код:

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

 ;ЗАМЕНА ТЕКСТА В СПЕЦИФИКАЦИИ
(defun DN_ShowNote (/ lnum lnote)
(set_tile "error" "")
(setq lnum  (get_tile "lb_notes") lnote (nth (atoi lnum) dm_notes))
(set_tile "eb_note" lnote)
(set_tile "ebt_note" lnote)
(set_tile "ebm_note" lnote)
(princ))
(defun DN_PlaceNote ()
(set_tile "error" "")
(setq dn_modifier (get_tile "eb_note"))
(if (= dn_modifier " ") (set_tile "error" "Invalid note string") (done_dialog 1)))
(defun DN_AppendDim (val placement / ent dval)
(setq ent (car (entsel "\nSelect TEXT to replace: " )))
(while (/= "TEXT" (cdr (assoc 0 (entget ent))))
       (princ "\nSelected entity is not a TEXT")
       (setq ent (car (entsel "\nПометить текст для замены: "))));while
(setq ent  (entget ent) dval (cdr (assoc 1 ent)))
(if (= dval "")(setq dval "<>"))
(if (= placement 1) ;after line
     (setq val (strcat val))
     (progn
      (if (wcmatch dval "")
          (setq val (strcat val))
          (setq val (strcat val))))) 
(entmod (subst (cons 1 val)(assoc 1 ent) ent))
(princ))
;---------------
(defun C:ТЕКСТВСПЕЦ (/ dcl_id dm_notes dn_after dn_before)
(setq dcl_id (load_dialog "ТЕКСТВСПЕЦ.dcl"))
(if (not (new_dialog "ТЕКСТВСПЕЦ" dcl_id))(exit))
(setq dm_notes 
'("уголок"
"швеллер") 
 dn_after   0)
(set_tile "eb_note" "уголок")
(set_tile "dn_after" "1")
(start_list "lb_notes")   
(mapcar 'add_list dm_notes)  
(end_list)
(set_tile "lb_notes" "4")
(action_tile "lb_notes" "(DN_ShowNote)")
(action_tile "dn_after" "(setq dn_after 1)")
(action_tile "dn_before" "(setq dn_after 0)")
(action_tile "accept" "(DN_PlaceNote)")
(action_tile "cancel" "(done_dialog 0)")
(if (eq (start_dialog) 1) (DN_AppendDim dn_modifier dn_after))
(unload_dialog dcl_id)
(princ))
(princ "\nТЕКСТВСПЕЦ Loaded...")
(princ)
(C:ТЕКСТВСПЕЦ)

Код:

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

// ТЕКСТВСПЕЦ - ЗАМЕНА ТЕКСТА В СПЕЦИФИКАЦИИ
ТЕКСТВСПЕЦ : dialog {
    label = "ТЕКСТВСПЕЦ.LSP - ДЛЯ ЗАМЕНЫ ТЕКСТА В СПЕЦИФИКАЦИИ";
            : boxed_row {
    initial_focus = eb_note;
            : list_box {
                label = "ЦЫФРЫ";
                mnemonic = "o";
                key = "lb_notes";
                width = 30;
                height = 30;
            }
    initial_focus = ebt_note;
            : list_box {
                label = "БУКВЫ";
                mnemonic = "o";
                key = "lbt_notes";
                width = 20;
                height = 30;
            }
    initial_focus = ebm_note;
            : list_box {
                label = "СЛОВА";
                mnemonic = "o";
                key = "lbm_notes";
                width = 40;
                height = 30;
            }
}
            : edit_box {
                label = "Предлагаемая строчка для замены:";
                key = "eb_note";
                horizontal_alignment =  left;
            }
//:button {"label=Редактировать программу LSP"; key="button_edit_lsp"; fixed_width=true;}
     ok_cancel;
}

[gomer]

МИХАИЛCAD, к чему это?

[МИХАИЛCAD]

Сообщение от gomer МИХАИЛCAD, к чему это?

Как хочу пользоваться:
что бы не набирать каждый раз какие то стандартные тексты
с помощью этой кнопки заходим в файл и добавляем нужную фразу
при следующем запуске этой программы уже имеем редактированный список фраз
и вставляем или заменяем стандартную фразу очень быстро