那位大大帮忙解释下面的意思

yushulang

1. defunsort(lxy);
   
2. (setq nxy (length lxy))；
   2 j0 C" L- V: ~8 _4 Z
3. (setqxy_min (apply 'min lxy))
   
4. (setq xy_max (apply 'max lxy))
   - x/ K1 j2 i3 o: A: Z5 ?& s5 [0 E# `) L
5. (setq max_xy (+ xy_max 10))
   6 e) ?4 T2 `9 N
6. (setq lxy_n (list xy_min))
   
7. (setq lxy (subst max_xy xy_min lxy))
   1 {8 V& q9 O& a) X7 Q% ?
8. (setq i 0)
   
9. (while (< i (- nxy 1))
   
10. (setq xy_min (apply 'min lxy))
    
11. (setq lxy (subst max_xy xy_min lxy))
    
12. (setq lxy_n (cons xy_min lxy_n))
    $ R1 t* F% y1 S. f
13. (if (= xy_min xy_max) (setq i nxy))
    
14. (setq i (+ i 1))
    9 b$ Z) ]  s4 G) D/ {( Q
15. )
    9 C& W# Q( P- C1 ]+ T% t3 E
16. (setq lxy lxy_n)
    ! l7 J' q8 A2 B/ {6 @# _+ |7 W& @
17. )

复制代码

woaishuijia

1# yushulang

1. (defun sort (lxy)   ;这是一个用于列表元素按数值从大到小排序的自定义函数
   
2.   (setq nxy (length lxy))  ;得到列表元素数目
   
3.   (setq xy_min (apply 'min lxy)) ;得到列表元素中的最小值
   
4.   (setq xy_max (apply 'max lxy)) ;得到列表元素中的最大值
   " t, z# ^) A; F! p8 n9 y- L
5.   (setq max_xy (+ xy_max 10))  ;最大值加10备用
   2 X- g1 m& B3 E( m5 c  o7 l
6.   (setq lxy_n (list xy_min))  ;用最小值做唯一元素生成一个新的列表
   2 t. ?/ V7 W% T$ u
7.   (setq lxy (subst max_xy xy_min lxy)) ;用最大值加10的结果替换原列表中的最小值
   
8.   (setq i 0)    ;设置循环变量为0
   
9.   (while (< i (- nxy 1))  ;循环,原列表中的元素数目做为循环次数
   6 u: U7 L. g8 X% c/ X; ^
10.     (setq xy_min (apply 'min lxy)) ;得到原列表中当前的最小值
    ) a& v( m/ h1 P& s5 P
11.     (setq lxy (subst max_xy xy_min lxy));用最大值加10的结果替换原列表中当前的最小值
    
12.     (setq lxy_n (cons xy_min lxy_n)) ;把前面得到的原列表中当前最小值添加到新列表中做为首个元素
    % _( o; I; V1 F
13.     (if (= xy_min xy_max)
    
14.       (setq i nxy)
    " }% N6 K5 `2 q4 T- R/ Z$ E8 W6 q
15.     )     ;如果前面得到的原列表中当前最小值与其最大值相同则提前结束循环
    " L" r# b# [+ ]: u9 b) F
16.     (setq i (+ i 1))   ;循环变量加1
    8 p" o( y0 X: I
17.   )
    
18.   (setq lxy lxy_n)   ;新列表做为返回值
    3 P: V. \! N* s5 P$ a
19. )

复制代码

yushulang

谢谢老师的指点

yushulang

- _" _/ u( _* S) S, X

1. (defunchange_bom()
   
2. (setq jd 0.1)
   
3. (setq tab "\t" )
   
4. (setq ntxt 0 nlv 0 nlh 0)
   ! Y! V4 l1 h, L/ c; o8 X+ E# k. K
5. (setq lx () ly ())
   , ^0 a% P; W- d$ h$ C
6. (setq txt_ent (ssadd))
   - s, l/ H0 H/ x  T' D
7. (setq n 0);
   
8. (repeat nlm;
   , c2 F/ W( k3 o% m5 B: U7 e
9. (setq ent (ssname slm n));
   
10. (setq et (entget ent));
    2 V9 W6 m, w5 b  [
11. (setq name (cdr (assoc 0 et)))
    
12. (if (or (= "TEXT" name) (="MTEXT" name));
    
13. (progn
    
14. (setq txt_ent (ssadd ent txt_ent))
    
15. (setq ntxt (+ ntxt 1))
    
16. )
    / H& W! \% l+ \
17. )
    
18. (if (= "LINE" name);
    
19. (progn
    ! n: K" F; F* X  G, |+ z
20. (setq x1 (nth 1 (assoc 10 et)))
    ' ]. o5 e9 U% N* G
21. (setq x2 (nth 1 (assoc 11 et)))
    ( }* z+ R7 L4 g* E1 v, F
22. (setq y1 (nth 2 (assoc 10 et)))
    
23. (setq y2 (nth 2 (assoc 11 et)))
    
24. (setq lxc (fix (/ (+ x1 x2) 2)))
    
25. (setq lyc (fix (/ (+ y1 y2) 2)))
    % T- X& u0 Q4 j. a- o3 H  C& f# `9 p4 G
26. (if (< (abs (- x1 x2)) jd)
    
27. (setq lx (cons lxc lx))
    : |& L  T- s, o  M6 i
28. )
    
29. (if (< (abs (- y1 y2)) jd)
    ) W' ?8 G, a! U% }* T! m$ n3 ?
30. (setq ly (cons lyc ly))
    
31. )
    
32. )
    4 \4 i8 E2 k! W
33. )
    
34. (setq n (+ n 1))
    
35. )
    
36. (setq lx (sort lx));
    ; U6 R+ \4 }, K9 O' N, g
37. (setq ly (sort ly));
    
38. (setq lx (reverse lx))
    
39. (if (= m 1) (setq ly (reverse ly)))
    
40. (setq nlv (length lx))
    
41. (setq nlh (length ly))
    
42. (setq i 0)
    5 b* n- o% \9 r, X- d; N
43. (while (< i (- nlh 1))
    6 d( S1 D3 z/ e; }
44. (setq str "" )
    
45. (setq j 0)
    ! K3 E# s+ Z4 n; Z/ }& r5 q
46. (while (< j (- nlv 1))
    " `: l% C, ?/ Z
47. (setq n 0)
    $ S( S: z+ `1 B. R9 l( Y# R
48. (while (< n ntxt)
    ! m, `9 j- j; j& C; m4 p6 U& o8 r
49. (setq ent (ssname txt_ent n))
    
50. (setq et (entget ent))
    
51. (setq tx (nth 1 (assoc 10 et)))
    : Z$ e4 J6 j( q8 n
52. (setq ty (nth 2 (assoc 10 et)))
    4 }2 [+ f+ v7 W4 K# h
53. (if (= m 1)
    9 Z5 p% Y, s' C% H
54. (setq tj (and (> ty (nth i ly)) (<ty (nth (+ i 1) ly))))
    
55. (setq tj (and (< ty (nth i ly))(> ty (nth (+ i 1) ly))))
    , S/ [1 l0 \  E$ Z+ z; h3 }. e, h/ d
56. )
    
57. (if (and (> (+ tx 1) (nth j lx))(< (+ tx 1) (nth (+ j 1) lx)) tj)
    9 x' u% [* ]& j  g3 |  i$ U
58. (progn
    
59. (setq txt_ent (ssdel ent txt_ent))
    
60. (setq ntxt (- ntxt 1))
    2 Z2 j$ [9 W7 y2 `
61. (setq n ntxt)
    ' L4 P9 r" C( |5 W  N, W
62. (setq stc (cdr (assoc 1 et)))
    
63. (setq len (strlen stc))
    
64. (if (> len 2) (setq stc(eliminate stc len)))
    + E, v: G7 C* `) s% f( g4 ~; H
65. )
    
66. )
    ' Z9 Y  G2 Y& d2 {  q1 }* Z5 S' r
67. (setq n (+ n 1))
      k1 o5 x4 A8 F$ z0 w) O2 M
68. )
    ; Y3 Q' ~1 F  `5 z$ [+ j. X0 n
69. (if (= n ntxt) (setq stc "" ))
    
70. (setq str (strcat str stc))
    * V& A8 K1 j% a! _' a. {
71. (if (/= j (- nlv 2)) (setq str (strcat strtab)))
    
72. (setq j (+ j 1))
    
73. )
    
74. (write-line str fp)
    
75. (setq i (+ i 1))
    ( {+ K" f  q  `
76. )
    $ a! z) @# C& I+ E
77. )
    - d" v" ^# T) T$ p% B

复制代码

woaishuijia

0 d4 h: m. }! w+ W; H4 ?8 {& s
* |* j3 b" _9 ?% A+ u- j" n6 q4# yushulang

1. (defun change_bom ()   ;这是一个把bom表输出到文本文件的自定义函数
   + G% h$ q! Z9 Q! y+ V, G
2.   (setq jd 0.1)    ;初始化变量
   
3.   (setq tab "\t" )
   2 }2 H0 f) Y5 J8 x) Z( A) L2 ]- o
