lisp填写明细表对话框_请问怎么给已经编好的autolisp程序加入对话框？

展开全部

你要先制作一个DCL对话框，然后62616964757a686964616fe59b9ee7ad9431333337376264在LISP里面加载对话框，判断用户点的是否“确定”，然后读取数据，继续下一步处理。

下面是LISP对dy.dcl数据的读取：

(DEFUN get_dyss_TITLE( / )

(SETQ lltype (GET_TILE "lltype") ;电缆型号

size1 (atoi (GET_TILE "size")) ;电缆型号

COSFI (atof (GET_TILE "COSFI")) ;功率因素

PE (atof (GET_TILE "PE")) ;有功功率

long (atof (GET_TILE "long")) ;电缆长度

)

)

(defun c:dys( / )

(SETQ DCL_ID (LOAD_DIALOG "dys.dcl"))

(NEW_DIALOG "dys"  DCL_ID)

(if (/= nil lltype) (SET_TILE "lltype" lltype))

(if (/= nil size1) (SET_TILE "size" (itoa size1)))

(if (/= nil COSFI) (SET_TILE "COSFI" (rtos COSFI 2 2)))

(if (/= nil PE) (SET_TILE "PE" (rtos PE 2 2)))

(if (/= nil LONG) (SET_TILE "long" (rtos LONG 2 3)))

(ACTION_TILE "accept" "(get_dyss_TITLE)(DONE_DIALOG)")

(START_DIALOG) (UNLOAD_DIALOG DCL_ID)

;继续对获得的数据处理

(princ)

)