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

dearleiyi

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

www1974

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

6 y. V0 h. E% I老兄比我还懒，不会编程起码可以由其他变通办法（比如用用选择易，或者导出到EXECL里面排序）。瞎写了一个不知道行不行哦，就当学习一次了。仅支持数字，不能有其他符号。命令：ssh_max
4 V0 x& W7 {: G, h6 w% H
) a8 t" z  [+ f7 N/ B5 p3 o' _/ `0 @[ 本帖最后由 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
% ?' \9 K7 h: B２楼能否公布一下源码让我等学习学习．

我也不熟悉lisp，只是lisp参考好找的，照着修改容易看到成果，呵呵。.

8 T: V9 o- H# k& Y5 k+ a

1. (defun c:ssh_max( / D1 ss1 ss_data enname TM )
   * e' F# X0 {0 A! K6 R0 z$ t
2. (setq ss (ssget '((0 . "TEXT" )))
   . ^0 _* S7 t$ ?6 `4 n2 [- `" C
3. n  0
   
4.   ) ;_ 结束setq
     P) l1 [& w# H6 T  [; O& D3 H% I
5. (setq i (- (sslength ss) 1))
   ; ]5 m6 T$ d- `) ^7 F" k
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))
   0 E' Z4 U/ P8 H8 \# Z) \
10. (setq ssn ss1)
    
11. (command "layer" "M" "tigerspace_max" "" )
    ( y7 W  p5 B+ d
12. (repeat (sslength ss)
    + A/ G! V) |! y2 ~7 ]* ?
13. (setq ss1 (ssname ss i))
    
14. (setq ss_data (entget ss1)) ;;
    
15. (setq enname (cdr(assoc 1 ss_data))) ;;取得ss_data文字内容
    9 f7 E! Z* \' R$ ~
16. (setq enname (atof enname))
    / V: F( w, z8 b& Y
17. (if (> enname ennamei)
    
18.       (setq ennamei enname)
    2 ^3 c$ E. L, i- ?2 Q+ U1 C5 E7 a
19.            ()
    
20. );;结束if
    
21. (setq i (- i 1))
    ( N# b% ?6 z4 b  J! s2 u  {
22. );;repeat
    : w5 ^  w- j+ T4 a0 e% W" ]
23. (setq i (- (sslength ss) 1))
    - z+ \3 t4 w) Y+ Q
24. (setq ss1 (ssname ss i))
    ! E! y$ a* Z& h$ K/ C
25. (repeat (sslength ss)
    7 p- {2 [& J+ s8 a. e1 a" e
26. (setq ss1 (ssname ss i))
    9 l: `2 L% K9 w* K8 H" r* }
27. (setq ss_data (entget ss1)) ;;
    ; l8 G3 a3 a* z
28. (setq enname (cdr(assoc 1 ss_data))) ;;取得ss_data文字内容
    2 {4 c- {8 f4 ^- g: i# z7 i+ {
29. (setq enname (atof enname))
    * y+ e$ n) ~! [; O
30. (if (= enname ennamei)
      g% O7 y  ]+ ]9 x1 o* X* O6 Q
31.        (command "change" ss1 "" "P" "LA" "tigerspace_max" "c" "1" "" )
    3 o6 n2 ]$ `2 E/ {8 R4 ?$ c
32.            ()
    
33. );;结束if
    & N- C4 g: v9 [8 e* ?: {
34. (setq i (- i 1))
    
35. );;repeat
    2 U* Q; |! _( \
36. 
    , H+ C, D, f* m: v5 B
37. (princ)
    4 _9 [7 ~# N/ M& x
38. );;;;结束defun
    
39. (prompt"\n 命令：ssh_max" )
    
40. (prin1)
    - {/ T1 k2 J1 s

复制代码

icevit

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