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

dearleiyi

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

www1974

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

老兄比我还懒，不会编程起码可以由其他变通办法（比如用用选择易，或者导出到EXECL里面排序）。瞎写了一个不知道行不行哦，就当学习一次了。仅支持数字，不能有其他符号。命令：ssh_max
+ Z1 e. A( ^9 j6 ^
[ 本帖最后由 www1974 于 2008-9-17 01:02 编辑 ]

dearleiyi

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

xhf2411

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

www1974

( U( C- x5 i' [3 D# M) ^' c9 M0 j

原帖由 xhf2411 于 2008-9-27 21:09 发表 http://www.3dportal.cn/discuz/images/common/back.gif
% S, J0 g# P0 X２楼能否公布一下源码让我等学习学习．

我也不熟悉lisp，只是lisp参考好找的，照着修改容易看到成果，呵呵。.
1 F  b2 B$ V3 w9 k; H4 r+ [8 s* }8 W
) |, a# E% w: H

1. (defun c:ssh_max( / D1 ss1 ss_data enname TM )
   ; x! b2 s& E6 O) `% C+ n# V, Y8 U
2. (setq ss (ssget '((0 . "TEXT" )))
   
3. n  0
   
4.   ) ;_ 结束setq
   * q6 v! t8 R( c* e) A; K
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文字内容
   - E3 s& V# ^! e4 S7 n4 t. M
9. (setq ennamei (atof ennamei))
   
10. (setq ssn ss1)
      ~& V1 }; }: [' k7 p$ m
11. (command "layer" "M" "tigerspace_max" "" )
    
12. (repeat (sslength ss)
    4 T, n  I7 g, J& d1 \4 m- Q( h9 {! e
13. (setq ss1 (ssname ss i))
    + m0 j$ e; s5 K$ Y3 w: ^
14. (setq ss_data (entget ss1)) ;;
    0 f% L2 F& B+ U* U* x
15. (setq enname (cdr(assoc 1 ss_data))) ;;取得ss_data文字内容
    
16. (setq enname (atof enname))
    
17. (if (> enname ennamei)
    + I3 Y; ^7 \5 L4 b' S
18.       (setq ennamei enname)
    7 \4 Q8 c% `3 R3 r' I1 N1 |
19.            ()
    3 |  f4 k% z; s! p, o' S4 A
20. );;结束if
    
21. (setq i (- i 1))
    7 m, c5 ~. n, n5 N) s
22. );;repeat
    
23. (setq i (- (sslength ss) 1))
    2 k* t" P7 f/ l, T+ q. l
24. (setq ss1 (ssname ss i))
    ' y. X9 a+ f; I# ?$ y
25. (repeat (sslength ss)
      A' q. @1 A5 W! M! u: K
26. (setq ss1 (ssname ss i))
    
27. (setq ss_data (entget ss1)) ;;
    
28. (setq enname (cdr(assoc 1 ss_data))) ;;取得ss_data文字内容
    
29. (setq enname (atof enname))
    
30. (if (= enname ennamei)
    
31.        (command "change" ss1 "" "P" "LA" "tigerspace_max" "c" "1" "" )
    * Z2 d9 n! e$ u2 n3 ~
32.            ()
      ^7 k  u! z' F, L3 H2 _% s
33. );;结束if
    - U. j# K+ U( Z8 g6 c& T# C% Y
34. (setq i (- i 1))
    
35. );;repeat
    
36. 
    
37. (princ)
    ; V' z( h& N3 M0 m! i& `! p/ M
38. );;;;结束defun
    
39. (prompt"\n 命令：ssh_max" )
    
40. (prin1)
    1 o6 c. [! j" J$ q5 H* a2 m

复制代码

icevit

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