[分享]：LSP开发时常用的函数(新手请进)

yjtdkj

2. 
   
3.   [FONT=courier new]
   
4. ;| (pset sym do str) = 有默认输入值的通用变量设置函数
   
5. 参数: sym = 要设置的变量.
   
6.        do = 取得变量值的方法(函数,为get* 系列).
   
7.        str = 提示.(程序会自动填入默认值)'
   
8. 说明: 支持回车默认值.
   
9. 实例: (setq a 3.4 b '(1.0 1.2 0.0))
   
10.       (pset 'a getdist "\n新值:")
    
11.       (pset 'b getpoint "\n新坐标:")
    
12. |;
    
13. (defun pset (sym do str / @@@)
    
14.   (princ (strcat str "<"))
    
15.   (princ (eval sym))
    
16.   (setq @@@ (eval (do ">:")))
    
17.   (if (or (not @@@) (equal @@@ ""))
    
18.     (eval sym)
    
19.     (set sym @@@)
    
20.   )
    
21. )
    
22.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;| (pset sym do str) = 有默认输入值的通用变量设置函数 <br /> 参数: sym = 要设置的变量. <br />        do = 取得变量值的方法(函数,为get* 系列). <br />        str = 提示.(程序会自动填入默认值)' <br /> 说明: 支持回车默认值. <br /> 实例: (setq a 3.4 b '(1.0 1.2 0.0)) <br />       (pset 'a getdist "\n新值:") <br />       (pset 'b getpoint "\n新坐标:") <br /> |;<br /> (defun pset (sym do str / @@@)<br />   (princ (strcat str "<"))<br />   (princ (eval sym))<br />   (setq @@@ (eval (do ">:")))<br />   (if (or (not @@@) (equal @@@ ""))<br />     (eval sym)<br />     (set sym @@@)<br />   )<br /> )<br />   [/FONT]<br />

小弟手头紧，如果好用就支持一下吧

yjtdkj

再来一个

2. 
   
3.   [FONT=courier new]
   
4. (defun c:test (/ myerror)
   
5. ;;以下是定义出错函数
   
6. (defun myerror (msg)
   
7. (if (= msg "函数被取消")
   
8. (princ "\n老大!!干嘛取消呀!")
   
9. )
   
10. (setvar "osmode" oldos);恢复捕捉
    
11. (setq *error* olderr) ;恢复原来的出错函数
    
12. (princ)
    
13. )
    
14. ;;以下是主程序部分
    
15. (setq olderr *error* ;保存旧的
    
16. *error* myerror ;设置新的
    
17. )
    
18. (setq oldos (getvar "osmode"));保存程序开始前的态
    
19. (setvar "OSMODE" 32)
    
20. ;;其他代码，也就是你的程序就写在这里
    
21. (repeat 10
    
22. (command "circle" "2p" pause pause)
    
23. )
    
24. ;;结束部分
    
25. (setq *error* olderr);正常结束程序时恢复默认
    
26. (setvar "osmode" oldos)
    
27. (princ)
    
28. )
    
29. 
    
30. 
    
31.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:test (/ myerror)<br /> ;;以下是定义出错函数<br /> (defun myerror (msg)<br /> (if (= msg "函数被取消")<br /> (princ "\n老大!!干嘛取消呀!")<br /> )<br /> (setvar "osmode" oldos);恢复捕捉<br /> (setq *error* olderr) ;恢复原来的出错函数<br /> (princ)<br /> )<br /> ;;以下是主程序部分<br /> (setq olderr *error* ;保存旧的<br /> *error* myerror ;设置新的<br /> )<br /> (setq oldos (getvar "osmode"));保存程序开始前的态<br /> (setvar "OSMODE" 32)<br /> ;;其他代码，也就是你的程序就写在这里<br /> (repeat 10<br /> (command "circle" "2p" pause pause)<br /> )<br /> ;;结束部分<br /> (setq *error* olderr);正常结束程序时恢复默认<br /> (setvar "osmode" oldos)<br /> (princ) <br /> ) <br /> <br /> <br />   [/FONT]<br />

yjtdkj

继续：

2. 
   
3.   [FONT=courier new]
   
4. ;;;以下代码可以让你使用完LSP程序后，UNDO一次就可以返回到使用LSP程序前的界面
   
5. (command "_.undo" "_Group");设置一个撤消的开始标记
   
6. (command..........);你自已设计的COMMAND函数
   
7. (command "_.undo" "_end");设置一个撤消的结束标记
   
8.   [/FONT]
   

<br />   [FONT=courier new]<br /> ;;;以下代码可以让你使用完LSP程序后，UNDO一次就可以返回到使用LSP程序前的界面<br /> (command "_.undo" "_Group");设置一个撤消的开始标记<br /> (command..........);你自已设计的COMMAND函数<br /> (command "_.undo" "_end");设置一个撤消的结束标记<br />   [/FONT]<br />

aeo

最初由 yjtdkj 发布
[B][CODE]
  
;| (pset sym do str) = 有默认输入值的通用变量设置函数
参数: sym = 要设置的变量.
       do = 取得变量值的方法(函数,为get* 系列).
       str = 提示.(程序会自动填入默?.. [/B]

有点意思:)


那我要
(setq a(getpoint b "\n新坐标:") ) 就不行了
写的应该再通用一点: apply ?

yjtdkj

其实已经很通用了，只要先设置好变量的默认值，再使用函数就行了

shisj

虽然没有下载，支持一下

狂刀

“那我要(setq a(getpoint b "\n新坐标:") ) 就不行了”
不是很明白这句话的意思