那位大虾帮偶编个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
8 g1 X7 d! e4 Z# q$ v求最大值的程序，只是随便的叠在一起的同一图层许多数，在同位置得出最大值后新建一图层表示，最好能同时框选许多堆叠在一起的，请高人帮小弟，急得都吃不下饭啦。 :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
3 {2 F/ a6 |* z5 k* y0 p$ `２楼能否公布一下源码让我等学习学习．

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

(defun c:ssh_max( / D1 ss1 ss_data enname TM )4 ?: ?* P) J9 y
(setq ss (ssget '((0 . "TEXT" )))
4 o$ l. J) }6 m, D
n 0
* P0 e b0 A" H
) ;_ 结束setq+ y0 [& ~& d, N5 c) k. `
(setq i (- (sslength ss) 1))
(setq ss1 (ssname ss i))
7 K4 f, W0 P* P. d9 x. m8 O
(setq ss_data (entget ss1)) ;;取得SS1的码组带入ss_data3 D1 i* w( a/ y* k/ a; G
(setq ennamei (cdr(assoc 1 ss_data))) ;;取得ss_data文字内容
3 G6 @( Q C8 v4 N( d! A4 c
(setq ennamei (atof ennamei))
0 i( Q1 t; V5 e
(setq ssn ss1)
" I" a* \* M. Z/ {
(command "layer" "M" "tigerspace_max" "" )2 Z% B+ {9 u, D: t' p( l; K6 Q5 ?
(repeat (sslength ss)
1 A4 ~ {2 n( v+ ~( q. t6 V; ], G
(setq ss1 (ssname ss i))
8 z( D$ n' n$ F- X w: E4 c
(setq ss_data (entget ss1)) ;;
' C) C; g4 V% `: K+ m( A7 O5 Y) s
(setq enname (cdr(assoc 1 ss_data))) ;;取得ss_data文字内容
2 J! X. C# g! G2 Q+ B
(setq enname (atof enname))
3 l3 J( Q" B% Y/ Q: i: [+ f
(if (> enname ennamei)5 B3 c. P: M9 A/ |: x: B ~+ j
(setq ennamei enname): @* h( r% ]; W! n2 m
()$ u( I: n' W& `) P0 w- W
);;结束if
7 J8 d4 [% u, |. G! q s9 p
(setq i (- i 1))
( M5 I' e$ R- m$ O, i1 P
);;repeat7 m D: w& q4 f C, t% E
(setq i (- (sslength ss) 1))2 j. \) O ]/ ~3 p8 N |
(setq ss1 (ssname ss i))1 M( v x6 X8 i9 `# q
(repeat (sslength ss)
5 E' ]* k: L% V4 V) z
(setq ss1 (ssname ss i))
. I: f) c$ Q$ t' r# L
(setq ss_data (entget ss1)) ;;: \* Q/ z. L1 v/ N" Y" L
(setq enname (cdr(assoc 1 ss_data))) ;;取得ss_data文字内容
( i- G4 d% N3 i9 [7 k$ _
(setq enname (atof enname)): H/ K. R1 I0 H" w4 n1 {9 ?0 s L
(if (= enname ennamei)
( e: _; Y* W) `
(command "change" ss1 "" "P" "LA" "tigerspace_max" "c" "1" "" )
& c, e' X: c5 [8 C
()
* S9 S. F5 s9 p) d3 ~. H, O8 {
);;结束if
" U) x' i9 K" {$ @* A0 _
(setq i (- i 1))
, v' f/ `: ?3 f* Q6 n5 E
);;repeat3 t# h* r, h \" F1 H9 m* _- y/ |% ]
$ A2 o; S8 ?% G+ b' B! V \* ~+ p' S
(princ)5 ~2 h4 j/ R5 i7 C' @
);;;;结束defun
) \* f$ F9 `* D7 k+ [( \' w8 T- ~
(prompt"\n 命令：ssh_max" )) m8 c H0 n9 R0 a
(prin1)4 ~+ \- k3 Q- ~- l+ A6 L f: d

复制代码

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

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

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

全站		goto3d 说: 此次SW竞赛获奖名单公布如下，抱歉晚了，版主最近太忙：一等奖：塔山817；二等奖：a9041、飞鱼；三等奖：wx_dfA5IKla、xwj960414、bzlgl、hklecon；请以上各位和版主联系，领取奖金！！！	2022-03-11
全站		goto3d 说: 在线网校新上线表哥同事（Mastercam2022）+虞为民版大（inventor2022）的最新课程，来围观吧！	2021-06-26

通知

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

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

评分