[求助]：兼职lsp程序修改，有报酬

秦林

我这现有用于模具设计的lisp程序，因为那些程序是在R14版时写的，功能仍维持一样，谁只要令其可以在AutoCAD2006版里可以运行即可？换句话说，就是将R14版中无法用于2006版的语法更新，令其可以正常运作即可。这个升级的工作我可以付费,所以请先算出有多少个要改，并报价给我，欲报从速，给个E_mail

xyp1964

先出个价！呵呵……
可惜不会2006！

Dallas_whu

先在网上发一下吧，让大伙都看看。群策群力，运用集体的智慧应该没问题！
达到你的要求后给xdcad.net捐点款，以利于网站的维护和开发，我们也应该感谢晓东给我们提供这么好的一个交流与学习的平台！
各位大侠同意的请顶一下吧！

david96007

最初由 Dallas_whu 发布
[B]先在网上发一下吧，让大伙都看看。群策群力，运用集体的智慧应该没问题！
达到你的要求后给xdcad.net捐点款，以利于网站的维护和开发，我们也应该感谢晓东给我们提供这么好的一个交流与学习的平台！
各位大侠同意?.. [/B]

最好的解决办法，斑竹的爱心币加少了！

秦林

最初由 Dallas_whu 发布
[B]先在网上发一下吧，让大伙都看看。群策群力，运用集体的智慧应该没问题！
达到你的要求后给xdcad.net捐点款，以利于网站的维护和开发，我们也应该感谢晓东给我们提供这么好的一个交流与学习的平台！
各位大侠同意?.. [/B]

  这个主意不错，我怎么没想到, 群策群力，不过觉得速度太慢,先发一个试试。一个字：我笨.

2. 
   
3.   [FONT=courier new]
   
4. (defun c:chst (/ a ts n index b1 b c d b2)
   
5.        (setq a (ssget))
   
6.        (setq ts (getvar "textstyle"))
   
7.        (setq n (sslength a))
   
8.        (setq index 0)
   
9.        (~f)
   
10.        (repeat n
    
11.           (setq b1 (entget (ssname a index)))
    
12.           (setq index (1+ index))
    
13.           (setq b (assoc 0 b1))
    
14.           (if (= "TEXT" (cdr b))
    
15.               (progn
    
16.                 (~f)
    
17.                 (setq c (assoc 7 b1))
    
18.                 (setq d (cons (car c) ts))
    
19.                 (setq b2 (subst d c b1))
    
20.                 (entmod b2)
    
21.               )
    
22.           )
    
23.        )
    
24.      (~n)
    
25. )
    
26. -------------------------------------------------------------------------------
    
27. (DEFUN ~n ()
    
28.         (SETVAR "CMDECHO" 1)
    
29.         (SETVAR "BLIPMODE" 1)
    
30.         (SETVAR "HIGHLIGHT" 1)
    
31.         (SETVAR "EXPERT" 0)
    
32. )
    
33. 
    
