lisp语言求助~~~

dreamMore10

(defun c:ccd(/ v1 v2 p p1 ang m h1)

  (setq v1(getvar "osmode"))

  (setq v2(getvar "cmdecho"))

  (setq v3(getvar "blipmode"))

  (setvar "osmode" 512)

  (setvar "cmdecho" 0)

  (setvar "blipmode" 0)

  (setq p(getpoint"\n插入点："))

  (setq ang(getangle p"\n旋转角<0>："))

    (if (not ang)(setq ang (/ pi 2)));默认旋转角0°

  (setq h(getreal"\n粗糙度字高（即粗糙度符号大小）<3.5>："))

    (if (not h) (setq h 3.5));默认字高3.5

  (setq h1(/ (* 2.8 h) (sqrt 3)))

  (setq m(getstring"\n是否为加工表面（y/n）："))

  (command "layer" "M" "细实线" "");使用“细实线”图层

  (cond ((or(= m "y") (= m "Y"))

                 (setq cc(getstring"\n粗糙度值<3.2>："))(if (= (strlen cc) 0)(setq cc "3.2"));设置粗糙度默认值3.2

                 (command "line" (polar p (- ang (/ pi 6)) h1)

                                 (polar p (+ ang (/ pi 6)) h1)

                                 p

                                 (polar p (- ang (/ pi 6)) (* 2 h1))

                                 "")

                (command "text" "m" (polar p  ang (+(* 1.9 h) 1)) h (- ang (/ pi 2)) cc)

         )

        ((or(= m "n") (= m "N")) (command "line" (polar p (+ ang (/ pi 6)) h1)

                                                  p

                                                 (polar p (- ang (/ pi 6)) (* 2 h1))

                                                 "")

                                 (command "circle" (polar p ang (/ (* 2.8 h)3)) (/ (* 1.4 h)3)))

         (t (alert"\n请输入y或n")(princ))

   );end cond

  (setvar "osmode" v1)

  (setvar "cmdecho" v2)

  (setvar "blipmode" v3)

  (princ)

);end

, k" {* K( c" [; T; S) M6 K为什么运行出来的文字不旋转？

  i5 P3 u; Y; k! |/ g9 P+ Vps：在循环语句中碰到其他值时怎么样让循环不终止，而是在警告之后继续执行，如下：
0 |# Z1 ]$ I  {0 `! Q

(cond((or(= w "y")(= w "Y"))

        (setq ll(getdist p1"\n引线长度："));引线

        (command "layer" "M" "细实线" "");箭头引线细实线

        (command "line" p1 (polar p1 an ll) ""))

       ((or(= w "n")(= w "N")) (princ))

       (t (alert"\n请输入y或n") )

  )

% n7 J! i6 c% K# P9 }5 _* Z

dreamMore10

文字旋转角只能用确切的数值 而不是变量吗

woaishuijia

& }! U+ c. ^# t* i

dreamMore10 发表于 2013-2-1 21:08 http://www.3dportal.cn/discuz/static/image/common/back.gif
% b) P0 T' L, l文字旋转角只能用确切的数值 而不是变量吗

9 D: V* U6 |  e7 ?
* T5 A4 Y3 \4 f文字其实已经旋转了(如果你选中文字,打开"特性"管理器就可以看到文字的"旋转"并不为 0 ),只不过你在代码中给出的角度单位是弧度,而你CAD的角度单位却不是弧度(默认是十进制角度),需要在代码中换算一下,或者修改"AUNITS"系统变量为 3 (角度单位改为弧度)
- j" y" y5 G0 n& e"cond"函数不是循环,而是多条件、多处理结果函数,执行完判别式为真的代码后一定会跳出.当然你可以在它外面套一个"while"函数,在"cond"函数的不符合条件代码组中加一个标识性的变量赋值语句,跳出后由"while"函数检查该变量是否被赋值,如果"cond"执行的代码不是理想中的就重新来过.例如

1. (defun c:ccd (/ v1 v2 v3 p p1 ang m h1 b)
   $ ?6 z/ t, o! H) q: \' c
2.   (setq v1 (getvar "osmode"))
   $ L+ a: \' T1 w  R# ]* k
3.   (setq v2 (getvar "cmdecho"))
   
4.   (setq v3 (getvar "blipmode"))
   
5.   (setvar "osmode" 512)
   ) }# s  ]) F4 w
6.   (setvar "cmdecho" 0)
     h- d- K* N; L8 G; |8 ?
