flowerrobot，我不知道你说的“自己弹出”而不是“箭头”是什么意思。至于没有进入超过11个选项的命令行的提示，我认为最好解决一个对话框。
我支持这个-
我非常怀疑有没有一种方法可以使下拉列表独立地下拉，而对话框可以让事情变得更清楚。 如果您需要一个包含选项列表的对话框，欢迎您使用。我不久前写了它，用于快速选择列表框。
;list select dialog
;create a temp DCL multi-select list dialog from provided list
;value is returned in list form, DCL file is deleted when finished
;example: (setq the_list (AT:listselect "This is my list title" "Select items to make a list" "25" "30" "true" (list "object 1" "object 2" "object 3"))
;if mytitle is longer than defined width, the width will be ignored and it will fit to title string
;if mylabel is longer than defined width, mylabel will be truncated
;myheight and mywidth must be strings, not numbers
;mymultiselect must either be "true" or "false" (true for multi, false for single)
;created by: alan thompson, 9.23.08
;some coding borrowed from http://www.jefferypsanders.com (thanks for the DCL examples)
(defun AT:listselect( mytitle ;title for dialog box
mylabel ;label right above list box
myheight ;height of dialog box !!*MUST BE STRING*!!
mywidth ;width of dialog box !!*MUST BE STRING*!!
mymultiselect ;"true" for multiselect, "false" for single select
mylist ;list to display in list box
/ retlist readlist count item savevars fn fo valuestr dcl_id )
(defun saveVars(/ readlist count item)
(setq retList(list))
(setq readlist(get_tile "mylist"))
(setq count 1)
(while (setq item (read readlist))
(setq retlist(append retList (list (nth item myList))))
(while
(and
(/= " " (substr readlist count 1))
(/= "" (substr readlist count 1))
)
(setq count (1+ count))
)
(setq readlist (substr readlist count))
)
);defun
(setq fn (vl-filename-mktemp "" "" ".dcl"))
(setq fo (open fn "w"))
(setq valuestr (strcat "value = \"" mytitle "\";"))
(write-line (strcat "list_select : dialog {
label = \"" mytitle "\";") fo)
(write-line
(strcat " : column {
: row {
: boxed_column {
: list_box {
label =\"" mylabel "\";
key = \"mylist\";
allow_accept = true;
height = " myheight ";
width = " mywidth ";
multiple_select = " mymultiselect ";
fixed_width_font = false;
value = \"0\";
}
}
}
: row {
: boxed_row {
: button {
key = \"accept\";
label = \" Okay \";
is_default = true;
}
: button {
key = \"cancel\";
label = \" Cancel \";
is_default = false;
is_cancel = true;
}
}
}
}
}") fo)
(close fo)
(setq dcl_id (load_dialog fn))
(new_dialog "list_select" dcl_id)
(start_list "mylist" 3)
(mapcar 'add_list myList)
(end_list)
(action_tile "cancel" "(setq ddiag 1)(done_dialog)")
(action_tile "accept" "(setq ddiag 2)(saveVars)(done_dialog)")
(start_dialog)
(if (= ddiag 1)
(setq retlist nil)
)
(unload_dialog dcl_id)
(vl-file-delete fn)
retlist
);defun 谢谢你的剧本，
的确，这可能是一个很好的选择，如果我错了，请纠正我。
但我试图创建的是，你要么输入intiger，要么输入一个关键字，我在命令行和“（command“textscr”）上都弹出，然后在输入后删除它，但正在考虑删除弹出窗口，并将该列表下拉（动态输入）。但如果我用那个拨号框，这意味着它更难输入一个dosnt吗？我正试图用尽可能少的输入来制作程序
这是第一份菜单。
我希望你明白我的意思
谢谢你堆
花
(defun menuoptions ()
(if (= mass nil)(setq Mass 0.00000785)) ;End if
(if (= mass 0.00000818)(setq masstype "316 S.S.")) ;End if
(if (= mass 0.00000785)(setq masstype "MILD STEEL")) ;End if
(if (= mass 0.0000078029)(setq masstype "SAF 3402")) ;End if
(if (= masli nil)(setq masli "YES")) ;End if
;--------------------------------settings------------------------------------
(cond
((= "AU" sectionlocation)
(princ "\n-----AUSTRALIAN SECTIONS------"))
((= "C" sectionlocation)
(princ "\n------CANADIAN SECTIONS------"))
((= "AM" sectionlocation)
(princ "\n------AMERICAN SECTIONS-------"))
((= "S" sectionlocation)
(princ "\n------SOUTH AFRICAN SECTIONS------"))
)
(princ "\n<SE>= SETTINGS, ALLOWS YOU TO SET MASS PROPERTIES")
(princ "\n<N> = SET ITEM NUMBER")
(princ "\n<M> = TOGGLE MASS BOX INSERTION ON/OFF")
(princ "\n<C> = CONE PROGRAM, FINDS OUT WEIGHT OF A CONE")
(princ "\n<D> = FOR PIPE OR FLANGE SIZES")
(princ "\n<CU>= CUSTOM FLANGE")
; CHANGES DEPENDING ON SETTING FOR CAN AMERICAN OR SA SECTIONS
(if (= nil sectionlocation)
(setq sectionlocation "AU")
)
(cond
((= "AU" sectionlocation)
(progn
(princ "\n<E> = EQUAL ANGLE")
(princ "\n<U> = UNEQUAL ANGLES")
(princ "\n<P> = PFC")
(princ "\n<B> = UNVERSAL BEAM")
(princ "\n<UC>= UNVERSAL COLUMN")
(princ "\n<NA>= NON-AUSTRLIAN SECTION")
)
)
((OR (= "AM" sectionlocation)(= "C" sectionlocation))
(progn
(princ "\n<W> = 'W'TYPE BEAM")
(princ "\n<H> = 'HP' TYPE BEAM")
(princ "\n<MM>= 'M'TYPE BEAM")
(princ "\n<S> = 'S'TYPE BEAM")
(princ "\n<MC>= 'MC' TYPE BEAM")
(princ "\n<CC> = CHANNEL")
(princ "\n<A> = ANGLE")
)
)
;((= "C" sectionlocation) THE CAN IS THE SAME AS THE AMERICAN ONE,
((= "S" sectionlocation)
(progn
(princ "\n<W> = 'W'TYPE BEAM")
(princ "\n<H> = 'HP' TYPE BEAM")
(princ "\n<MM>= 'M'TYPE BEAM")
(princ "\n<S> = 'S'TYPE BEAM")
(princ "\n<MC>= 'MC' TYPE BEAM")
(princ "\n<C> = CHANNEL")
(princ "\n<A> = ANGLE")
)
)
)
(princ "\nWelcome To weight calc ")
(if (= masli "YES")
(princ "\nYou currently want Mass box insertion ON")
(princ "\nYou currently want Mass box insertion OFF")
)
(princ "\nCurrent Metal is : ")(princ Masstype)
(command "textscr")
(initget 7 "SE C N D E U P B UC NA CU M W H MM S MC CC A")
(setq mp1 (getdist "\nENTER WIDTH PLATE, or key for options : "))
(command "graphscr")
)
页:
1
[2]