34. (DEFUN ~f ()
    
35.         (SETVAR "CMDECHO" 0)
    
36.         (SETVAR "BLIPMODE" 0)
    
37.         (SETVAR "HIGHLIGHT" 0)
    
38.         (SETVAR "EXPERT" 1)
    
39. 
    
40. 
    
41.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:chst (/ a ts n index b1 b c d b2)<br />        (setq a (ssget))<br />        (setq ts (getvar "textstyle"))<br />        (setq n (sslength a))<br />        (setq index 0)<br />        (~f)<br />        (repeat n<br />           (setq b1 (entget (ssname a index)))<br />           (setq index (1+ index))<br />           (setq b (assoc 0 b1))<br />           (if (= "TEXT" (cdr b))<br />               (progn<br />                 (~f)<br />                 (setq c (assoc 7 b1))<br />                 (setq d (cons (car c) ts))<br />                 (setq b2 (subst d c b1))<br />                 (entmod b2)<br />               )<br />           )<br />        )<br />      (~n)<br /> )<br /> -------------------------------------------------------------------------------<br /> (DEFUN ~n ()<br />         (SETVAR "CMDECHO" 1)<br />         (SETVAR "BLIPMODE" 1)<br />         (SETVAR "HIGHLIGHT" 1)<br />         (SETVAR "EXPERT" 0)<br /> )<br /> <br /> (DEFUN ~f ()<br />         (SETVAR "CMDECHO" 0)<br />         (SETVAR "BLIPMODE" 0)<br />         (SETVAR "HIGHLIGHT" 0)<br />         (SETVAR "EXPERT" 1)<br /> <br /> <br />   [/FONT]<br />

Dallas_whu

你的目的是这样吗？
[PHP]
(defun c:chst (/ a ts n index b1 b c d b2)
  (setq a (ssget '((0 . "TEXT"))))
  (setq ts (getvar "textstyle"))
  (setq n (sslength a))
  (setq index 0)
  (startvar)
  (repeat n
    (setq b1 (entget (ssname a index)))
    (setq index (1+ index))
    (setq b (assoc 0 b1))

    (setq c (assoc 7 b1))
    (setq d (cons (car c) ts))
    (setq b2 (subst d c b1))
    (entmod b2)
  )
  (endvar)
  (princ)
)
;;------------------------------------------------------------------------------
(DEFUN endvar ()
  (SETVAR "CMDECHO" 1)
  (SETVAR "BLIPMODE" 1)
  (SETVAR "HIGHLIGHT" 1)
  (SETVAR "EXPERT" 0)
)

(DEFUN startvar        ()
  (SETVAR "CMDECHO" 0)
  (SETVAR "BLIPMODE" 0)
  (SETVAR "HIGHLIGHT" 0)
  (SETVAR "EXPERT" 1)
)
[/PHP]

david96007

以前安装了2006，一直没用！
前天系统让我搞崩溃了，重新安装后，没再安装2006，只装了14和2004！
在2004下面试了一下上面的 代码，没什么错误啊！

2. 
   
3. 
   
4.   
   
5. (defun c:chst (/ a ts n index b1 b c d b2)
   
6.        (setq a (ssget))
   
7.        (setq ts (getvar "textstyle"))
   
8.        (setq n (sslength a))
   
9.        (setq index 0)
   
10.        (~f)
    
11.        (repeat n
    
12.           (setq b1 (entget (ssname a index)))
    
13.           (setq index (1+ index))
    
14.           (setq b (assoc 0 b1))
    
15.           (if (= "TEXT" (cdr b))
    
16.               (progn
    
17.                 (~f)
    
18.                 (setq c (assoc 7 b1))
    
19.                 (setq d (cons (car c) ts))
    
20.                 (setq b2 (subst d c b1))
    
21.                 (entmod b2)
    
22.               )
    
23.           )
    
24.        )
    
25.      (~n)
    
26. )
    
27. ;;;-------------------------------------------------------------------------------
    
28. (DEFUN ~n ()
    
29.         (SETVAR "CMDECHO" 1)
    
30.         (SETVAR "BLIPMODE" 1)
    
31.         (SETVAR "HIGHLIGHT" 1)
    
32.         (SETVAR "EXPERT" 0)
    
33. )
    
34. 
    
35. (DEFUN ~f ()
    
36.         (SETVAR "CMDECHO" 0)
    
37.         (SETVAR "BLIPMODE" 0)
    
38.         (SETVAR "HIGHLIGHT" 0)
    
39.         (SETVAR "EXPERT" 1)
    
40. )
    

<br /> <br />   <br /> (defun c:chst (/ a ts n index b1 b c d b2)<br />        (setq a (ssget))<br />        (setq ts (getvar "textstyle"))<br />        (setq n (sslength a))<br />        (setq index 0)<br />        (~f)<br />        (repeat n<br />           (setq b1 (entget (ssname a index)))<br />           (setq index (1+ index))<br />           (setq b (assoc 0 b1))<br />           (if (= "TEXT" (cdr b))<br />               (progn<br />                 (~f)<br />                 (setq c (assoc 7 b1))<br />                 (setq d (cons (car c) ts))<br />                 (setq b2 (subst d c b1))<br />                 (entmod b2)<br />               )<br />           )<br />        )<br />      (~n)<br /> )<br /> ;;;-------------------------------------------------------------------------------<br /> (DEFUN ~n ()<br />         (SETVAR "CMDECHO" 1)<br />         (SETVAR "BLIPMODE" 1)<br />         (SETVAR "HIGHLIGHT" 1)<br />         (SETVAR "EXPERT" 0)<br /> )<br /> <br /> (DEFUN ~f ()<br />         (SETVAR "CMDECHO" 0)<br />         (SETVAR "BLIPMODE" 0)<br />         (SETVAR "HIGHLIGHT" 0)<br />         (SETVAR "EXPERT" 1)<br /> )<br />

注意你自己的代码，要把横线注释掉，最后还缺有括号（不会是因为这问题吧！）！

xyp1964

功能：改换字型

2. [FONT=courier new](load "xyp_lib.vlx")
   
3. ;;;当期版本：20051124版
   
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. (defun c:chst ()
    
17.   (cmdla0)
    
18.   (setq        ss (ssget '((0 . "*TEXT")))
    
19.         tx (getvar "textstyle")
    
20.         i  -1
    
21.   )
    
22.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
23.     (sub_upd s1 7 tx)
    
24.   )
    
25.   (cmdla1)
    
26. )[/FONT]

[FONT=courier new](load "xyp_lib.vlx")<br /> ;;;当期版本：20051124版<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 /> (defun c:chst ()<br />   (cmdla0)<br />   (setq        ss (ssget '((0 . "*TEXT")))<br />         tx (getvar "textstyle")<br />         i  -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (sub_upd s1 7 tx)<br />   )<br />   (cmdla1)<br /> )[/FONT]

Dallas_whu

这样的更新速度难道还不满意？
xyp的程序够简洁，只是希望您能把你的通用函数的源码全部公布，也好让我们这些菜鸟能学习学习啊.....，要求是不是太过分了，呵呵！

秦林

斑竹必定是斑竹，水平不错呀。其实我也是初学VBA编程，对LSP一窍不通，夸下海口,有人找我帮忙，我也想趁机和大家一起学习学习,等我搞到密码，再和大家分享,不过大家要鼎力相助，要真有酬金，全捐xdcad.net，我也在xdcad.net得益不少，也希望xdcad.net越办越好，大家共同努力吧！

ysx810210

最初由 Dallas_whu 发布
[B]这样的更新速度难道还不满意？
xyp的程序够简洁，只是希望您能把你的通用函数的源码全部公布，也好让我们这些菜鸟能学习学习啊.....，要求是不是太过分了，呵呵！ [/B]

xyp1964斑竹已经公布通用函数的源码了，只是他没有告诉你怎么获得而已，方法问题，哈哈......我已经...............

xyp1964

最初由 ysx810210 发布
[B][QUOTE]最初由 Dallas_whu 发布
[B]这样的更新速度难道还不满意？
xyp的程序够简洁，只是希望您能把你的通用函数的源码全部公布，也好让我们这些菜鸟能学习学习啊.....，要求是不是太过分了，呵呵！ [/B][/... [/B]

对你不错吧！呵呵……

文本匹配（七功能组合）

2. [FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20051126
   
3. ;|加载通用函数(可在签名栏直接下载)
   
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
5. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
6. ★1·在acad.lsp中增加(load"xyp_lib")
   
7. ■2·在每个程序内增加(load"xyp_lib")
   
8. ■3·在command下，输入(load"xyp_lib")
   
9. ■4·在菜单.mnl中增加(load"xyp_lib")
   
10. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
    
11. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
12. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
13. |;
    
14. 
    
15. ;;;文本匹配
    
16. ;;;只针对TEXT类实体
    
17. (defun c:wbpp ()
    
18.   (CMDLA0)
    
19.   (setq        tx
    
20.          (UKWORD
    
21.            7
    
22.            "1 2 3 4 5 6 7"
    
23.            "\n匹配选项 : 1-字符/2-字型/3-字高/4-字宽/5-旋转角/6-倾斜角/7-图层"
    
24.            tx
    
25.          )
    
26.   )
    
27.   (cond        ((= tx "1") (TEXT-PP 1))
    
28.         ((= tx "2") (TEXT-PP 7))
    
29.         ((= tx "3") (TEXT-PP 40))
    
30.         ((= tx "4") (TEXT-PP 41))
    
31.         ((= tx "5") (TEXT-PP 50))
    
32.         ((= tx "6") (TEXT-PP 51))
    
33.         ((= tx "7") (TEXT-PP 8))
    
34.   )
    
35.   (CMDLA1)
    
36. )
    
37. (defun TEXT-PP (mode / ent new i ss s1)
    
38.   (princ "\n选择样板文本 : ")
    
39.   (setq        ent (USEL1 0 "TEXT" "TEXT文本")
    
40.         new (cdr (assoc mode (entget (car ent))))
    
41.         i   -1
    
42.   )
    
43.   (princ "\n选择要匹配的文本 : ")
    
44.   (setq SS (ssget '((0 . "TEXT"))))
    
45.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
46.     (sub_upd s1 mode new)
    
47.   )
    
48. )[/FONT]

[FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20051126<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 /> ;;;只针对TEXT类实体<br /> (defun c:wbpp ()<br />   (CMDLA0)<br />   (setq        tx<br />          (UKWORD<br />            7<br />            "1 2 3 4 5 6 7"<br />            "\n匹配选项 : 1-字符/2-字型/3-字高/4-字宽/5-旋转角/6-倾斜角/7-图层"<br />            tx<br />          )<br />   )<br />   (cond        ((= tx "1") (TEXT-PP 1))<br />         ((= tx "2") (TEXT-PP 7))<br />         ((= tx "3") (TEXT-PP 40))<br />         ((= tx "4") (TEXT-PP 41))<br />         ((= tx "5") (TEXT-PP 50))<br />         ((= tx "6") (TEXT-PP 51))<br />         ((= tx "7") (TEXT-PP 8))<br />   )<br />   (CMDLA1)<br /> )<br /> (defun TEXT-PP (mode / ent new i ss s1)<br />   (princ "\n选择样板文本 : ")<br />   (setq        ent (USEL1 0 "TEXT" "TEXT文本")<br />         new (cdr (assoc mode (entget (car ent))))<br />         i   -1<br />   )<br />   (princ "\n选择要匹配的文本 : ")<br />   (setq SS (ssget '((0 . "TEXT"))))<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (sub_upd s1 mode new)<br />   )<br /> )[/FONT]

ysx810210

嗯...嗯...(捂着嘴笑不停)
要是斑竹能再上传一套完整的Vlisp函数中文帮助文件电子版，那就再好不过了，好需要vla函数的中文帮助啊!!!
看来我真的有点贪心了

xyp1964

最初由 ysx810210 发布
[B]嗯...嗯...(捂着嘴笑不停)
要是斑竹能再上传一套完整的Vlisp函数中文帮助文件电子版，那就再好不过了，好需要vla函数的中文帮助啊!!!
看来我真的有点贪心了 [/B]

试试
命令: gift

ysx810210

最初由 xyp1964 发布
附件加密后就更不明白了！呵呵……

★告知一个秘密★
加载xyp_lib.vlx
运行命令：gift
猜对密码（5位英文字母）就可以显示u系列自定义函数！
运行命令：xyp1964
猜对密码就可以显示xyp_lib的全部自定义函数！


当真的明白时，已经走了很远了

命令: gift 和完整的Vlisp函数中文帮助文件电子版也能搞上关系？不会吧？

偶都不知在哪儿说过这些了！呵呵……by xyp1964[/COLOR]