7.   (setvar "blipmode" 0)
   9 o. e1 \+ o! \/ T0 u
8.   (setq p (getpoint "\n插入点："))
   
9.   (setq ang (getangle p "\n旋转角<0>："))
   
10. 
    $ j/ w) ^8 ^/ U, @  D
11.   (if (not ang)
    " f) r+ T" ]% O" k$ h/ a1 J
12.     (setq ang (/ pi 2))
    
13.   )                                        ;默认旋转角0°
    4 F0 }. Y7 v" ^3 P# O/ c3 {* @  y
14.   (setq h (getreal "\n粗糙度字高（即粗糙度符号大小）<3.5>："))
    1 V6 Z) \8 Q7 Z/ G5 O
15.   (if (not h)
    ( ~: v, ~: U& }- p9 l3 G0 [
16.     (setq h 3.5)
    ( `) {- `: T0 a& x; C$ t
17.   )                                        ;默认字高3.5
    
18.   (setq h1 (/ (* 2.8 h) (sqrt 3)))
    ' i: E' V) V% H3 U. h% I8 r* d+ L
19.   (command "layer" "M" "细实线" "")        ;使用“细实线”图层
    
20.   (while (not b)
    ) u3 L( ^) ~2 c4 F
21.     (setq b t
    7 W$ k( T) m, l, S5 K* F
22.           m (getstring "\n是否为加工表面（y/n）：")
    
23.     )
    
24.     (cond ((or (= m "y") (= m "Y"))
    ' Y& S6 |  t' ?, q
25.            (setq cc (getstring "\n粗糙度值<3.2>："))
    % k0 c9 i* _  i- s  d  R: E
26.            (if (= (strlen cc) 0)
    : I; O! I2 k, a3 S
27.              (setq cc "3.2")
    
28.            )                                ;设置粗糙度默认值3.2
    
29.            (command "line"
    
30.                     (polar p (- ang (/ pi 6)) h1)
    # Y0 k3 O+ w# b2 u& R8 m  _
31.                     (polar p (+ ang (/ pi 6)) h1)
    - Q: f/ w+ u. Q
32.                     p
    : {: s+ `2 A* N) G! D4 b# i
33.                     (polar p (- ang (/ pi 6)) (* 2 h1))
    
34.                     ""
    9 _' q* m$ B8 p' J# p
35.            )
    4 n: Z& h; h. O3 _1 _
36.            (command "text"
    7 ?* ]- F: v3 A8 [0 E
37.                     "m"
    
38.                     (polar p ang (+ (* 1.9 h) 1))
    
39.                     h
    
40.                     (* (/ (- ang (/ pi 2)) pi) 180.0)
    
41.                     cc
    
42.            )
    8 j& @# a# c8 H, A
43.           )
    % B/ `& T/ B' R5 P7 H3 n# e
44.           ((or (= m "n") (= m "N"))
    / P) w6 S: ?+ i8 E7 F
45.            (command "line"
    ( _9 [' Q$ W" D: l  y) r
46.                     (polar p (+ ang (/ pi 6)) h1)
    
47.                     p
    
48.                     (polar p (- ang (/ pi 6)) (* 2 h1))
    ; q( O5 R- T- d: X
49.                     ""
    & @3 u: d! y9 Y1 g" X! v6 |- ^/ e8 B
50.            )
    
51.            (command "circle"
    + R" W- M4 M% d( e! \4 z
52.                     (polar p ang (/ (* 2.8 h) 3))
    
53.                     (/ (* 1.4 h) 3)
    7 e7 s5 x6 z0 x) a* J+ g9 @
54.            )
    ' v; _& _9 |! o3 C3 h
55.           )
    
56.           (t (alert "\n请输入y或n") (setq b nil) (princ))
    / i+ G/ s' V; f
57.     )                                        ;end cond
    
58.   )                                        ;end while
    + u! Z+ d* e" n0 m/ _6 j
59.   (setvar "osmode" v1)
    
60.   (setvar "cmdecho" v2)
    
61.   (setvar "blipmode" v3)
    / B5 D6 K% H$ R
62.   (princ)
    
63. )                                        ;end

复制代码

事实上,这个代码中使用"getstring"函数获取用户输入的"y/n"是不合理的,应该先用"initget"函数定义关键字,再用"getkword"函数接收用户输入的关键字,当用户输入的不是用"initget"定义的关键字时,会自动提示用户并重新来过.
用initget定义的关键字,可以用下列等待用户输入的函数接收:getint、getreal、getdist、getangle、getorient、getpoint、getcorner、getkword、entsel、nentsel 和 nentselp,唯独不能用getstring

1. (defun c:ccd (/ v1 v2 v3 p p1 ang m h1)
   ! V, w+ w* h$ I/ R/ t
2.   (setq v1 (getvar "osmode"))
   
3.   (setq v2 (getvar "cmdecho"))
   , P$ v2 _  `6 K5 g
4.   (setq v3 (getvar "blipmode"))
   . F- j$ f) A% s% r" X# S& G3 p8 f
5.   (setvar "osmode" 512)
   5 J! J6 u+ z# V; e
6.   (setvar "cmdecho" 0)
   9 ]1 ?2 Q3 G/ s" j5 u
7.   (setvar "blipmode" 0)
   
8.   (setq p (getpoint "\n插入点："))
   
9.   (setq ang (getangle p "\n旋转角<0>："))
   
10. 
    / P7 w) [# \4 j+ x4 d
11.   (if (not ang)
    
12.     (setq ang (/ pi 2))
    
13.   )                                        ;默认旋转角0°
    
14.   (setq h (getreal "\n粗糙度字高（即粗糙度符号大小）<3.5>："))
    
15.   (if (not h)
    1 x/ h. j) r+ Z0 G/ W
16.     (setq h 3.5)
    4 {$ D4 p% ^) x1 M; a
17.   )                                        ;默认字高3.5
    ' n' e+ E" i4 h. F
18.   (setq h1 (/ (* 2.8 h) (sqrt 3)))
    6 X. v; Y, X& ^
19.   (initget 1 "y n")
    . L2 L. b8 I. o, o
20.   (setq m (getkword "\n是否为加工表面（y/n）："))
    
21.   (command "layer" "M" "细实线" "")        ;使用“细实线”图层
    
22.   (cond        ((= m "y")
    
23.          (setq cc (getstring "\n粗糙度值<3.2>："))
    & s- R/ U- Z3 u) ]8 T! \+ w6 ^
24.          (if (= (strlen cc) 0)
    $ t( |, K" h2 I3 d
25.            (setq cc "3.2")
    
26.          )                                ;设置粗糙度默认值3.2
    . T9 k0 q7 j4 r4 Z) D) K* h
27.          (command "line"
    
28.                   (polar p (- ang (/ pi 6)) h1)
    
29.                   (polar p (+ ang (/ pi 6)) h1)
    & i* T0 t1 l; e) O- ]. Z. F# d
30.                   p
    
31.                   (polar p (- ang (/ pi 6)) (* 2 h1))
    8 R! z; L: e- D$ Q8 r1 U) \
32.                   ""
    7 O3 q+ I. y( D/ C1 w
33.          )
    
34.          (command "text"
    
35.                   "m"
    
36.                   (polar p ang (+ (* 1.9 h) 1))
    0 z6 I" b- M! A4 G
37.                   h
    
38.                   (* (/ (- ang (/ pi 2)) pi) 180.0)
    4 P% Y$ K: \0 c  U8 u1 K
39.                   cc
    6 L0 f; ^; Z: H4 R9 Z
40.          )
    ! ?2 M$ n, H, }7 N& j& m0 U1 w
41.         )
    
42.         ((= m "n")
    , ]' R. _& V( t; ^% W- M. W6 K+ |
43.          (command "line"
    ' }* m& r0 M2 G( y( I3 l: b
44.                   (polar p (+ ang (/ pi 6)) h1)
    6 }5 c3 H" j* R: n  _( r
45.                   p
    
46.                   (polar p (- ang (/ pi 6)) (* 2 h1))
    ; G! `8 b' t, Z+ M; k( N
47.                   ""
    9 L! Q& p8 M% @; j% X; t
48.          )
    
49.          (command "circle"
    ) S( A, h' E2 b- X9 p
50.                   (polar p ang (/ (* 2.8 h) 3))
    
51.                   (/ (* 1.4 h) 3)
    . ^: C+ _9 ]1 K, i5 C
52.          )
    
53.         )
    
54.   )                                        ;end cond
    ) G+ [1 w; Z- u6 H
55.   (setvar "osmode" v1)
    
56.   (setvar "cmdecho" v2)
    6 d2 b: m: B3 q: Y& V7 A  e
57.   (setvar "blipmode" v3)
    6 ~8 H0 R9 L: ?; L: f% ~, ~0 X
58.   (princ)
    , T! M( ~3 e2 K5 v9 h
59. )                                        ;end

复制代码

dreamMore10

woaishuijia 发表于 2013-2-4 22:56 static/image/common/back.gif
4 Q) }6 K# P3 ~2 Y$ }4 H! \文字其实已经旋转了(如果你选中文字,打开"特性"管理器就可以看到文字的"旋转"并不为 0 ),只不过你在代码 ...

