那位大虾帮偶编个LISP好吗?谢谢!

dearleiyi

求最大值的程序，只是随便的叠在一起的同一图层许多数，在同位置得出最大值后新建一图层表示，最好能同时框选许多堆叠在一起的，请高人帮小弟，急得都吃不下饭啦。 :funk:

www1974

原帖由 dearleiyi 于 2008-9-16 21:01 发表 http://www.3dportal.cn/discuz/images/common/back.gif
求最大值的程序，只是随便的叠在一起的同一图层许多数，在同位置得出最大值后新建一图层表示，最好能同时框选许多堆叠在一起的，请高人帮小弟，急得都吃不下饭啦。 :funk:

老兄比我还懒，不会编程起码可以由其他变通办法（比如用用选择易，或者导出到EXECL里面排序）。瞎写了一个不知道行不行哦，就当学习一次了。仅支持数字，不能有其他符号。命令：ssh_max
& k3 {9 n1 K* _2 `7 n# F
' p( ~: T5 o% j" ^) D0 C8 M[ 本帖最后由 www1974 于 2008-9-17 01:02 编辑 ]

dearleiyi

感谢www1974大哥good good good ，我就是不会编程啊 ，今后一定学，对设计太又用了

xhf2411

２楼能否公布一下源码让我等学习学习．

www1974

原帖由 xhf2411 于 2008-9-27 21:09 发表 http://www.3dportal.cn/discuz/images/common/back.gif
; V2 X1 J% m+ u) U; t5 ~２楼能否公布一下源码让我等学习学习．

5 y% Y  c! N: o' J! p% A9 }我也不熟悉lisp，只是lisp参考好找的，照着修改容易看到成果，呵呵。.
1 O% U* u+ Z6 ^% i& `' [

1. (defun c:ssh_max( / D1 ss1 ss_data enname TM )
   " t1 m' M5 k: z7 ^5 Q' C* E2 w- u( n
2. (setq ss (ssget '((0 . "TEXT" )))
   8 G" w* R( b4 p6 r7 U
3. n  0
   - @5 Q5 N9 c1 z8 O; R! q& u1 t
4.   ) ;_ 结束setq
   
5. (setq i (- (sslength ss) 1))
   3 _5 m0 g1 p3 T4 S$ d9 Y8 h
6. (setq ss1 (ssname ss i))
   
7. (setq ss_data (entget ss1)) ;;取得SS1的码组带入ss_data
   
8. (setq ennamei (cdr(assoc 1 ss_data))) ;;取得ss_data文字内容
   & T& j* l& z- ]) h
9. (setq ennamei (atof ennamei))
   8 q+ M# C( B9 ^
10. (setq ssn ss1)
    / V$ _! P& W6 {- N- @2 F2 L! g5 T5 V
11. (command "layer" "M" "tigerspace_max" "" )
    ' h8 w! D6 K' I+ l, M
12. (repeat (sslength ss)
    " Z! o& Y+ Y" f3 z' i7 ]
13. (setq ss1 (ssname ss i))
    
14. (setq ss_data (entget ss1)) ;;
    
15. (setq enname (cdr(assoc 1 ss_data))) ;;取得ss_data文字内容
    % g( `3 v: W, }9 i7 N7 T6 s
16. (setq enname (atof enname))
    
17. (if (> enname ennamei)
    
18.       (setq ennamei enname)
    # `# q' [2 d  K; m3 M" ?, e
19.            ()
    4 ]/ V8 m% O& `: ?6 n6 c  J
20. );;结束if
    
21. (setq i (- i 1))
    
22. );;repeat
    
23. (setq i (- (sslength ss) 1))
    ) T/ C& J1 A  {, L" `& K% x  f! Z
24. (setq ss1 (ssname ss i))
    ) q" r1 a' Y5 {( B4 c
25. (repeat (sslength ss)
    , a8 N1 M) m8 l! b, g
26. (setq ss1 (ssname ss i))
    ! Y/ f+ f% ]7 A  P$ h( U
27. (setq ss_data (entget ss1)) ;;
    
28. (setq enname (cdr(assoc 1 ss_data))) ;;取得ss_data文字内容
    3 h$ Y9 m* r4 b( E% ~. }9 h+ E0 K
29. (setq enname (atof enname))
      v0 p0 y7 Q. K: B. `
30. (if (= enname ennamei)
    / o6 H" A+ _) ]  P& A! c
31.        (command "change" ss1 "" "P" "LA" "tigerspace_max" "c" "1" "" )
    
32.            ()
    ) w0 A$ Y: C5 f! A. Q+ G, u
33. );;结束if
    9 t# b% d7 K; m5 ^$ `, s
34. (setq i (- i 1))
    
35. );;repeat
    
36. 
    
37. (princ)
    
38. );;;;结束defun
    
39. (prompt"\n 命令：ssh_max" )
    # ~; ~  u& C6 }8 J+ f+ t
40. (prin1)
    

复制代码

icevit

学习学习了。英雄请........