我陷入困境,找不到解决办法。
我正在编写一个带有DCL的lisp,它将绘制tee支持。我的DCL中显示了该列表,但当您选择钢材尺寸时,它不会设置我存储的任何值。
现在,我在程序中只有两种钢尺寸,以尝试简化它。
有人能给我指一下正确的方向吗?
有些地方我肯定不正确
- (if userclick
- (progn
- (setq $COLSIZE$ (fix $COLSIZE$))
- (setq $COLSIZE$ (nth $COLSIZE$ column))
- (setq $BMSIZE$ (fix $BMSIZE$))
- (setq $BMSIZE$ (nth $BMSIZE$ beam))
- )
设置变量
- (defun info ()
-
-
- ((= $COLSIZE$ "W5X19")
- (SETQ COLDEPTH 5.13)
- (SETQ COLFLGTHK 0.44)
- (SETQ PLTDEPTH 0.75)
- (SETQ PLTWIDTH 12.0)
- )
用户输入
- (set_tile "toselev" "000.000")
- (mode_tile "toselev" 0)
- (action_tile "toselev" "(setq TOSEL $value)")
Tee_测试。LSP
TPOLE。dcl |