程序合并，请教给位。

shcvip

1、ccqWidth 不等于空的时候（nil），执行以下文件
(if  (< (- (* ccqWidth 0.5) 7200) 0)
(setq HD_spacingW (if ccqWidth (* ccqWidth 0.5) 5200))
(setq HD_spacingW (if ZXTfkcbW (* ZXTfkcbW 1) 4000))
  )
2、ccqWidth 等于空的时候(nil)，执行以下文件
(or HD_spacingW (setq HD_spacingW 5000 ))


以上程序，如何合并，请教各位,谢谢！

rocking2008

(if  (= cqwidth nil)
(or HD_spacingW (setq HD_spacingW 5000 ))

(if  (< (- (* ccqWidth 0.5) 7200) 0)
(setq HD_spacingW (if ccqWidth (* ccqWidth 0.5) 5200))
(setq HD_spacingW (if ZXTfkcbW (* ZXTfkcbW 1) 4000))
   )

)

shcvip

rocking2008 发表于 2021-7-8 08:55
(if  (= cqwidth nil)
(or HD_spacingW (setq HD_spacingW 5000 ))

二个程序，还是未实现合并功能。

shcvip

2. (if  (= cqwidth nil)
   
3. (PROGN (or HD_spacingW (setq HD_spacingW 5000 )))
   
4. 
   
5. (progn (if  (< (- (* ccqWidth 0.5) 7200) 0)
   
6. (setq HD_spacingW (if ccqWidth (* ccqWidth 0.5) 5200))
   
7. (setq HD_spacingW (if ZXTfkcbW (* ZXTfkcbW 1) 4000))
   
8.    )
   
9.   )
   
10. 
    
11. )

(if  (= cqwidth nil) <br /> (PROGN (or HD_spacingW (setq HD_spacingW 5000 )))<br /> <br /> (progn (if  (< (- (* ccqWidth 0.5) 7200) 0) <br /> (setq HD_spacingW (if ccqWidth (* ccqWidth 0.5) 5200)) <br /> (setq HD_spacingW (if ZXTfkcbW (* ZXTfkcbW 1) 4000))<br />    )<br />   )<br /> <br /> )

这样会好点，可运行中，还是有个问题， ccqWidth改变了，还是记忆第一次中的数值。

shcvip

可能是我自己程序的问题。