8 l( G5 u2 n5 j1 ~1 @$ P6 s谢谢版主   
关于initget函数，我不是太理解，像getint这样的函数“关键字”怎样设置呢，好多书上对这个函数讲的都不是很清楚，能不能给几个例子看看？再次感谢

woaishuijia

initget 函数用于为 getint、getreal、getdist、getangle、getorient、getpoint、getcorner、getkword、entsel、nentsel 和 nentselp 函数设置用户输入的规则。
4 K- q! s. z5 S. A9 n) d该函数用在上述等待用户输入函数的前面，只对它后面第一个等待用户输入函数有效，且是一次性的。
0 w7 Q" A& D9 n% jinitget 函数有两个可选的参数。如果两个都写的话，第一个是一个正整数，用于规定用户输入的限制条件。常用的数值有 1,2,4 三个，1 是禁止用户空回车，2 是不接受用户输入 0 ，4是不接受用户输入负数。其它值我就不写了，有关该函数的资料上都有。
. Z4 _5 S; S! \* J3 e现在，我们在CAD命令行输入 (getint) 回车，然后再输入正整数, 0, 或负整数，回车后命令行回显用户的输入值；不输入任何值直接回车，命令行回显 nil ；输入其它字符（如“y”）回车，命令行回显“需要整数值”。
我们再输入 (initget 1)(getint) 回车，然后不输入任何值直接回车，命令行回显“需要整数值”；其它与前面一样。说明由于 (initget 1) 的限制，(getint) 已不能接受空回车。
- u' C) W( ~0 ?0 ]我们再输入 (initget 2)(getint) 回车，会看到 (getint) 不能接受输入 0。
我们再输入 (initget 3)(getint) 回车，会看到 (getint) 不能接受空回车和输入 0 。因为 3=1+2。
依此类推。
我们再输入 (getint) 回车，会发现前面 initget 的设置已经不起作用了。因为它是一次性的。

