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)
)

 

;;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;
}


 
~'J'~

einstainas 发表于 2022-7-6 11:50:13

thnx。我希望它能起作用

fixo 发表于 2022-7-6 12:11:45

不客气
 
~'J'~
页: [1]
查看完整版本: 线型比例滑块