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

石井鱼

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

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]

luxywd5

哈哈，楼主的东西很 不错

其他会员的回复也很精彩

学习学习～

kikigz88

自己编的才好

longxianhua

好东西,正在研究中呢~~

zwf9900

我发现好像要下载一个XYPLID.VLX，不知何故，不知其他朋友有没有相同问题！

ljh19991220

怎么不能下载了，能不能发给我一份ljh19991220@163.com。谢谢

yjhcelia

找了好久，谢谢楼主了。收下

liujie4

不能下载了啊，是不是服务器坏了

xyp1964

;; 鱼
(defun c:test817 ()
  (defun aaa ()
    (xyp-Dcl-Gettile '("p01"))
    (xyp-show-sld "k0" (strcat "xyp1964(" (nth (atoi p01) lst) ")"))
  )
  (xyp-initSet '(p01) '("0"))
  (setq        lst  '("JKFI-012"      "JKFI-013"      "JKFI-014"      "JKFI-015"      "JKFI-077"      "JKFI-078"      "JKFI-079"      "JKFI-080"
               "JKFI-081"      "JKFI-082"      "JKFI-083"      "JKFI-221"      "JKFI-222"      "JKFI-223"      "JKFI-247"      "JKFI-248"
               "JKFI-249"      "JKFI-250"      "JKFI-251"      "JKFI-252"      "JKFI-253"      "JKFI-254"
              )
        Ilst '(("k0" nil "imagebutton" "-2" "40" "" "(XYP-ABOUTME)")
               (nil nil "spacer;")
               ("p01" "列表" "list" "lst" "8" "10" "(aaa)")
               (nil nil "user" "(aaa)")
              )
  )
  (xyp-Dcl-Init Ilst "【CAD鱼】" t)
  (princ)
)

xyp1964

fish

xyp1964

;; 多段线等转向
(defun c:test821 ()
  (CMDLA0)
  (setq        ss (ssget '((0 . "LWPOLYLINE,SPLINE,LINE")))
        i  -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (setq et (xyp-get-dxf 0 s1))
    (cond ((= et "LWPOLYLINE") (xyp-Reverse-LwPolyline s1))
          ((= et "SPLINE") (command "_.splinedit" s1 "e" ""))
          ((= et "LINE")
           (setq p1 (xyp-get-dxf 10 s1)
                 p2 (xyp-get-dxf 11 s1)
           )
           (xyp-SubUpd s1 10 p2)
           (xyp-SubUpd s1 11 p1)
          )
    )
    (xyp-put-Mark (xyp-get-CurveStartPoint s1) 1 0) ;起点标记
  )
  (CMDLA1)
)