线型比例滑块

einstainas · 发表于 2022-7-6 11:02:02

大家好。我在寻找滑块，可以轻松改变全球线型比例。
我的意思是它应该是一个对话框。

einstainas · 发表于 2022-7-6 11:18:36

大家好，我想通过使用滑块更改全局线型比例。
我知道它可以使用vlisp或smth创建对话框。

fixo · 发表于 2022-7-6 11:36:38

下面是一个快速的例子，可以根据需要进行更改


;;slide_ltype.lsp
(defun c:lts (/ dcl_id )
 (setq dcl_id (load_dialog "slide_ltype.dcl"))
 (new_dialog "begun" dcl_id)
 (set_tile "dia" "") 
 (set_tile "beg" "1")
 (setq const (get_tile "txt"))
 (action_tile "beg" (strcat
        "(progn "
        "(setq val $value)"
        "(set_tile "txt" val)))"         
        )
   )
 (action_tile "accept" "(done_dialog)(setq hit T)")
 (action_tile "cancel" "(done_dialog)(setq hit nil)")
 (setq result (start_dialog))
 (unload_dialog dcl_id)
 (alert (strcat "Percents selected: " val))
 (princ)
)

copy


;;slide_ltype.dcl
begun : dialog {
 key = "dia";
 label = "";
 spacer;
 : row {
     : edit_box {label = "Selected value:";
     key = "txt";
     value = "";
     edit_width = 8;
     }
 }
 : row {
   height = 1.97;
   : text_part {
     key = "empty";
     label = "";
   }
   : slider {
     key = "beg";
     min_value = 0;
     max_value = 100;
     small_increment = 1;
     big_increment = 2;
     width = 42;
     fixed_width = true;
     is_tab_stop = false;
   }
 }
 ok_cancel;
}