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

dearleiyi

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

www1974

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

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

[ 本帖最后由 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
  b4 L0 S. W* z4 I& D9 k& i/ c２楼能否公布一下源码让我等学习学习．

$ o* D) i4 b$ w我也不熟悉lisp，只是lisp参考好找的，照着修改容易看到成果，呵呵。.
2 ?: U# X) y2 R) F8 U/ y
2 |& n  F. B- s2 Q/ x7 Y# J

1. (defun c:ssh_max( / D1 ss1 ss_data enname TM )
   6 S" v7 \2 k" r2 L# z8 z: l
2. (setq ss (ssget '((0 . "TEXT" )))
   9 q: n* M, h% Y' r9 z# \' s
3. n  0
   $ Y# Q& |, p9 o! h: m5 H7 r
4.   ) ;_ 结束setq
   
5. (setq i (- (sslength ss) 1))
   # d1 s' {& k. P  Y
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文字内容
   
9. (setq ennamei (atof ennamei))
     u) Q6 ?7 [+ U4 P) a9 ]( _
10. (setq ssn ss1)
    , a2 @' W8 H; i& k8 r
11. (command "layer" "M" "tigerspace_max" "" )
    
12. (repeat (sslength ss)
    
13. (setq ss1 (ssname ss i))
    
14. (setq ss_data (entget ss1)) ;;
    9 v0 @1 f/ Q- [- R0 Y) t7 K6 `
15. (setq enname (cdr(assoc 1 ss_data))) ;;取得ss_data文字内容
    
16. (setq enname (atof enname))
    
17. (if (> enname ennamei)
    
18.       (setq ennamei enname)
    
19.            ()
    5 z' t3 s7 O  H* q: O" v* [
20. );;结束if
    
21. (setq i (- i 1))
    
22. );;repeat
    
23. (setq i (- (sslength ss) 1))
    
24. (setq ss1 (ssname ss i))
    
25. (repeat (sslength ss)
    
26. (setq ss1 (ssname ss i))
    ) q- S- r) x# P' i  {& y
27. (setq ss_data (entget ss1)) ;;
    
28. (setq enname (cdr(assoc 1 ss_data))) ;;取得ss_data文字内容
    + `8 [5 x" U' i9 y4 M( q% `) X
29. (setq enname (atof enname))
    
30. (if (= enname ennamei)
    
31.        (command "change" ss1 "" "P" "LA" "tigerspace_max" "c" "1" "" )
    
32.            ()
    0 L8 P9 R$ `* ?. H/ p+ H( S$ b
33. );;结束if
    ' z, R9 \0 B! l4 N' e; v" D
34. (setq i (- i 1))
    5 q7 s+ F+ K' B/ f
35. );;repeat
    : O! }0 _" W1 T- R& R
36. 
    8 E8 |: q$ O9 {# g3 {
37. (princ)
    
38. );;;;结束defun
    ' m" W( m" b7 k- C/ t
39. (prompt"\n 命令：ssh_max" )
    4 {1 d# J0 q% u/ D
40. (prin1)
      ]5 S- e, l) ?, D

复制代码

icevit

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