很多时候，我在lisp中看到多个问题，并认为一个好的dcl会更好，但编写dcl和接口LSP很耗时，所以我试图通过加载一个单独的lisp和几行代码，将两者基本结合起来，从一行输入到dcl支持的尽可能多的代码。
无论如何，它如此接近，所以我在这里发布了代码，它自动生成dcl和运行它所需的lsp。我只是有一个作家块和它如此接近。所以，对所有人来说，都很感激。
- ;; writes a multiline input dcl file from generic input
- ;; By BIG AL May 2015
- (defun AH:write-items (keynum title / )
- (write-line ": edit_box {" f1)
- (write-line (strcat " key = " (chr 34) Keynum (chr 34) ";") f1)
- (write-line (strcat " label = " (chr 34) title (chr 34) ";" ) f1)
- ; these can be replaced with shorter value etc
- (write-line " edit_width = 18;" f1)
- (write-line " edit_limit = 15;" f1)
- (write-line " is_enabled = true;" f1)
- (write-line " }" f1)
- (if (= AHnum nil)(setq AHnum 0))
- (write-line (strcat "(action_tile " (chr 34) keynum (chr 34) " " (chr 34) "(setq item" (rtos (setq AHnum (+ AHnum 1)) 2 0) " $value)" (chr 34) ")" ) f2)
- )
- ; this defun writes the first few lines of the lsp and dcl files
- (defun AH:openfiles ()
- (setq f1 (open "C://acadtemp//getval.dcl" "w"))
- (setq f2 (open "C://acadtemp//getvals2.lsp" "w"))
- ; dcl
- (write-line "ddgetval : dialog {" f1)
- (write-line (strcat "label = " (chr 34) "Enter values" (chr 34) ";") f1)
- (write-line ": column {" f1)
- ;lsp
- (write-line (strcat "(setq dcl_id (load_dialog " (chr 34) "c:\\acadtemp\\getval" (chr 34) "))" ) f2)
- (write-line (strcat "(if (not (new_dialog " (chr 34) "ddgetval" (chr 34) " dcl_id))" ) f2)
- (write-line "(exit))" f2)
- ) ; defun
- ; closes files
- ;dcl
- (defun AH:closefiles ()
- (write-line "spacer_1 ;" f1)
- (write-line "ok_cancel;}" f1)
- (write-line "}" f1)
- (close f1)
- ;lsp
- (write-line "(START_DIALOG)" f2)
- (write-line "(done_dialog)" f2)
- (close f2)
- (setq num nil)
- )
- ; this is test code which would be added to a seperate routine asking 4 questions
- (AH:openfiles)
- (AH:write-items "key1" "Title1") ; (setq ans1 key1)
- (AH:write-items "key2" "Title2") ; (setq var1 key2)
- (AH:write-items "key3" "Title3") ; (setq var2 key3)
- (AH:write-items "key4" "Title4") ; (setq xx key4)
- (AH:closefiles)
- ;(load "C:\\acadtemp\\getvals2") ; it should return 4 values item1 item2 item3 item4
- ;(alert (strcat item1 "\n" item2 \n item3 \n item4)) ; just a test line
| 
置顶卡