第二个参数是一个字符串，用于设置允许用户输入的关键字。多个关键字之间用空格隔开。
如：CAD画圆命令 circle ，在用户指定圆心后，命令行提示“指定圆的半径或 [直径(D)]: “。这一部分如果用 lisp 来写，就可以写成

1. (intiget 7 "d")
   ! W9 U; h8 B9 J# G0 X2 m
2. (setq r(getreal "指定圆的半径或 [直径(D)]:" ))

复制代码

代码中第一行的意思是：下面的等待用户输入函数只能接受正数或字符"d"。
第二行中 r 的值只能是用户输入的正数或字符"d"。

  f( l# ]; h2 C& n( c2 B至于对用户输入的处理，就需要 if 或 cond 函数出场了。

dreamMore10

woaishuijia 发表于 2013-2-6 23:37 static/image/common/back.gif
0 }  f9 P8 F8 \: Linitget 函数用于为 getint、getreal、getdist、getangle、getorient、getpoint、getcorner、getkword、ent ...

对于关键字，返回的都是字符串，可以用关键字控制if或者cond的选项吗？
ps：版主新年快乐

woaishuijia

下面的代码主要展示 initget 函数的用途及对用户输入的判断和处理.代码中的关键字只用了一个,实际应用中如果是多个关键字,只是判断和处理复杂一些而已.

1. ;;;画圆
   , Q3 O* w; M2 G! @. J" N6 \
2. (defun c:aaa (/ p1 r1 d)
   8 c6 Q$ p' p$ |; g  v5 `
3.   ;;指定圆心
   
