卡通演示DCL

xyp1964

2. ;; 卡通演示
3. (defun c:test790 ()
4.   (CMDLA0)
5.   (defun aaa ()
6.     (xyp-Dcl-Gettile '("li"))
7.     (xyp-show-sld "i1" "")
8.     (xyp-VectorImage "i1" (nth (atoi li) ptns) 2 2)
9.   )
10.   (xyp-initSet '(li) '("0"))
11.   (setq ptns (xyp-Cartoons)
12. lst  '("1"    "2"    "3"    "4"    "5"   "6"  "7" "8"    "9"    "10"   "11"   "12"   "13"   "14"  "15"
13.         "16"   "17"   "18"   "19"   "20"   "21"  "22" "23"   "24"   "25"   "26"   "27"   "28"   "29"  "30"
14.        )
15. Ilst '(("i1" nil "image" "-15" "11" "" "(XYP-ABOUTME)")
16.         ("li" "列表" "list" "lst" "10" "8" "(aaa)")
17.         (nil nil "user" "(aaa)")
18.        )
19.   )
20.   (if (= (xyp-Dcl-Init Ilst "【卡通IMG】" t) 1)
21.     (princ)
22.   )
23.   (CMDLA1)
24. )

;; 卡通演示 (defun c:test790 ()   (CMDLA0)   (defun aaa ()     (xyp-Dcl-Gettile '("li"))     (xyp-show-sld "i1" "")     (xyp-VectorImage "i1" (nth (atoi li) ptns) 2 2)   )   (xyp-initSet '(li) '("0"))   (setq ptns (xyp-Cartoons) lst  '("1"    "2"    "3"    "4"    "5"   "6"  "7" "8"    "9"    "10"   "11"   "12"   "13"   "14"  "15"         "16"   "17"   "18"   "19"   "20"   "21"  "22" "23"   "24"   "25"   "26"   "27"   "28"   "29"  "30"        ) Ilst '(("i1" nil "image" "-15" "11" "" "(XYP-ABOUTME)")         ("li" "列表" "list" "lst" "10" "8" "(aaa)")         (nil nil "user" "(aaa)")        )   )   (if (= (xyp-Dcl-Init Ilst "【卡通IMG】" t) 1)     (princ)   )   (CMDLA1) )

caddog

楼主真有情趣！

g863881420

能加楼主QQ嘛