求助为什么这个代码会中断？

小溪向东流 · 发表于 2022-7-26 14:44

代码运行到一半就中断了，有没有高人指点一下

(DEFUN C:TT1 ()
  (vl-load-com)
  (PRINC "\n[背板绘制]-水平选择2点/或垂直选择2点")
  (setq PT1 (GETPOINT "\n点选第一个点"))
  (setq PT2 (GETPOINT PT1 "\n点选第二个点"))
  (setq OSM (GETVAR "osmode"))
  (SETVAR "osmode" 31743)
  (setq PT1_X (NTH 0 PT1))
  (setq PT1_Y (NTH 1 PT1))
  (setq PT2_X (NTH 0 PT2))
  (setq PT2_Y (NTH 1 PT2))
  (if (= (RTOS PT1_Y 2 2) (RTOS PT2_Y 2 2))
(PROGN (setq BBYL_PT1 (POINTMOVE2 PT1 0 10))
   (setq BBYL_PT2 (POINTMOVE2 PT2 0 10))
   (command "line")
   (command BBYL_PT1)
   (command BBYL_PT2)
   (command "")
   (setq EN (ENTLAST))
)
(PROGN (setq BBYL_PT1 (POINTMOVE2 PT1 10 0))
   (setq BBYL_PT2 (POINTMOVE2 PT2 10 0))
   (command "line")
   (command BBYL_PT1)
   (command BBYL_PT2)
   (command "")
   (setq EN (ENTLAST))
)
  )
  (ADDBBHZ_SBJT)
  (SETVAR "osmode" OSM)
)

(DEFUN ADDBBHZ_SBJT ()
  (setq ISLOOP T)
  (setq LEFTDRAWFLAG 1)
  (setq RIGHTDRAWFLAG 1)
  (while (and ISLOOP)
(setq CODE (GRREAD T 8))
(COND ((= (car CODE) 3) (ADDBBHZ_SBJT_DO 0))
   ((= (car CODE) 5) (ADDBBHZ_SBJT_DO 1))
)
  )
)

(DEFUN ADDBBHZ_SBJT_DO (TYPE)
  (COND
((= TYPE 0)
   (command "ERASE")
   (command EN)
   (command "")
   (CREATEBB PT1 PT2 BBLEFTRIGHTFALG)
   (setq ISLOOP nil)
)
((= TYPE 1)
   (if (= (RTOS PT1_Y 2 2) (RTOS PT2_Y 2 2))
   (PROGN (setq SBPOINT (car (cdr CODE)))
      (setq SBPOINT_Y (car (cdr SBPOINT)))
      (setq PT1_Y (car (cdr PT1)))
      (if (< SBPOINT_Y PT1_Y)
(PROGN (setq RIGHTDRAWFLAG 1)
         (if (= LEFTDRAWFLAG 1)
   (PROGN (setq BBLEFTRIGHTFALG 1)
(command "ERASE")
(command EN)
(command "")
(setq BBYL_PT1 (POINTMOVE2 PT1 0 -10))
(setq BBYL_PT2 (POINTMOVE2 PT2 0 -10))
(SETVAR "cecolor" "1")
(command "line")
(command BBYL_PT1)
(command BBYL_PT2)
(command "")
(SETVAR "cecolor" INIT_CECOLOR)
(setq EN (ENTLAST))
(setq LEFTDRAWFLAG 0)
   )
         )
)
      )
      (if (> SBPOINT_Y PT1_Y)
(PROGN (setq LEFTDRAWFLAG 1)
         (if (= RIGHTDRAWFLAG 1)
   (PROGN (setq BBLEFTRIGHTFALG 2)
(command "ERASE")
(command EN)
(command "")
(setq BBYL_PT1 (POINTMOVE2 PT1 0 10))
(setq BBYL_PT2 (POINTMOVE2 PT2 0 10))
(SETVAR "cecolor" "1")
(command "line")
(command BBYL_PT1)
(command BBYL_PT2)
(command "")
(setq EN (ENTLAST))
(SETVAR "cecolor" INIT_CECOLOR)
(setq RIGHTDRAWFLAG 0)
   )
         )
)
      )
   )
   (PROGN (setq SBPOINT (car (cdr CODE)))
      (setq SBPOINT_X (car SBPOINT))
      (setq PT1_X (car PT1))
      (if (< SBPOINT_X PT1_X)
(PROGN (setq RIGHTDRAWFLAG 1)
         (if (= LEFTDRAWFLAG 1)
   (PROGN (setq BBLEFTRIGHTFALG 1)
(command "ERASE")
(command EN)
(command "")
(setq BBYL_PT1 (POINTMOVE2 PT1 -10 0))
(setq BBYL_PT2 (POINTMOVE2 PT2 -10 0))
(SETVAR "cecolor" "1")
(command "line")
(command BBYL_PT1)
(command BBYL_PT2)
(command "")
(SETVAR "cecolor" INIT_CECOLOR)
(setq EN (ENTLAST))
(setq LEFTDRAWFLAG 0)
   )
         )
)
      )
      (if (> SBPOINT_X PT1_X)
(PROGN (setq LEFTDRAWFLAG 1)
         (if (= RIGHTDRAWFLAG 1)
   (PROGN (setq BBLEFTRIGHTFALG 2)
(command "ERASE")
(command EN)
(command "")
(setq BBYL_PT1 (POINTMOVE2 PT1 10 0))
(setq BBYL_PT2 (POINTMOVE2 PT2 10 0))
(SETVAR "cecolor" "1")
(command "line")
(command BBYL_PT1)
(command BBYL_PT2)
(command "")
(SETVAR "cecolor" INIT_CECOLOR)
(setq EN (ENTLAST))
(setq RIGHTDRAWFLAG 0)
   )
         )
)
      )
   )
   )
)
  )
)

