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

dearleiyi · 发表于 2008-9-16 21:01:40

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

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

:funk:

www1974 · 发表于 2008-9-17 00:54:19

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

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

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

dearleiyi · 发表于 2008-9-17 12:19:29

感谢www1974大哥good good good ，我就是不会编程啊

，今后一定学，对设计太又用了

xhf2411 · 发表于 2008-9-27 21:09:06

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

www1974 · 发表于 2008-9-28 20:45:33

本帖最后由 woaishuijia 于 2011-5-15 04:25 编辑

原帖由 xhf2411 于 2008-9-27 21:09 发表 http://www.3dportal.cn/discuz/images/common/back.gif$ p% K+ V9 Y6 S5 Y& e$ J
２楼能否公布一下源码让我等学习学习．

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

(defun c:ssh_max( / D1 ss1 ss_data enname TM )
) P8 o* T0 T6 C: Q2 U# b
(setq ss (ssget '((0 . "TEXT" )))0 [0 ]% ]/ ~- A6 a' X- V, F; }' ~) N
n 0
+ e, ]( y2 H9 a) c% Q
) ;_ 结束setq) z* B: D: Z3 U( C1 a
(setq i (- (sslength ss) 1))! ?/ w4 G0 F$ c6 y" \7 [
(setq ss1 (ssname ss i)) 4 A( \/ S9 c7 ^: L$ s; p
(setq ss_data (entget ss1)) ;;取得SS1的码组带入ss_data
" M- i+ y/ `/ L5 O
(setq ennamei (cdr(assoc 1 ss_data))) ;;取得ss_data文字内容1 _; v8 N' l" ]5 U" |
(setq ennamei (atof ennamei))
% u2 a( ~5 Q# t
(setq ssn ss1)
/ {4 x% [* a! i" d2 F
(command "layer" "M" "tigerspace_max" "" )
( ~) X2 K& _! p+ A
(repeat (sslength ss)2 O" }' _$ O0 G5 Z* Z- r
(setq ss1 (ssname ss i))
- E; R* ~0 A6 V3 M7 d8 u
(setq ss_data (entget ss1)) ;;1 o- o0 u6 S% h) a+ y3 K
(setq enname (cdr(assoc 1 ss_data))) ;;取得ss_data文字内容
4 l5 ]& k3 h# X6 a6 \# j4 K" N
(setq enname (atof enname))' t) A( o p! ?3 }' _4 O4 f* G
(if (> enname ennamei)
' |2 K G# {% R# c" J, Q# {
(setq ennamei enname)3 N0 z/ }+ c. @3 j8 j
()
i& y7 |- t" K) B% T/ V
);;结束if
- H8 e, ?3 l! A2 S3 A
(setq i (- i 1))6 E; V7 o0 ]1 v& z: i1 j# K. N% H8 h
);;repeat
- v' k$ l. K6 ?( z% f8 Z0 E1 N
(setq i (- (sslength ss) 1))
2 Y" p$ @! r4 i! u8 U# h# |8 ]
(setq ss1 (ssname ss i))
5 Y4 C; K0 H/ Z5 V2 @; ?/ q
(repeat (sslength ss)+ Y8 Q! G2 ~- ?) s/ ^' e
(setq ss1 (ssname ss i))
4 F2 |' Z$ b+ N$ w+ ]4 m; E
(setq ss_data (entget ss1)) ;;
3 K' j3 v7 P, g7 N1 d
(setq enname (cdr(assoc 1 ss_data))) ;;取得ss_data文字内容% {4 S6 g. |/ e0 u3 k) O( z! p
(setq enname (atof enname))! W; r$ x- N% U) U/ X' u" P% ?
(if (= enname ennamei)
: g$ w4 a' a/ R
(command "change" ss1 "" "P" "LA" "tigerspace_max" "c" "1" "" )
# ^( W N/ F9 @& O, b( V/ G$ B0 _
()7 m' F& g( E; z3 L' @! V
);;结束if5 L! c8 _1 _2 @; Y9 U2 Q: P
(setq i (- i 1))
" u0 F6 O$ p0 j8 g7 _' B3 P
);;repeat& y# d; j( G, T3 E
% y3 g. H4 _, G' k2 w/ }, T- I
(princ)
0 `, d/ h, r1 q: l
);;;;结束defun
$ n8 ?. }. _; E, `# Q) N0 C6 s
(prompt"\n 命令：ssh_max" )
7 a C) ]4 c2 j
(prin1)
7 h# x5 w; u9 C) Z2 J0 K4 F

复制代码

icevit · 发表于 2011-5-15 04:15:59

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

		自动登录	找回密码
密码			注册

通知

[已答复] 那位大虾帮偶编个LISP好吗?谢谢!

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分