Lisp关键字支持一键快捷

liuyj

能有个dll文件吗？C#不大懂

qqqincccken

真的看不明白不用了谢谢

brainstorm

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. )
    

(defun c:df (/ dis *error*)  (defun *error* (msg)<br />     ;;记得函数出错时取消关键字<br />     (zgx:initget)<br />   )<br />   ;;初始化关键字<br />   (zgx:initget "d" "t")<br />   (initget "Divide Through")<br />   (setq        dis<br />          (getpoint "\n选择点D/退出T): ")<br />   )<br />   ;;测试<br />   (cond<br />     ((= dis "Divide") (princ "\n divide"))<br />     ((= dis "Through") (princ "\n Through"))<br />     ((= (type dis) 'list) (princ "\n Point"))<br />   )<br />   ;;记得结束时取消关键字<br />   (zgx:initget)<br />   (princ)<br /> )<br />

pxt2015

C#新手，下载了楼主的代码，在VS2017，CAD2014下没有通过运行，dll附件也无法加载。