乐筑天下

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

[编程交流] 请翻译

[复制链接]

78

主题

207

帖子

129

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
395
发表于 2022-7-6 12:06:11 | 显示全部楼层 |阅读模式
您好,我正在努力理解这里的一些Lisp程序的东西。如果你愿意的话,请用红色解释一下
 
  1. ;;;;AUTOLISP CODING STARTS HERE
  2. (prompt "\nType WSIPart to run.....")
  3. (defun C:InsP ()
  4. ;;;--- Load the WSI Part DCL file
  5. (setq dcl_id (load_dialog "InsP.dcl"))  [b][color=Red];;;I'm assuming this sets dcl_id to InsP dialog box.[/color][/b]
  6. ;;;---Load the dialog Definition if it is not already loaded
  7.     (if (not (new_dialog "InsP" dcl_id))  [b][color=Red];;; I dont' understand this at all.  [/color][/b]
  8.     (exit )
  9.     );;;close if statment,  i think I get the rest
  10. (start_list "lvl1" 3)
  11. (mapcar 'add_list lvl1)
  12. (end_list)
  13. (action_tile "insert"
  14.    "(done_dialog)"
  15. );;; close action_tile
  16. (start_dialog)
  17. (unload_dialog dcl_id)
  18. (princ)
  19. );;;; close defun
  20. (princ)
  21. ;;;;AUTOLISP CODING ENDS HERE
回复

使用道具 举报

35

主题

2471

帖子

2447

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
174
发表于 2022-7-6 14:01:23 | 显示全部楼层
load_dialog语句加载DCL文件中定义的对话框(在本例中位于AutoCAD的搜索路径中),并返回一个整数,该整数用作稍后在代码中访问这些定义的句柄。
要准备显示对话框,将使用new_dialog语句–通过指定上述保留句柄,将能够指示对话框的“来源”。通过测试该定义的存在性(if),将能够决定是否继续或结束处理(如果不可用)。
可以填充列表或图像后,加载默认数据并定义与互动程序关联的操作。
下面的代码将遇到start_对话框语句,该语句将在屏幕上显示界面。
 
在您的示例中,是关于名为“InsP.DCL”的DCL文件的,该文件存储名为“InsP”的对话框定义。
 
希望这对你有帮助。
 
当做
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-5 10:12 , Processed in 0.351088 second(s), 56 queries .

© 2020-2025 乐筑天下

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