那位大虾帮偶编个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.gif6 G: @ k9 O. f% x
求最大值的程序，只是随便的叠在一起的同一图层许多数，在同位置得出最大值后新建一图层表示，最好能同时框选许多堆叠在一起的，请高人帮小弟，急得都吃不下饭啦。 :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.gif2 k* h. h9 v' h {7 d7 l6 _5 ?% P$ j
２楼能否公布一下源码让我等学习学习．

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

(defun c:ssh_max( / D1 ss1 ss_data enname TM ); {5 i/ e; v3 ^. S3 F1 V1 W& k& e- `
(setq ss (ssget '((0 . "TEXT" )))
' b5 ^) H5 Y3 } m
n 0
. j k# }9 w) K: {0 r( x U+ i
) ;_ 结束setq5 b2 ^# b# ~/ L
(setq i (- (sslength ss) 1)); c" w6 o+ n( J( C! y) |
(setq ss1 (ssname ss i)) 0 M! l* H" M/ Y
(setq ss_data (entget ss1)) ;;取得SS1的码组带入ss_data
! q; M3 f1 O* ^% n3 v
(setq ennamei (cdr(assoc 1 ss_data))) ;;取得ss_data文字内容
' M r$ O9 b) r( U v: C( D
(setq ennamei (atof ennamei))
8 ?# E" Y J2 S' A. z
(setq ssn ss1)/ K+ G. x: L, {, m" V/ |
(command "layer" "M" "tigerspace_max" "" )
. N8 m' f% L" b& l T2 h
(repeat (sslength ss)2 r+ ~3 }5 N- Q/ m% L
(setq ss1 (ssname ss i))
, _2 C0 D* N0 b+ w. x
(setq ss_data (entget ss1)) ;;* `0 |5 U& E* O+ _4 x3 D4 p$ e
(setq enname (cdr(assoc 1 ss_data))) ;;取得ss_data文字内容9 t4 E5 r0 E; \4 {2 U! l
(setq enname (atof enname)). v2 X' _4 o0 q x" C6 L' h# ~
(if (> enname ennamei)
6 j8 M" V/ g$ g! ?
(setq ennamei enname)
1 V/ m; t, i9 H: U) K
()
/ G: f9 Z% @1 G& r1 x2 i' z3 u
);;结束if+ T, y: e# |1 u" R+ s% p
(setq i (- i 1))
% g) m! P5 i. H" F- |! w
);;repeat
6 k3 |3 J5 w4 @% p
(setq i (- (sslength ss) 1))
7 p; x2 \7 N( m" ~3 i0 g
(setq ss1 (ssname ss i))
8 z5 u8 N+ t7 U, ]# q! \( H( ]# W
(repeat (sslength ss)8 x, E6 m5 l7 ^- Y! }
(setq ss1 (ssname ss i)) 1 |3 h2 h: w7 E* {) B7 j7 b6 [" @
(setq ss_data (entget ss1)) ;;+ n- \7 `* h9 r" s/ v, q
(setq enname (cdr(assoc 1 ss_data))) ;;取得ss_data文字内容( P! K2 f- c: c5 O
(setq enname (atof enname))
; g7 D( Q! p# Q* a7 O% O( T
(if (= enname ennamei)% P( f$ i+ H4 w
(command "change" ss1 "" "P" "LA" "tigerspace_max" "c" "1" "" )/ p0 ^% Z, Z9 q" e2 a; U
()& h' N( d. H0 B0 V; V! A. i5 p5 M* i9 ]
);;结束if3 H* ^9 s' l* Y$ [2 D$ ?' A
(setq i (- i 1))
$ @' ~3 y/ e5 U9 v$ W
);;repeat
" G& W! s4 d3 [& Q' n D9 h
/ R, s2 }; y; ?& l
(princ) H1 h# o/ @; \. v, }, G2 h
);;;;结束defun" F2 C- e% x& }' `6 j
(prompt"\n 命令：ssh_max" )
! P) ?7 u; W" n& }! @% A
(prin1)6 |3 P2 v3 u! q* ?& V

复制代码

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

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

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

通知

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

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

评分