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

cumthtr

郁闷

jingfang0312

看不懂！恕我愚昧！

ydf7332462

最初由 xyp1964 发布
[B][php]
;;;过滤层、色、线型实体
(defun c:test()
  (while(not(setq s1(entsel"\选择物体 : "))))
  (setq s1 (car s1)
        e (entget s1)
        la (dxf 8 e)
        co (dxf 62 e)
        lt(dxf 6 e)
        )  
  (if (and la co... [/B]

dxf 好象未定义，是否通用函数？

所有“不认识的东东”都在通用函数里。by xyp1964[/COLOR]

amengsq

为什么我下载不了阿
请版主给我发一个 a2000126@126.com

baudy

一看就知是好东西，这么高的人气。

zhjinhua

好东西但我是新手不是很懂

syaeiri

好好好好好好好

tgh56

刚下了,看了一下还行!!支持一下楼主

xmchy

不知道140的菜单出来了没有

xyp1964

只有141的菜单！呵呵……

lovelife80356

thank you,多谢楼主的分享

li809

楼主费心了,多谢了
有些程序正是我想用的

zhaozwf

在哪有下载啊

macong727

看不到下载的地方啊？

xyp1964

;; 对话框测试

2. [FONT=courier new];; 对话框测试
   
3. (defun c:test758 ()
   
4.   (setq klst '("bo0" "bo1" "bo2" "bo3" "bo4" "bo5" "bo6" "bo7" "bo8" "bo9"))
   
5.   (defun aaa ()
   
6.     (xyp-Dcl-Gettile klst)
   
7.     (defun mt (key lst / a)
   
8.       (cond ((= key "1") (foreach a lst (mode_tile a 0)))
   
9.             ((= key "0") (foreach a lst (mode_tile a 1)))
   
10.       )
    
11.     )
    
12.     (mt bo0 '("t00" "t01"))
    
13.     (mt bo1 '("t10" "t11"))
    
14.     (mt bo2 '("t20" "t21"))
    
15.     (mt bo3 '("t30" "t31"))
    
16.     (mt bo4 '("t40" "t41"))
    
17.     (mt bo5 '("t50" "t51"))
    
18.     (mt bo6 '("t60" "t61"))
    
19.     (mt bo7 '("t70" "t71"))
    
20.     (mt bo8 '("t80" "t81"))
    
21.     (mt bo9 '("t90" "t91"))
    
22.   )
    
23.   (defun bbb ()
    
24.     (foreach a klst (set_tile a "1"))
    
25.     (aaa)
    
26.   )
    
27.   (defun ccc ()
    
28.     (foreach a klst (set_tile a "0"))
    
29.     (aaa)
    
30.   )
    
31.   (xyp-initSet
    
32.     '(bo0 t00 t01 bo1 t10 t11 bo2 t20 t21 bo3 t30 t31 bo4 t40 t41 bo5 t50 t51 bo6 t60 t61 bo7 t70
    
33.       t71 bo8 t80 t81 bo9 t90 t91 r1 r2        r3)
    
34.     '("0" "" ""        "0" "" "" "0" "" "" "0"        "" "" "0" "" ""        "0" "" "" "0" "" "" "0"        "" "" "0" "" ""        "0"
    
35.       "" "" "1"        "0" "0")
    
36.   )
    
37.   (setq        Ilst '((nil nil ":row{")
    
38.                ("bo0" "dist0" "bool" "(aaa)")
    
39.                ("t00" "" "str" "10")
    
40.                ("t01" "" "str" "10")
    
41.                (nil nil "}")
    
42.                (nil nil ":row{")
    
43.                ("bo1" "dist1" "bool" "(aaa)")
    
44.                ("t10" "" "str" "10")
    
45.                ("t11" "" "str" "10")
    
46.                (nil nil "}")
    
47.                (nil nil ":row{")
    
48.                ("bo2" "dist2" "bool" "(aaa)")
    
49.                ("t20" "" "str" "10")
    
50.                ("t21" "" "str" "10")
    
51.                (nil nil "}")
    
52.                (nil nil ":row{")
    
53.                ("bo3" "dist3" "bool" "(aaa)")
    
54.                ("t30" "" "str" "10")
    
55.                ("t31" "" "str" "10")
    
56.                (nil nil "}")
    
57.                (nil nil ":row{")
    
58.                ("bo4" "dist4" "bool" "(aaa)")
    
59.                ("t40" "" "str" "10")
    
60.                ("t41" "" "str" "10")
    
61.                (nil nil "}")
    
62.                (nil nil ":row{")
    
63.                ("bo5" "dist5" "bool" "(aaa)")
    
64.                ("t50" "" "str" "10")
    
65.                ("t51" "" "str" "10")
    
66.                (nil nil "}")
    
67.                (nil nil ":row{")
    
68.                ("bo6" "dist6" "bool" "(aaa)")
    
69.                ("t60" "" "str" "10")
    
70.                ("t61" "" "str" "10")
    
71.                (nil nil "}")
    
72.                (nil nil ":row{")
    
73.                ("bo7" "dist7" "bool" "(aaa)")
    
74.                ("t70" "" "str" "10")
    
75.                ("t71" "" "str" "10")
    
76.                (nil nil "}")
    
77.                (nil nil ":row{")
    
78.                ("bo8" "dist8" "bool" "(aaa)")
    
79.                ("t80" "" "str" "10")
    
80.                ("t81" "" "str" "10")
    
81.                (nil nil "}")
    
82.                (nil nil ":row{")
    
83.                ("bo9" "dist9" "bool" "(aaa)")
    
84.                ("t90" "" "str" "10")
    
85.                ("t91" "" "str" "10")
    
86.                (nil nil "}")
    
87.                (nil nil ":row{")
    
88.                ("bt1" "全选" "button1" "(bbb)")
    
89.                ("bt2" "全部取消" "button1" "(ccc)")
    
90.                (nil nil "}")
    
91.                (nil nil ":boxed_radio_row{label="操作";")
    
92.                ("r1" "默认" "radio")
    
93.                ("r2" "代替" "radio")
    
94.                ("r3" "插入" "radio")
    
95.                (nil nil "}")
    
96.                (nil nil "user" "(aaa)")
    
97.               )
    
98.   )
    
99.   (if (= (xyp-Dcl-Init Ilst "【整体替换】" t) 1)
    
100.     (princ "TEST-OK")
     
101.   )
     
102. )[/FONT]

[FONT=courier new];; 对话框测试<br /> (defun c:test758 ()<br />   (setq klst '("bo0" "bo1" "bo2" "bo3" "bo4" "bo5" "bo6" "bo7" "bo8" "bo9"))<br />   (defun aaa ()<br />     (xyp-Dcl-Gettile klst)<br />     (defun mt (key lst / a)<br />       (cond ((= key "1") (foreach a lst (mode_tile a 0)))<br />             ((= key "0") (foreach a lst (mode_tile a 1)))<br />       )<br />     )<br />     (mt bo0 '("t00" "t01"))<br />     (mt bo1 '("t10" "t11"))<br />     (mt bo2 '("t20" "t21"))<br />     (mt bo3 '("t30" "t31"))<br />     (mt bo4 '("t40" "t41"))<br />     (mt bo5 '("t50" "t51"))<br />     (mt bo6 '("t60" "t61"))<br />     (mt bo7 '("t70" "t71"))<br />     (mt bo8 '("t80" "t81"))<br />     (mt bo9 '("t90" "t91"))<br />   )<br />   (defun bbb ()<br />     (foreach a klst (set_tile a "1"))<br />     (aaa)<br />   )<br />   (defun ccc ()<br />     (foreach a klst (set_tile a "0"))<br />     (aaa)<br />   )<br />   (xyp-initSet<br />     '(bo0 t00 t01 bo1 t10 t11 bo2 t20 t21 bo3 t30 t31 bo4 t40 t41 bo5 t50 t51 bo6 t60 t61 bo7 t70<br />       t71 bo8 t80 t81 bo9 t90 t91 r1 r2        r3)<br />     '("0" "" ""        "0" "" "" "0" "" "" "0"        "" "" "0" "" ""        "0" "" "" "0" "" "" "0"        "" "" "0" "" ""        "0"<br />       "" "" "1"        "0" "0")<br />   )<br />   (setq        Ilst '((nil nil ":row{")<br />                ("bo0" "dist0" "bool" "(aaa)")<br />                ("t00" "" "str" "10")<br />                ("t01" "" "str" "10")<br />                (nil nil "}")<br />                (nil nil ":row{")<br />                ("bo1" "dist1" "bool" "(aaa)")<br />                ("t10" "" "str" "10")<br />                ("t11" "" "str" "10")<br />                (nil nil "}")<br />                (nil nil ":row{")<br />                ("bo2" "dist2" "bool" "(aaa)")<br />                ("t20" "" "str" "10")<br />                ("t21" "" "str" "10")<br />                (nil nil "}")<br />                (nil nil ":row{")<br />                ("bo3" "dist3" "bool" "(aaa)")<br />                ("t30" "" "str" "10")<br />                ("t31" "" "str" "10")<br />                (nil nil "}")<br />                (nil nil ":row{")<br />                ("bo4" "dist4" "bool" "(aaa)")<br />                ("t40" "" "str" "10")<br />                ("t41" "" "str" "10")<br />                (nil nil "}")<br />                (nil nil ":row{")<br />                ("bo5" "dist5" "bool" "(aaa)")<br />                ("t50" "" "str" "10")<br />                ("t51" "" "str" "10")<br />                (nil nil "}")<br />                (nil nil ":row{")<br />                ("bo6" "dist6" "bool" "(aaa)")<br />                ("t60" "" "str" "10")<br />                ("t61" "" "str" "10")<br />                (nil nil "}")<br />                (nil nil ":row{")<br />                ("bo7" "dist7" "bool" "(aaa)")<br />                ("t70" "" "str" "10")<br />                ("t71" "" "str" "10")<br />                (nil nil "}")<br />                (nil nil ":row{")<br />                ("bo8" "dist8" "bool" "(aaa)")<br />                ("t80" "" "str" "10")<br />                ("t81" "" "str" "10")<br />                (nil nil "}")<br />                (nil nil ":row{")<br />                ("bo9" "dist9" "bool" "(aaa)")<br />                ("t90" "" "str" "10")<br />                ("t91" "" "str" "10")<br />                (nil nil "}")<br />                (nil nil ":row{")<br />                ("bt1" "全选" "button1" "(bbb)")<br />                ("bt2" "全部取消" "button1" "(ccc)")<br />                (nil nil "}")<br />                (nil nil ":boxed_radio_row{label="操作";")<br />                ("r1" "默认" "radio")<br />                ("r2" "代替" "radio")<br />                ("r3" "插入" "radio")<br />                (nil nil "}")<br />                (nil nil "user" "(aaa)")<br />               )<br />   )<br />   (if (= (xyp-Dcl-Init Ilst "【整体替换】" t) 1)<br />     (princ "TEST-OK")<br />   )<br /> )[/FONT]