设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 231|回复: 4

[每日一码] Lisp关键字支持一键快捷

[复制链接]

已领礼包: 57个

财富等级: 招财进宝

发表于 2021-10-19 13:37:38 | 显示全部楼层 |阅读模式
购买主题 已有 8 人购买  本主题需向作者支付 5 D豆 才能浏览
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 8584个

财富等级: 富甲天下

发表于 2021-10-19 15:18:04 | 显示全部楼层
能有个dll文件吗?C#不大懂
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 6383个

财富等级: 富甲天下

发表于 2021-10-19 21:04:59 | 显示全部楼层
真的看不明白不用了谢谢
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 57个

财富等级: 招财进宝

 楼主| 发表于 2021-10-19 22:13:57 | 显示全部楼层
本帖最后由 brainstorm 于 2021-10-19 22:22 编辑

  1. (defun c:df (/ dis *error*)  (defun *error* (msg)
  2.     ;;记得函数出错时取消关键字
  3.     (zgx:initget)
  4.   )
  5.   ;;初始化关键字
  6.   (zgx:initget "d" "t")
  7.   (initget "Divide Through")
  8.   (setq        dis
  9.          (getpoint "\n选择点D/退出T): ")
  10.   )
  11.   ;;测试
  12.   (cond
  13.     ((= dis "Divide") (princ "\n divide"))
  14.     ((= dis "Through") (princ "\n Through"))
  15.     ((= (type dis) 'list) (princ "\n Point"))
  16.   )
  17.   ;;记得结束时取消关键字
  18.   (zgx:initget)
  19.   (princ)
  20. )



initget.rar

19.67 KB, 下载次数: 8, 下载积分: D豆 -1 , 活跃度 1

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 45个

财富等级: 招财进宝

发表于 7 天前 | 显示全部楼层
C#新手,下载了楼主的代码,在VS2017,CAD2014下没有通过运行,dll附件也无法加载。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

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

本版积分规则

QQ|申请友链|小黑屋|手机版|Archiver|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )  

GMT+8, 2022-8-18 16:33 , Processed in 0.187112 second(s), 28 queries , Gzip On, WinCache On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表