4.   (setq ntxt 0
   
5. nlv 0
   & S2 n0 k  |0 f4 Y( M
6. nlh 0
   
7.   )
   , X: @& v" y. O4 W$ e& l
8.   (setq lx ()
   
9. ly ()
   
10.   )
    3 a/ Z6 C9 y5 D. [
11.   (setq txt_ent (ssadd))  ;创建一个新的空选择集
    0 Q9 b4 O. F9 W: R! D. m& P+ s% h
12.   (setq n 0)    ;
    ; @, K. W* i! {# f5 ^
13.   (repeat nlm    ;遍历选择集"slm".变量nlm应为选择集slm的元素数量
    7 D4 J# w$ P% k- o: O
14.     (setq ent (ssname slm n))  ;图元
    9 O9 M0 y& v, A$ q: b4 n
15.     (setq et (entget ent))  ;属性列表
    5 S  v2 l/ K: H
16.     (setq name (cdr (assoc 0 et))) ;图元种类
    ( f7 L8 S3 {: x
17.     (if (or (= "TEXT" name) (= "MTEXT" name))
    
18.      ;如果图元种类为文字或多行文字对象
    4 k/ e4 ]8 W! q3 X, S# `& {
19.       (progn
    # ~; A8 Q, A7 ?) \. q
20. (setq txt_ent (ssadd ent txt_ent)) ;将该图元添加到新选择集
    % c# ?4 h# A- `' I4 V2 q
21. (setq ntxt (+ ntxt 1))  ;记录新选择集的元素数量
    # m$ {, P, X  q6 G
22.       )
    % D1 Y/ Z% A  O: m; P( W4 ?
23.     )
    
24.     (if (= "LINE" name)   ;如果图元种类为直线对象
    
25.       (progn
    & f  v1 y, L* d
26. (setq x1 (nth 1 (assoc 10 et))) ;获取该直线的起端点坐标
    
27. (setq x2 (nth 1 (assoc 11 et)))
      E% {* F/ I7 |+ ]6 e
28. (setq y1 (nth 2 (assoc 10 et)))
    $ M& j, H8 ?. U& f2 h
29. (setq y2 (nth 2 (assoc 11 et)))
    
30. (setq lxc (fix (/ (+ x1 x2) 2)));计算该直线中点X坐标并去除其小数部分
    
31. (setq lyc (fix (/ (+ y1 y2) 2)));计算该直线中点Y坐标并去除其小数部分
    
32. (if (< (abs (- x1 x2)) jd) ;如果该直线长度的水平分量小于0.1(jd,前面初始化为0.1的变量),可以理解为接近于0,该直线为垂直直线
    
33.    (setq lx (cons lxc lx)) ;将该直线中点X坐标添加到表"lx"的头部
    ' M# O% |+ e& b
34. )
      F' @+ a. I" q: Y$ O8 i7 W
35. (if (< (abs (- y1 y2)) jd) ;如果该直线长度的垂直分量小于0.1(jd,前面初始化为0.1的变量),可以理解为接近于0,该直线为水平直线
    ; j; c7 O2 |' i) {  y, z
36.    (setq ly (cons lyc ly)) ;将该直线中点Y坐标添加到表"ly"的头部
    : [0 v6 Y5 x* _1 i" O
37. )
    
38.       )
    
39.     )
    
40.     (setq n (+ n 1))   ;变量递增,检查选择集"slm"中的下一个图元
    / u$ v9 c, x0 [/ q' G9 I
41.   )
    
42.   (setq lx (sort lx))   ;调用本主题帖一楼自定义函数"shot"为表"lx"从大到小排序.注意:一楼代码中有错误,复制代码请到二楼
    
43.   (setq ly (sort ly))   ;调用自定义函数"shot"为表"ly"从大到小排序
    3 U+ H7 S# x7 A5 X4 I! T2 _4 C
44.   (setq lx (reverse lx))  ;表元素顺序倒置(改为从小到大排列)
    
45.   (if (= m 1)    ;当m=1时,表ly从小到大排列,否则从大到小排列.m貌似一个设置在文本文件中输出bom表顺序的全局变量
    
46.     (setq ly (reverse ly))  ;表元素顺序倒置
    ) S) D, g1 W/ G! b* O+ f$ K
47.   )
    
48.   (setq nlv (length lx))  ;垂直直线数量
    
49.   (setq nlh (length ly))  ;水平直线数量
    $ Q! L6 v* K" ]9 y9 J. }
50.   (setq i 0)    ;初始化第一层循环变量
    
51.   (while (< i (- nlh 1))  ;在第一层循环中遍历水平直线
      k" Z0 x2 t) V: P1 X5 i
52.     (setq str "" )   ;清空字符串变量
    
53.     (setq j 0)    ;初始化第二层循环变量
    
54.     (while (< j (- nlv 1))  ;在第二层循环中遍历垂直直线
    
55.       (setq n 0)   ;初始化第三层循环变量
    
56.       (while (< n ntxt)   ;在第三层循环中遍历新选择集
    ; ?' ^+ u0 E0 a, d" r
57. (setq ent (ssname txt_ent n)) ;图元
    
58. (setq et (entget ent))  ;属性列表
    
59. (setq tx (nth 1 (assoc 10 et))) ;X坐标
    ) w# p0 M/ H4 W2 [6 }
60. (setq ty (nth 2 (assoc 10 et))) ;Y坐标
    5 ^# L: x- Y3 }( P% |$ T
61. (if (= m 1)   ;检查文字对象Y坐标是否处于第i和i+1条水平直线之间
    % U4 p( q2 f  o' h
62.    (setq tj (and (> ty (nth i ly)) (< ty (nth (+ i 1) ly))))
    " R' y" e4 p0 f' ?4 U) w
63.    (setq tj (and (< ty (nth i ly)) (> ty (nth (+ i 1) ly))))
    
64. )
    
65. (if (and (> (+ tx 1) (nth j lx));如果文字对象X坐标处于第j和j+1条垂直直线之间且Y坐标处于第i和i+1条水平直线之间
    2 s8 Q: w7 a  N3 R7 h; C) e, W7 K8 K
66.    (< (+ tx 1) (nth (+ j 1) lx))
    9 x9 V2 {4 O1 l+ X( S9 p
67.    tj
    0 G; `+ g, {# x9 N' M
68.      )
    ' o/ D2 {* Y. Y7 E* E
69.    (progn
    
70.      (setq txt_ent (ssdel ent txt_ent))
    
71.      ;从新选择集中撤除该文字对象
    ' k: ?  x. g' W! _9 _& U$ ]
72.      (setq ntxt (- ntxt 1)) ;元素数量减1
    
73.      (setq n ntxt)  ;结束本层循环
    1 b: P7 d% g' U, r( z
74.      (setq stc (cdr (assoc 1 et))) ;文字内容
    
75.      (setq len (strlen stc)) ;文字长度
    
76.      (if (> len 2)  ;当文字长度大于2时
    
77.        (setq stc (eliminate stc len))
    
78.      ;eliminate,自定义函数,没有代码,不敢肯定干什么去了,不过从字面和程序用途猜测,应该是去除多行文字中可能存在的格式符
    $ ?: [- j* o* Q$ L" o6 C$ L
79.      )
    7 N8 J/ P. e& H1 n% Y+ ]* P* F( ?6 L
80.    )
    & x) e$ K9 p! [9 o& Q
81. )
    
82. (setq n (+ n 1))  ;循环变量递加
    
83.       )
    8 ^& r: w4 `0 r& O! z! C- p. @1 ^
84.       (if (= n ntxt)   ;没找到X坐标处于第j和j+1条垂直直线之间且Y坐标处于第i和i+1条水平直线之间的文字
    . F, v. [# v2 w3 t% {) @
85. (setq stc ""   ;文字内容为空
    
86.       )
    5 K% m- v2 n  |9 d- _
87.       (setq str (strcat str stc)) ;拼接字符串
    - g8 m& T. l7 ?# z" Q
88.       (if (/= j (- nlv 2))  ;如果不是倒数第二条垂直直线(对应本行最后一个文字对象)
    8 T/ U$ L3 e' ?' c) O+ R$ @
89. (setq str (strcat str tab)) ;在字符串后面连接一个"\t"(tab,前面初始化为"\t"的变量)
    2 Q& b& `6 }. k" q9 J& B  d9 r
90.       )
    
91.       (setq j (+ j 1))   ;循环变量递加
    
92.     )
    5 l' C7 j$ ]9 S: G- i0 P( E& R
93.     (write-line str fp)   ;在fp文本文件中写入字符串.该文件应该已经在调用本自定义函数的主程序中打开
    / c5 B9 G9 G$ \$ w& H
94.     (setq i (+ i 1))   ;循环变量递加
    
95.   )
    
96. )

复制代码

yushulang

5# woaishuijia

谢谢斑竹的大力支持，现在正在学习autolisp，有许多问题要向斑竹请教，希望斑竹大力支持，谢谢，

yushulang

- x$ Z  H- p/ E
+ Q8 E/ g7 T1 X* i, Q2 O

1. (defun eliminate(strc stle)
   
2. (if (> stle 7)
   / @2 z4 |0 j- Q1 |
3. (progn
   3 K2 W2 L/ E* y
4. (setq strc (fdelete strc"\U+03C6" ))
   
5. (setq strc (fdelete strc"\U+00D7" ))
   & i! h  [4 Q% z# F; W7 `' i. s
6. )
   " A* i; B2 ?3 J+ W! l1 {
7. )
   / d  x7 F+ ~5 @) P1 D1 {' D0 F6 j
8. (if (> stle 2)
   0 I& D; O$ U. t8 l2 _. z0 ~
9. (progn
   
10. (setq strc (fdelete strc \\P))
    
11. (setq strc (fdelete strc "\t" ))
    
12. (setq strc (fdelete strc "{" ))
    3 }; ]+ ?* R2 W; S/ N# J% ], W9 `
13. (setq strc (fdelete strc "}" ))
    
14. )
    ( K" X1 i2 j- r3 D3 y
15. );
    
16. (setq is 1)
    
17. (while (< is stle)
    ( j( a  C% M/ t6 i1 `
18. (if (= (substr strc is 1) "\" )
    
19. (progn
    % J" }1 X  ~3 ]' X( X
20. (setq js (+ is 1))
    
21. (while (<= js stle)
    ' \6 j4 Z* e1 H- \% q
22. (if (= (substr strc js 1)";" )
    * r0 N' }/ I7 f6 U$ ~* q" p
23. (progn
    $ e( M7 N6 B2 g  ]
24. (setq strq (substr strc 1 (- is1)))
    
25. (setq stre (substr strc (+ js 1)))
    % d1 A4 i( k' n
26. (setq strc (strcat strq stre))
    
27. (setq stle (strlen strc))
    
28. (setq js stle)
    
29. (setq is (- is 1))
    
30. )
    + T; x+ |: ~0 Q
31. )
    % u; o  J/ ]8 A. g8 k7 H0 b
32. (setq js (+ js 1))
    
33. )
    
34. )
    
35. )
    
36. (setq is (+ is 1))
    
37. )
    
38. (setq strc strc)
    
39. )

复制代码

1. (defun fdelete(str1 str2)
   ! I& u# _+ P+ U3 N" l( {
2. (setq len1 (strlen str1))
   
3. (setq len2 (strlen str2))
   5 Z* O3 X) x# k5 E2 D
4. (if (>= len1 len2)
   
5. (progn
   
6. (setq k 1)
   
7. (while (< k (+ (- len1 len2) 2))
   + j' `5 V5 _* \7 K; c+ V
8. (setq strk (substr str1 k len2))
   
9. (if (= strk str2)
   
10. (progn
    $ C1 W1 M& J# k) I
11. (setq strq (substr str1 1 (- k 1)))
      J8 N3 d$ E- @8 o; n
12. (setq stre (substr str1 (+ k len2)))
    4 [! I7 w& J4 t. ^
13. (if (= str2 "\U+03C6" )
    " D' J: K6 K" O: D" Q9 _" X
14. (progn
    
15. (setq str1 (strcat strq"φ" stre))
    
16. (setq len1 (- len1 6))
    
17. )
    2 ~- d" h8 \& C8 Z: l+ ]2 m2 d7 S
18. )
    
19. (if (= str2 "\U+00D7" )
    : f& U  M7 C- ^# D/ p
20. (progn
    
21. (setq str1 (strcat strq"×" stre))
    
22. (setq len1 (- len1 6))
    5 F5 U* L0 K$ y2 [& {9 E: r
23. )
    
24. )
    * {3 \% {' j8 c- w- G/ \8 M
25. (if (= str2 \\P)
    7 U+ ~2 _6 ]) B8 c% T
26. (progn
    
27. (setq str1 (strcat strq stre))
    
28. (setq len1 (- len1 2))
    
29. )
    8 v! X/ \/ T: a* X7 {3 x8 x. n
30. )
    
31. (if (= str2 "\t" )
    7 j; w5 V7 M' t- v
32. (progn
    . _# k1 u2 w9 T, o! d
33. (setq str1 (strcat strq stre))
    
34. (setq len1 (- len1 2))
    & r7 e; V. i# }6 {
35. )
    
36. )
    , t: P. W! D% s$ R* B7 H% }) X
37. (if (or (= str2 "{" ) (=str2 "}" ))
    
38. (progn
    " Y) O& y6 J" q2 N  P' Y4 y: E/ r
39. (setq str1 (strcat strq stre))
    6 V" y0 p- u4 O) }+ [2 {
40. (setq len1 (- len1 1))
    5 o- t2 Q- R8 K* ^
41. )
      d2 g1 e- S: y& S/ k
42. )
    
43. )
    
44. )
    
45. (setq k (+ k 1))
    0 m2 b. d/ a; b) H( l1 M
46. )
    
47. )
    / l7 Q$ S! N# l: w" E" q  g
48. )
    
49. (setq stle len1)
    
50. (setq str1 str1)
    " ]( z2 v' V4 Y( }$ x
51. )

复制代码

www1974

搂住是要学习还是要抄袭？这样有意思吗？如果不会用编辑器调试，就一句句复制到CAD命令行后回车就知道运行结果了，也就知道含义了！

flowerinrr

这枚小弟弟 这可耐 呵呵