[编程申请]：有没有运行后自动在当前图纸加版权标记的Lisp

各位辛苦

有没有运行后自动在当前图纸加版权标记的Lisp。要求加载后在图纸的4角自动加入公司名称。公司名称可以自定义在Lisp中。可通过更改lisp更改。谢谢。

xyp1964

2. [FONT=courier new]
   
3. (load "xyp_lib")
   
4. ;|加载通用函数(可在签名栏直接下载)
   
5. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
6. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
7. ★1·在acad.lsp中增加(load"xyp_lib")
   
8. ■2·在每个程序内增加(load"xyp_lib")
   
9. ■3·在command下，输入(load"xyp_lib")
   
10. ■4·在菜单.mnl中增加(load"xyp_lib")
    
11. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
    
12. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
13. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
14. |;
    
15. 
    
16. ;;;图形四角加版权标记
    
17. (defun c:test ()
    
18.   (CMDLA0)
    
19.   (command "select" "all" "")
    
20.   (setq        ss  (ssget "p")
    
21.         ptd (xyp-get-SsMinMaxPoint ss 1)
    
22.         ptu (xyp-get-SsMinMaxPoint ss 0)
    
23.         pt1 (list (car ptd) (cadr ptu))
    
24.         pt2 (list (car ptu) (cadr ptd))
    
25.         tx  "版权所有：各位辛苦公司!"
    
26.   )
    
27.   (jzhz)
    
28.   (mkla "defpoints" 8)
    
29.   (setvar "osmode" 0)
    
30.   (if (null sc)
    
31.     (setbl)
    
32.   )
    
33.   (command "text" "j" "BL" ptd (* sc 300) "0" tx)
    
34.   (command "text" "j" "BR" pt2 (* sc 300) "0" tx)
    
35.   (command "text" "j" "TR" ptu (* sc 300) "0" tx)
    
36.   (command "text" "j" "TL" pt1 (* sc 300) "0" tx)
    
37.   (CMDLA1)
    
38. )
    
39. [/FONT]

[FONT=courier new]<br /> (load "xyp_lib")<br /> ;|加载通用函数(可在签名栏直接下载)<br /> 如果已经下载xyp_lib并放到搜索路径下可以不再下载!<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib")<br /> ■2·在每个程序内增加(load"xyp_lib")<br /> ■3·在command下，输入(load"xyp_lib")<br /> ■4·在菜单.mnl中增加(load"xyp_lib")<br /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> |;<br /> <br /> ;;;图形四角加版权标记<br /> (defun c:test ()<br />   (CMDLA0)<br />   (command "select" "all" "")<br />   (setq        ss  (ssget "p")<br />         ptd (xyp-get-SsMinMaxPoint ss 1)<br />         ptu (xyp-get-SsMinMaxPoint ss 0)<br />         pt1 (list (car ptd) (cadr ptu))<br />         pt2 (list (car ptu) (cadr ptd))<br />         tx  "版权所有：各位辛苦公司!"<br />   )<br />   (jzhz)<br />   (mkla "defpoints" 8)<br />   (setvar "osmode" 0)<br />   (if (null sc)<br />     (setbl)<br />   )<br />   (command "text" "j" "BL" ptd (* sc 300) "0" tx)<br />   (command "text" "j" "BR" pt2 (* sc 300) "0" tx)<br />   (command "text" "j" "TR" ptu (* sc 300) "0" tx)<br />   (command "text" "j" "TL" pt1 (* sc 300) "0" tx)<br />   (CMDLA1)<br /> )<br /> [/FONT]

各位辛苦

多谢斑竹！加载了一下 发现不能运行啊。

xyp1964

最初由 各位辛苦 发布
[B]多谢斑竹！加载了一下 发现不能运行啊。 [/B]

先下载和加载通用程序！

各位辛苦

为什么不能做一个独立的lsp呢？我只需要这一个功能就够了啊。

xyp1964

最初由 各位辛苦 发布
[B]为什么不能做一个独立的lsp呢？我只需要这一个功能就够了啊。 [/B]

这样便于你修改。

2. [FONT=courier new]
   
3. ;;;图形四角加版权标记
   
4. (defun c:bqbj ()
   
5.   (CMDLA0)
   
6.   (command "select" "all" "")
   
7.   (if (null tx)
   
8.     (setq tx "版权所有：各位辛苦公司!")
   
9.   )
   
10.   (setq        ss  (ssget "p")
    
11.         ptd (xyp-get-SsMinMaxPoint ss 1)
    
12.         ptu (xyp-get-SsMinMaxPoint ss 0)
    
13.         pt1 (list (car ptd) (cadr ptu))
    
14.         pt2 (list (car ptu) (cadr ptd))
    
15.         TX  (USTR 1 "\n版权内容" TX NIL)
    
16.   )
    
17.   (jzhz)
    
18.   (mkla "defpoints" 8)
    
19.   (setvar "osmode" 0)
    
20.   (if (null sc)
    
21.     (setbl)
    
22.   )
    
23.   (command "text" "j" "BL" ptd (* sc 300) "0" tx)
    
24.   (command "text" "j" "BR" pt2 (* sc 300) "0" tx)
    
25.   (command "text" "j" "TR" ptu (* sc 300) "0" tx)
    
26.   (command "text" "j" "TL" pt1 (* sc 300) "0" tx)
    
27.   (CMDLA1)
    
28. )
    
29. (pxyp "bqbj  (版权标记)")[/FONT]

[FONT=courier new]<br /> ;;;图形四角加版权标记<br /> (defun c:bqbj ()<br />   (CMDLA0)<br />   (command "select" "all" "")<br />   (if (null tx)<br />     (setq tx "版权所有：各位辛苦公司!")<br />   )<br />   (setq        ss  (ssget "p")<br />         ptd (xyp-get-SsMinMaxPoint ss 1)<br />         ptu (xyp-get-SsMinMaxPoint ss 0)<br />         pt1 (list (car ptd) (cadr ptu))<br />         pt2 (list (car ptu) (cadr ptd))<br />         TX  (USTR 1 "\n版权内容" TX NIL)<br />   )<br />   (jzhz)<br />   (mkla "defpoints" 8)<br />   (setvar "osmode" 0)<br />   (if (null sc)<br />     (setbl)<br />   )<br />   (command "text" "j" "BL" ptd (* sc 300) "0" tx)<br />   (command "text" "j" "BR" pt2 (* sc 300) "0" tx)<br />   (command "text" "j" "TR" ptu (* sc 300) "0" tx)<br />   (command "text" "j" "TL" pt1 (* sc 300) "0" tx)<br />   (CMDLA1)<br /> )<br /> (pxyp "bqbj  (版权标记)")[/FONT]

独立的编译版：

各位辛苦

谢谢您了。看来使我表达不清给您添麻烦了。

斗胆问您如果不用调用您的函数就不能实现嘛？

我的设想是一个独立的可以自己自定义修改版权标记的Lsp源文件，[B]不用加载和借助任何第3方函数[/B] 。通过加载到CAD的启动组后就能自动将版权标记加到当前图纸上。不用任何人工干预。如果这样版权标记文字定位成问题。那么添加到左下角或者随便哪里都行。看到您的版权意识很高我觉得这些要求不易实现了。