乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 96|回复: 0

[编程交流] getpoint不';t停止

[复制链接]

8

主题

34

帖子

26

银币

初来乍到

Rank: 1

铜币
40
发表于 2022-7-5 20:03:20 | 显示全部楼层 |阅读模式
从一月初开始,我就一直在做一个项目。我移动了“C:defun”以暴露所有子例程。以下是sub的前几行:(如果我违反了任何礼节,请道歉,对于我编程中的所有大写字母,请道歉。我是自学成才,其他任何东西对我来说都很奇怪。)
 
  1. (DEFUN INVSDRAG (QTY / RFPNT PTT PTTN PTS MODS MODSL REMOVED ADDED PICKED RE T1 MODSLP)
  2. (SETQ QTYS QTY)
  3. (WHILE (AND (< PICKED QTY) (> QTY 0))
  4.    (SETQ RFPNT (GETPOINT "\nSpecify Starting Point")
  5.   PTT RFPNT
  6.   );SETQ
  7.    (PRINC "\nDrag Box Around Modules for Inverter")
  8.    (WHILE (AND (= 5 (CAR (SETQ PTTN (GRREAD 1 4 0)))) (< PICKED QTY))
  9.      (SETQ PTTN (CADR PTTN))
  10.      (IF (AND (NOT (EQUAL PTTN RFPNT 0.1)) (NOT (EQUAL PTTN PTT 1.0)))
  11. (PROGN
  12.   (REDRAW)

 
调用来自对话框按钮,该按钮的字符串编码为“(INVSDRAG 66)”。它正确地跳转到此子节点,变量数量正确地设置为整数66,在这种情况下,或任何编码到按钮的值。
 
我知道子程序正在工作,因为我可以(在命令行)键入(INVSDRAG 66),它可以工作。实际上是对同一函数的相同调用。但是,当我使用vlisp ide单步执行程序时,我可以看到以下情况。它跳过(getpoint),就像它不在那里一样。字面上“指定起点”这句话甚至没有打印到命令行。变量RFPNT为零。“逆变器模块周围的拖动框”的原理语句打印到命令行。
 
有什么明显的东西我遗漏了吗?当从命令行调用但在程序中间崩溃时,它如何工作?我会发布你想要的尽可能多的程序。上个月我打印了37页,那是一个月前的事了。太长了,无法发布整个内容。说到上个月,我有一句话不管用。我跳过了它,因为没有它我还有很多事情要做。大约一周后,我注意到它在工作。我没有改变任何事情。“随机行为”的适当系统变量是什么?
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-12 00:42 , Processed in 0.450348 second(s), 56 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表