(DEFUN CREATEBB (BB_P1 BB_P2 BB_DIRECTION)
  (setq BB_QJ_HD 9)
  (setq BB_QJ_SD 5)
  (setq BB_QJ_SJSD 18)
  (PRINC "两点平行")
  (setq BB_P1_X (NTH 0 BB_P1))
  (setq BB_P1_Y (NTH 1 BB_P1))
  (setq BB_P2_X (NTH 0 BB_P2))
  (setq BB_P2_Y (NTH 1 BB_P2))
  (if (= (RTOS BB_P1_Y 2 2) (RTOS BB_P2_Y 2 2))
(PROGN
   (setq BB_REC_WIDTH (DISTANCE BB_P1 BB_P2))
   (if (< BB_P1_X BB_P2_X)
(PROGN
   (if (= 1 BB_DIRECTION)
      (PROGN (setq BB_REC_P3 (POINTMOVE (POINTMOVE BB_P2 0 BB_QJ_SD)
      1
      (* BB_QJ_SJSD -1)
   )
   )
      )
      (PROGN (setq BB_REC_P3 (POINTMOVE (POINTMOVE BB_P2 0 BB_QJ_SD)
      1
      (+ BB_QJ_SJSD BB_QJ_HD)
   )
   )
      )
   )
)
(PROGN
   (if (= 1 BB_DIRECTION)
      (PROGN (setq BB_REC_P3 (POINTMOVE (POINTMOVE BB_P1 0 BB_QJ_SD)
      1
      (* BB_QJ_SJSD -1)
   )
   )
      )
      (PROGN (setq BB_REC_P3 (POINTMOVE (POINTMOVE BB_P1 0 BB_QJ_SD)
      1
      (+ BB_QJ_SJSD BB_QJ_HD)
   )
   )
      )
   )
)
   )
   (setq
BB_REC_P4 (POINTMOVE BB_REC_P3
      0
      (* -1 (+ (* BB_QJ_SD 2) BB_REC_WIDTH))
   )
   )
   (setq BB_REC_P2 (POINTMOVE BB_REC_P3 1 (* -1 BB_QJ_HD)))
   (setq BB_REC_P1 (POINTMOVE BB_REC_P4 1 (* -1 BB_QJ_HD)))
   (command "pline")
   (command BB_REC_P1)
   (command BB_REC_P2)
   (command BB_REC_P3)
   (command BB_REC_P4)
   (command BB_REC_P1)
   (command "")
   (setq BB_REC_TR_PT2 (POINTMOVE (POINTMOVE BB_REC_P2 0 -1) 1 1))
   (setq BB_REC_TR_PT4 (POINTMOVE (POINTMOVE BB_REC_P4 0 1) 1 -1))
   (command "TRIM")
   (command "")
   (command "F")
   (command BB_REC_TR_PT2)
   (command BB_REC_TR_PT4)
   (command "")
   (command "")
)
(PROGN
   (setq BB_REC_HEIGHT (DISTANCE BB_P1 BB_P2))
   (if (> BB_P1_Y BB_P2_Y)
(PROGN
   (if (= 1 BB_DIRECTION)
      (PROGN (setq BB_REC_P3 (POINTMOVE
      (POINTMOVE BB_P1 0 (* -1 BB_QJ_SJSD))
      1
      BB_QJ_SD
   )
   )
      )
      (PROGN (setq BB_REC_P3
   (POINTMOVE
      (POINTMOVE BB_P1 0 (+ BB_QJ_SJSD BB_QJ_HD))
      1
      BB_QJ_SD
   )
   )
      )
   )
)
(PROGN
   (if (= 1 BB_DIRECTION)
      (PROGN (setq BB_REC_P3 (POINTMOVE
      (POINTMOVE BB_P2 0 (* -1 BB_QJ_SJSD))
      1
      BB_QJ_SD
   )
   )
      )
      (PROGN (setq BB_REC_P3
   (POINTMOVE
      (POINTMOVE BB_P2 0 (+ BB_QJ_SJSD BB_QJ_HD))
      1
      BB_QJ_SD
   )
   )
      )
   )
)
   )
   (setq BB_REC_P4 (POINTMOVE BB_REC_P3 0 (* -1 BB_QJ_HD)))
   (setq
BB_REC_P2 (POINTMOVE BB_REC_P3
      1
      (* -1 (+ (* 2 BB_QJ_SD) BB_REC_HEIGHT))
   )
   )
   (setq
BB_REC_P1 (POINTMOVE BB_REC_P4
      1
      (* -1 (+ (* 2 BB_QJ_SD) BB_REC_HEIGHT))
   )
   )
   (command "pline")
   (command BB_REC_P1)
   (command BB_REC_P2)
   (command BB_REC_P3)
   (command BB_REC_P4)
   (command BB_REC_P1)
   (command "")
   (setq BB_REC_TR_PT2 (POINTMOVE (POINTMOVE BB_REC_P2 0 -1) 1 1))
   (setq BB_REC_TR_PT4 (POINTMOVE (POINTMOVE BB_REC_P4 0 1) 1 -1))
   (command "TRIM")
   (command "")
   (command "F")
   (command BB_REC_TR_PT2)
   (command BB_REC_TR_PT4)
   (command "")
   (command "")
)
  )
)

自贡黄明儒 · 发表于 2022-7-26 14:44

小溪向东流发表于 2022-7-26 18:10
不知道哪里出问题，就是用不了。

不认识英文呀，可以网上翻译。意思是：没有定义pointmove2 pointmove这两个函数。

yshf · 发表于 2022-7-26 14:54

错误: no function definition: POINTMOVE2 POINTMOVE

小溪向东流 · 发表于 2022-7-26 18:10

yshf 发表于 2022-7-26 14:54
错误: no function definition: POINTMOVE2 POINTMOVE

不知道哪里出问题，就是用不了。

小溪向东流 · 发表于 2022-7-27 11:27

自贡黄明儒发表于 2022-7-26 18:29
不认识英文呀，可以网上翻译。意思是：没有定义pointmove2 pointmove这两个函数。

谢谢，已经可以，定义了这两个函数

账号		自动登录	找回密码
密码			注册

[源码] 求助为什么这个代码会中断？

最佳答案

评分