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

dearleiyi

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

www1974

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

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

: d; X; T3 H" r* f$ Q[ 本帖最后由 www1974 于 2008-9-17 01:02 编辑 ]

dearleiyi

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

xhf2411

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

www1974

0 s) n! l% H- [" W; u( w

原帖由 xhf2411 于 2008-9-27 21:09 发表 http://www.3dportal.cn/discuz/images/common/back.gif
, l" Q$ [! X3 T/ v! U) E3 f& g: R8 d) ^. G２楼能否公布一下源码让我等学习学习．

我也不熟悉lisp，只是lisp参考好找的，照着修改容易看到成果，呵呵。.
. w0 v7 d3 }  a' A' ~' ?! q
  e. x0 I9 b6 S1 ^( f# Q; d$ c

1. (defun c:ssh_max( / D1 ss1 ss_data enname TM )
   ; ~) B& u, W0 k- M9 b/ W* z
2. (setq ss (ssget '((0 . "TEXT" )))
   
3. n  0
   7 w# u- t  T3 _# y
4.   ) ;_ 结束setq
   
5. (setq i (- (sslength ss) 1))
   
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))
   4 {# t) o# k; \+ ]' Y0 }, N
10. (setq ssn ss1)
    
11. (command "layer" "M" "tigerspace_max" "" )
    . }2 _# F; M( W% `( {( \9 k
12. (repeat (sslength ss)
    3 k. X+ ~$ ~) y3 |, B5 A$ x
13. (setq ss1 (ssname ss i))
    
14. (setq ss_data (entget ss1)) ;;
    . q7 Y5 j& w2 G; i9 D( i* l# ?
15. (setq enname (cdr(assoc 1 ss_data))) ;;取得ss_data文字内容
    
16. (setq enname (atof enname))
    8 D& d4 k% L/ q; W. Z; A( ^
17. (if (> enname ennamei)
    % z5 y1 d2 Z4 G& ?: d2 o# [+ }
18.       (setq ennamei enname)
    
19.            ()
    2 f1 a$ z' Q& k! {
20. );;结束if
    # v6 i3 w- V  d
21. (setq i (- i 1))
    
22. );;repeat
    
23. (setq i (- (sslength ss) 1))
    $ U: J  r3 F1 r
24. (setq ss1 (ssname ss i))
    
25. (repeat (sslength ss)
    ! E* g- O, M7 N7 N
26. (setq ss1 (ssname ss i))
    
27. (setq ss_data (entget ss1)) ;;
    . |$ M8 e6 u* N: G5 O
28. (setq enname (cdr(assoc 1 ss_data))) ;;取得ss_data文字内容
    
29. (setq enname (atof enname))
    
30. (if (= enname ennamei)
    0 Q! }& d8 @* _/ O. M: B
31.        (command "change" ss1 "" "P" "LA" "tigerspace_max" "c" "1" "" )
    
32.            ()
    0 Y- Y* \1 a8 \6 }+ J8 R) X
33. );;结束if
    
34. (setq i (- i 1))
    
35. );;repeat
    
36. 
    & h0 j+ d; n1 d3 B1 l
37. (princ)
    
38. );;;;结束defun
    
39. (prompt"\n 命令：ssh_max" )
    
40. (prin1)
    - J7 ]8 J$ S* I

复制代码

icevit

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