[分享]：【实用程序汇总】test000系列！

xyp1964

2. [FONT=courier new];; 轴网美化
   
3. (defun c:test792 ()
   
4.   (CMDLA0)
   
5.   (setq        ss (ssget '((0 . "LINE,*POLYLINE,ARC")))
   
6.         i  -1
   
7.   )
   
8.   (while (setq s1 (ssname ss (setq i (1+ i))))
   
9.     (xyp-lengthen s1 100)
   
10.   )
    
11.   (CMDLA1)
    
12. )[/FONT]

[FONT=courier new];; 轴网美化<br /> (defun c:test792 ()<br />   (CMDLA0)<br />   (setq        ss (ssget '((0 . "LINE,*POLYLINE,ARC")))<br />         i  -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (xyp-lengthen s1 100)<br />   )<br />   (CMDLA1)<br /> )[/FONT]

xyp1964

2. [FONT=courier new](defun c:test790 ()
   
3.   (CMDLA0)
   
4.   (defun aaa ()
   
5.     (xyp-Dcl-Gettile '("li"))
   
6.     (xyp-show-sld "i1" "")
   
7.     (xyp-VectorImage "i1" (nth (atoi li) ptns) 2 2)
   
8.   )
   
9.   (xyp-initSet '(li) '("0"))
   
10.   (setq        ptns (xyp-Cartoons)
    
11.         lst  ;|'("1"    "2"    "3"    "4"           "5"          "6"         "7"        "8"    "9"    "10"   "11"   "12"   "13"          "14"         "15"
    
12.                "16"   "17"   "18"   "19"   "20"          "21"         "22"        "23"   "24"   "25"   "26"   "27"   "28"          "29"         "30"
    
13.               )|;
    
14.         '("1-Angry" "2-Bored" "3-Cautious" "4-Confident" "5-anxious" "6-ashamed" "7-confused" "8-depressed"
    
15.           "9-disgusted" "10-ecstatic" "11-embarrassed" "12-enraged" "13-exhausted" "14-frightened" "15-frustrated" "16-guilty"
    
16.           "17-happy" "18-hopeful" "19-hysterical" "20-jealous" "21-lonely" "22-lovestruck" "23-mischievous" "24-overwhelmed"
    
17.           "25-sad" "26-shocked" "27-shy" "28-smug" "29-surprised" "30-suspicious")
    
18.         Ilst '(("i1" nil "image" "-15" "11" "" "(XYP-ABOUTME)")
    
19.                ("li" "表情" "list" "lst" "10" "8" "(aaa)")
    
20.                (nil nil "user" "(aaa)")
    
21.               )
    
22.   )
    
23.   (if (= (xyp-Dcl-Init Ilst "【卡通IMG】" t) 1)
    
24.     (princ)
    
25.   )
    
26.   (CMDLA1)
    
27. )[/FONT]

[FONT=courier new](defun c:test790 ()<br />   (CMDLA0)<br />   (defun aaa ()<br />     (xyp-Dcl-Gettile '("li"))<br />     (xyp-show-sld "i1" "")<br />     (xyp-VectorImage "i1" (nth (atoi li) ptns) 2 2)<br />   )<br />   (xyp-initSet '(li) '("0"))<br />   (setq        ptns (xyp-Cartoons)<br />         lst  ;|'("1"    "2"    "3"    "4"           "5"          "6"         "7"        "8"    "9"    "10"   "11"   "12"   "13"          "14"         "15"<br />                "16"   "17"   "18"   "19"   "20"          "21"         "22"        "23"   "24"   "25"   "26"   "27"   "28"          "29"         "30"<br />               )|;<br />         '("1-Angry" "2-Bored" "3-Cautious" "4-Confident" "5-anxious" "6-ashamed" "7-confused" "8-depressed"<br />           "9-disgusted" "10-ecstatic" "11-embarrassed" "12-enraged" "13-exhausted" "14-frightened" "15-frustrated" "16-guilty"<br />           "17-happy" "18-hopeful" "19-hysterical" "20-jealous" "21-lonely" "22-lovestruck" "23-mischievous" "24-overwhelmed"<br />           "25-sad" "26-shocked" "27-shy" "28-smug" "29-surprised" "30-suspicious")<br />         Ilst '(("i1" nil "image" "-15" "11" "" "(XYP-ABOUTME)")<br />                ("li" "表情" "list" "lst" "10" "8" "(aaa)")<br />                (nil nil "user" "(aaa)")<br />               )<br />   )<br />   (if (= (xyp-Dcl-Init Ilst "【卡通IMG】" t) 1)<br />     (princ)<br />   )<br />   (CMDLA1)<br /> )[/FONT]

xyp1964

[php];;; 改变填充图案的基点
(defun c:test785 ()
  (CMDLA0)
  (while (and (setq s1 (car (entsel "\n选择<退出>: ")))
              (setq pt (getpoint "\n基点<退出>: "))
         )
    (setq sna (xyp-get-dxf 2 s1)                  ;名称
          sca (xyp-get-dxf 41 s1)                  ;比例
          rad (xyp-get-dxf 52 s1)                  ;角度
          la  (xyp-get-dxf 8 s1)
    )
    (xyp-get-HatchBoundary s1 0)
    (setq s0 (entlast))
    (command "ucs" "n" pt)
    (command "hatch" sna sca (xyp-rad2ang rad) s0 "")
    (command "erase" s0 s1 "")
    (command "ucs" "")
    (xyp-SubUpd (entlast) 8 la)
  )
  (CMDLA1)
)[/php]

lcl310

这里太好了

T_T

好想下载。不知2009加载会不会有问题

pipilu1984

压缩包缺少xyp_lib.vlx，点击确定后就自动连上了论坛又下载，结果下载的还是缺少xyp_lib.vlx

2009出现下述问题
加载自定义文件成功。自定义组: TEST000
命令: browser 输入网址 (URL)  <http://www.autodesk.com.cn>:
http://www.xdcad.net/forum/attachment.php?s=&postid=1606661
命令: ; 错误: LOAD 失败: "test000"
命令: RIBBON
命令: *取消*
命令: *取消*
命令:  ; 错误: no function definition: CMDLA0
命令:
命令: *取消*
命令: *取消*
命令:  ; 错误: no function definition: CMDLA0
命令:
命令: *取消*
命令: *取消*
命令:  ; 错误: no function definition: XYP-GET-RANDOMS

wangchq1012

受益匪浅啊！

huanghm0215

下来看看

zhuxiaoming

xyp1964导师你的精神是崇高的，我见你回复最多的好心人，帮忙大家解决了不少问题。我先下载试用下，有不懂来请教你哦

jackieshaw

好东西
谢谢分享

石井鱼

现金和爱心币不够，没有办法享受了

fupingtang

非常感谢楼主了

bestcheer

好东东啊..........

xinr111

我还不够下载呢!我顶

xyp1964

[php];; 卡通演示
(defun c:test790 ()
  (defun aaa ()
    (xyp-Dcl-Gettile '("li"))
    (xyp-show-sld "i1" "")
    (xyp-VectorImage "i1" (nth (atoi li) ptns) 4 4)
  )
  (xyp-initSet '(li) '("0"))
  (setq        ptns (xyp-Cartoons)
        lst  '("1-Angry"          "2-Bored"             "3-Cautious"        "4-Confident"           "5-anxious"              "6-ashamed"         "7-confused"
               "8-depressed"          "9-disgusted"             "10-ecstatic"        "11-embarrassed"   "12-enraged"              "13-exhausted"         "14-frightened"
               "15-frustrated"          "16-guilty"             "17-happy"                "18-hopeful"           "19-hysterical"    "20-jealous"         "21-lonely"
               "22-lovestruck"          "23-mischievous"   "24-overwhelmed"        "25-sad"           "26-shocked"              "27-shy"                 "28-smug"
               "29-surprised"          "30-suspicious"
              )
        Ilst '(("i1" nil "image" "-15" "21" "" "(XYP-ABOUTME)")
               ("li" "表情" "list" "lst" "30" "8" "(aaa)")
               (nil nil "user" "(aaa)")
              )
  )
  (xyp-Dcl-Init Ilst "【卡通IMG】" t)
)[/php]