用光标选择显示SLD插入图

chpmould

这是一个用光标选择屏幕显示SLD画面,然后插入图形的源代码，

请各位高手能否帮我讲解一下，以下用红色字体代码的意思，

或添加详细的注释。(附上.SLD文件)

(DEFUN C:22 ()
     (SETVAR "CMDECHO" 0)
     (COMMAND "VSLIDE" "ZSK")
     (SETQ VC (GETVAR "VIEWCTR"))
     (SETQ YR (GETVAR "VIEWSIZE"))
     (SETQ VX (GETVAR "VSMAX"))
     (SETQ VI (GETVAR "VSMIN"))
     (SETQ JA 5)
     (SETQ XI (- (NTH 0 VC) (/ (* YR 1.40888) 2)))
     (SETQ YI (- (NTH 1 VC) (/ YR 2)))
     (SETQ XR (* YR 1.4088))
     (SETQ XR6 (/ XR 6))
     (SETQ YR9 (/ XR6 3))
      (SETQ PT1 (GETPOINT "\nPLEASE DIGIT THE CHAR. TABLE : "))
     (IF (NULL PT1) (SETQ JA 14) (PROGN
   (SETQ IA (FIX (/ (- (NTH 0 PT1) XI) XR6)))
   (SETQ JA (+ (FIX (/ (- (NTH 1 PT1) YI) YR9)) 1));))
   (IF (= JA 1) (SETQ DS (NTH IA
       (LIST "" "" "" ""
      "" "" ))))
   (IF (= JA 2) (SETQ DS (NTH IA
       (LIST "" "" "" ""
      "" "" ))))
   (IF (= JA 3) (SETQ DS (NTH IA
       (LIST "" "" "" ""
      "" "" ))))
   (IF (= JA 4) (SETQ DS (NTH IA
       (LIST "" "" "" ""
      "" "" ))))
   (IF (= JA 5) (SETQ DS (NTH IA
       (LIST "" "" "" ""
      "" "" ))))
   (IF (= JA 6) (SETQ DS (NTH IA
       (LIST "" "" "" ""
      "" "" ))))
   (IF (= JA 7) (SETQ DS (NTH IA
       (LIST "SK100F" "SK100E" "SK100D" "SK100C"
      "SK100B" "SK100A" ))))
   (IF (= JA 8) (SETQ DS (NTH IA
       (LIST "SK75F" "SK75E" "SK75D" "SK75C"
      "SK75B" "SK75A" ))))
   (IF (= JA 9) (SETQ DS (NTH IA
       (LIST "SK50F" "SK50E" "SK50D" "SK50C"
      "SK50B" "SK50A" ))))
     (REDRAW)))
)

chpmould

aicr317

好像只是显示了一张幻灯片，点鼠标没反应嘛

ZZXXQQ

     (COMMAND "VSLIDE" "ZSK")     ;显示ZSK.SLD文件
     (SETQ VC (GETVAR "VIEWCTR")) ;当前图象的中心点
     (SETQ YR (GETVAR "VIEWSIZE")) ;当前图象高度(图形单位)
     (SETQ VX (GETVAR "VSMAX")) ;当前虚屏右上角值(图形单位)
     (SETQ VI (GETVAR "VSMIN")) ;当前虚屏左下角值(图形单位)
     (SETQ JA 5)
     (SETQ XI (- (NTH 0 VC) (/ (* YR 1.40888) 2)));计算当前图象中心点的X分量
     (SETQ YI (- (NTH 1 VC) (/ YR 2)))            ;Y分量
     (SETQ XR (* YR 1.4088))                      ;当前图象宽度
     (SETQ XR6 (/ XR 6))                          ;X分成六份
     (SETQ YR9 (/ XR6 3))                         ;Y分成九份
      (SETQ PT1 (GETPOINT "\nPLEASE DIGIT THE CHAR. TABLE : ")) ;屏幕选点
     (IF (NULL PT1) (SETQ JA 14) (PROGN           ;如果未选点则JA赋值14结束程序
   (SETQ IA (FIX (/ (- (NTH 0 PT1) XI) XR6)))     ;计算列数
   (SETQ JA (+ (FIX (/ (- (NTH 1 PT1) YI) YR9)) 1));计算行数

chpmould

谢谢ZZXXQQ版主详细的注释,

另外请问以下此句中"1.40888"是怎么来的得来的啊

(SETQ XI (- (NTH 0 VC) (/ (* YR 1.40888) 2)));计算当前图象中心点的X分量

chpmould

如果我需要实现附件中文件改如何计算光标所点位置,能否帮助写个简单的程序.

ZZXXQQ

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

chpmould

再次感谢ZZXXQQ版主的帮助,我现理解的差不多了,

我将按你的思路自己做几个练习多熟悉以下了.

zqb05

顶上去