4.   (if p                                        ;检查是否存在用户以前输入的圆心
   
5.     (progn                                ;存在以前的圆心,作为本次输入的默认值
   ' f3 ?# |  u4 h! [+ K. W" w  n; z
6.       (setq p1 (getpoint (strcat "\n指定圆心<"
   
7.                                  (rtos (car p))
   0 S9 @. _9 n8 f. H; e
8.                                  ","
   
9.                                  (rtos (cadr p))
   
10.                                  ","
    - {; |9 d: n- E6 ~1 F
11.                                  (rtos (caddr p))
    
12.                                  ">:"
    
13.                          )
    
14.                )
    
15.       )                                        ;用户指定圆心
    : o0 X9 b# k3 r4 x
16.       (if p1                                ;检查用户是否空回车.如果用户空回车,后面直接使用原值
    " u7 v6 N' K- R
17.         (setq p p1)                        ;用户输入了新圆心,保存到全局变量,用于画图和作为以后的默认值
    
18.       )
    
19.     )
    / l9 w$ [# w2 ~8 ^3 [
20.     (progn                                ;不存在以前的圆心
    , q' Y- F. I2 z8 |2 Q9 e
21.       (initget 1)                        ;禁止用户空回车
    
22.       (setq p "\n指定圆心:")                ;用户指定圆心
    $ ]& J. \/ D& z" M" E. ?
23.     )
    
24.   )                                        ;指定圆心结束
    8 u# {% j8 n8 |  Z3 U& S1 F
25.   ;;指定半径
    + N" K+ h2 H0 A" p8 u. p( A
26.   (if r                                        ;检查是否存在用户以前输入的半径
    0 H0 a( D! B! S# r  k7 ^& F
27.     (progn                                ;存在以前的半径,作为本次输入的默认值
    0 g. K. Z6 t# K1 [5 z: D7 t
28.       (initget 6 "d")                        ;禁止输入0或负数,允许空回车和输入关键字"d"
    ! R7 b0 T# X7 z7 B  J1 d
29.       (setq
    
30.         r1 (getdist p (strcat "\n指定半径[直径(D)]<" (rtos r) ">:"))
    
31.       )
    
32.     )
    % c, V+ v3 p0 v% a1 A* `# k) [' y
33.     (progn                                ;不存在以前的半径
    5 C0 j& c# Q1 i3 X4 s, N8 d
34.       (initget 7 "d")                        ;禁止空回车和输入0或负数,允许输入关键字"d"
    ( M8 K; P: Q, ?0 i( A, Y/ m
35.       (setq r1 (getdist p "\n指定半径[直径(D)]:"))
    
36.     )
    
37.   )
    & ?' [  s  Z* i' y# D& C
38.   (if r1                                ;检查用户是否空回车.如果用户空回车,后面直接使用原值
      C; o( D( ~: ]3 ?
39.     (if        (= r1 "d")                        ;输入了正值或关键字,检查是否关键字
    
40.       (progn                                ;关键字D
    : U0 r0 W+ d7 Y6 I+ ?
41.         (if r                                ;检查是否存在用户以前输入的半径
    
42.           (progn                        ;存在以前的半径,作为本次输入的默认值
    - o9 f3 F4 f8 {/ Z" m# U
43.             (initget 6)                        ;禁止输入0或负数,允许空回车
    
44.             (setq
    
45.               d        (getdist p (strcat "\n指定直径<" (rtos (* r 2)) ">:"))
    # H5 A$ I9 k/ v
46.             )
    
47.           )
    2 M4 q4 P( T" F# C# v! q0 b! T+ @
48.           (progn                        ;不存在以前的半径
    
49.             (initget 7)                        ;禁止空回车和输入0或负数
    % P: ^- `4 A7 u# B1 V* D) Z5 K4 ~
50.             (setq d (getdist p "\n指定直径:"))
    
51.           )
      ^" A* i+ q+ h7 b
52.         )
    5 ]! c& w, J1 r& R
53.         (if d                                ;检查用户是否空回车.如果用户空回车,后面直接使用原值
    " c- S' |/ Q0 K& A
54.           (setq r (/ d 2))                ;用户输入了新直径,计算半径并保存到全局变量,用于画图和作为以后的默认值
    
55.         )
    1 ?$ e8 ?  b6 K( s* [
56.       )
    2 c* V# O$ c; u$ T* c, p9 o* X+ p
57.       (setq r r1)                        ;用户输入了新半径,保存到全局变量,用于画图和作为以后的默认值
    * \- k) J3 a: Y+ F/ r
58.     )
    
59.   )
    - q# _- d$ N" m; R
60.   (command "circle" p r)                ;画圆
    2 y- K! X) V$ y1 y0 |- w9 _
61.   (princ)                                ;静默推出
    " q( w) X3 G& j; F, ~
62. )

复制代码