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

dearleiyi

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

www1974

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

老兄比我还懒，不会编程起码可以由其他变通办法（比如用用选择易，或者导出到EXECL里面排序）。瞎写了一个不知道行不行哦，就当学习一次了。仅支持数字，不能有其他符号。命令：ssh_max

[ 本帖最后由 www1974 于 2008-9-17 01:02 编辑 ]

dearleiyi

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

xhf2411

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

www1974

% B+ [- O0 z9 C  L/ a' d" j

原帖由 xhf2411 于 2008-9-27 21:09 发表 http://www.3dportal.cn/discuz/images/common/back.gif
6 l- i; A& @& c* u# G: r２楼能否公布一下源码让我等学习学习．

9 d6 `- a+ r. Y8 l$ R2 t& v# H4 o9 q我也不熟悉lisp，只是lisp参考好找的，照着修改容易看到成果，呵呵。.
# E8 I0 `) o# G4 M4 _2 U) E

1. (defun c:ssh_max( / D1 ss1 ss_data enname TM )
   " y; _/ a$ v/ c& ?) D6 @% F' K& A; M
2. (setq ss (ssget '((0 . "TEXT" )))
   * p' m) X4 {) {: u
3. n  0
   
4.   ) ;_ 结束setq
   
5. (setq i (- (sslength ss) 1))
   
6. (setq ss1 (ssname ss i))
   
7. (setq ss_data (entget ss1)) ;;取得SS1的码组带入ss_data
   ! L! _: M; r7 o. u* L" n, W
8. (setq ennamei (cdr(assoc 1 ss_data))) ;;取得ss_data文字内容
   , k% A: l, j1 d: w
9. (setq ennamei (atof ennamei))
   4 F; L% }3 R$ `, K4 Y
10. (setq ssn ss1)
    $ G$ m3 ]* I/ T0 t, f/ A8 V, w
11. (command "layer" "M" "tigerspace_max" "" )
    
12. (repeat (sslength ss)
    
13. (setq ss1 (ssname ss i))
    ) M# D( ]4 u8 U( q( n2 j
14. (setq ss_data (entget ss1)) ;;
    * f9 _7 |' |8 R9 A
15. (setq enname (cdr(assoc 1 ss_data))) ;;取得ss_data文字内容
    
16. (setq enname (atof enname))
    
17. (if (> enname ennamei)
    2 ^" K+ m* I# u; Z  P6 Z
18.       (setq ennamei enname)
    
19.            ()
    : [6 }; F- i% @! O: q6 D
20. );;结束if
    
21. (setq i (- i 1))
    
22. );;repeat
    . `+ x0 {# q1 |& ~) ^7 j
23. (setq i (- (sslength ss) 1))
    
24. (setq ss1 (ssname ss i))
    + v  ?" d2 ~8 L2 n9 s: q
25. (repeat (sslength ss)
    % Z7 j' M) D, j9 \
26. (setq ss1 (ssname ss i))
    
27. (setq ss_data (entget ss1)) ;;
    
28. (setq enname (cdr(assoc 1 ss_data))) ;;取得ss_data文字内容
    * U' b& ?1 D9 S" P- E; [. a
29. (setq enname (atof enname))
    * @$ S* Z3 z5 q; Y9 K' D
30. (if (= enname ennamei)
    
31.        (command "change" ss1 "" "P" "LA" "tigerspace_max" "c" "1" "" )
    
32.            ()
    6 R. k( b/ g* w1 \. j0 K
33. );;结束if
    
34. (setq i (- i 1))
    # L) s" M2 D, X( s$ j
35. );;repeat
    
36. 
    2 e% z7 ?0 _# k( T  N
37. (princ)
    ) @% G* o' k$ |, n5 w4 k1 W  w
38. );;;;结束defun
    1 O& m- n3 F" x
39. (prompt"\n 命令：ssh_max" )
    & O1 ]" u3 Y- \1 M$ L2 t
40. (prin1)
    ! S4 ~* g$ z4 a

复制代码

icevit

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