那位大虾帮偶编个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 a3 H2 O- U2 `# u2 ^% [
求最大值的程序，只是随便的叠在一起的同一图层许多数，在同位置得出最大值后新建一图层表示，最好能同时框选许多堆叠在一起的，请高人帮小弟，急得都吃不下饭啦。 :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
* z7 k% z8 F( ^! C- `! s" z２楼能否公布一下源码让我等学习学习．

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

(defun c:ssh_max( / D1 ss1 ss_data enname TM )
1 R; d0 a9 A" W& K) V
(setq ss (ssget '((0 . "TEXT" ))), L' z) A, }* x, U6 C% L
n 0
+ X6 G, `& h0 y/ D) Y; R
) ;_ 结束setq
7 ]/ {7 m: W8 q2 q" m6 u5 o( S0 d
(setq i (- (sslength ss) 1))+ ] R% v( r: t4 B6 ?
(setq ss1 (ssname ss i)) H4 A' q8 _ {4 x$ g
(setq ss_data (entget ss1)) ;;取得SS1的码组带入ss_data0 W/ x& @! d1 L1 r2 R7 @" i- y6 ^
(setq ennamei (cdr(assoc 1 ss_data))) ;;取得ss_data文字内容2 F# V$ m2 C$ J
(setq ennamei (atof ennamei))
$ A6 Y$ m% Z! g& o, T4 d
(setq ssn ss1)
4 ]: q6 J5 J4 u8 B
(command "layer" "M" "tigerspace_max" "" )0 s( q4 q' @" m8 f& T, {+ q* e
(repeat (sslength ss)1 x7 O" h# A9 x
(setq ss1 (ssname ss i)) " j/ D' P) H: I+ h4 Q) O# y
(setq ss_data (entget ss1)) ;;8 j& T4 f' }6 L0 Q7 g& G$ e. n X
(setq enname (cdr(assoc 1 ss_data))) ;;取得ss_data文字内容+ F7 W. }4 V c- d, \
(setq enname (atof enname))
. R% ]* [1 c5 i5 U1 q
(if (> enname ennamei)
' G* T- ]0 z; |2 w4 V5 F3 ~% }# P
(setq ennamei enname)9 d3 @" ?0 m3 Q
()
6 p( Z" \4 q! N, T
);;结束if. Y7 s+ A" h* K/ y! G$ H
(setq i (- i 1))
4 n4 d% D7 ^% Q# K( H2 e5 D
);;repeat
! L2 Q5 W$ F r, q# N% O
(setq i (- (sslength ss) 1))
- O+ T, z$ A, O
(setq ss1 (ssname ss i))
. g* W0 M: e5 O2 m4 a
(repeat (sslength ss)* t' P+ D, f# Y+ B, S
(setq ss1 (ssname ss i))
3 v/ H% N" \$ Z8 N- I* T! Y( K
(setq ss_data (entget ss1)) ;;- ~1 l5 r9 f1 r, `9 \- k, @
(setq enname (cdr(assoc 1 ss_data))) ;;取得ss_data文字内容, J( F" Z; q% \+ H8 R$ _
(setq enname (atof enname))% t: O, y* O% }5 p+ R
(if (= enname ennamei)
! V9 f2 N* b1 ~1 d! Z
(command "change" ss1 "" "P" "LA" "tigerspace_max" "c" "1" "" ) f- k# A0 f$ G; _. o
()9 E* @$ u5 @3 M0 O" J+ o- t8 ]
);;结束if, O! R7 ^5 Z- r8 ~) Z) y) |
(setq i (- i 1))3 z8 i' W3 C* a% q4 o
);;repeat
# S: d& m$ {' H: {& O
8 k' q/ V% e9 b9 s* C% S
(princ)
% m0 _1 j* A& C$ O% v- }8 Z
);;;;结束defun; R+ _/ e9 _5 }
(prompt"\n 命令：ssh_max" )
5 y7 J) d) r0 N/ K" v, n
(prin1)
/ d0 C8 y( a% _0 Q

复制代码

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

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

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

全站		goto3d 说: 此次SW竞赛获奖名单公布如下，抱歉晚了，版主最近太忙：一等奖：塔山817；二等奖：a9041、飞鱼；三等奖：wx_dfA5IKla、xwj960414、bzlgl、hklecon；请以上各位和版主联系，领取奖金！！！	2022-03-11
系统		[系统通知] 平台第一个项目外包——项目拼多；正式上线，欢迎各单位个人有外包、设计、采购、加工需求的，在此寻找更牛的解决方案	2021-07-01

通知

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

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

评分