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

为什么运行出来的文字不旋转？
  s: f6 _) x: m  n: ]$ Y3 I
  o% j0 b, ?, A' ~0 ups：在循环语句中碰到其他值时怎么样让循环不终止，而是在警告之后继续执行，如下：

(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") )

  )

" {( q8 t3 T- B4 B

dreamMore10

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

woaishuijia

' q# r+ M# k, V- @! J2 S' Y4 q

dreamMore10 发表于 2013-2-1 21:08 http://www.3dportal.cn/discuz/static/image/common/back.gif
  j8 S7 |) U# J; H文字旋转角只能用确切的数值 而不是变量吗

# C, {4 P  b( V/ I# M# x
6 X% ?3 v# e% y# P3 r8 f文字其实已经旋转了(如果你选中文字,打开"特性"管理器就可以看到文字的"旋转"并不为 0 ),只不过你在代码中给出的角度单位是弧度,而你CAD的角度单位却不是弧度(默认是十进制角度),需要在代码中换算一下,或者修改"AUNITS"系统变量为 3 (角度单位改为弧度)
; Y/ u; w7 q8 z) M8 z* @0 w- Z"cond"函数不是循环,而是多条件、多处理结果函数,执行完判别式为真的代码后一定会跳出.当然你可以在它外面套一个"while"函数,在"cond"函数的不符合条件代码组中加一个标识性的变量赋值语句,跳出后由"while"函数检查该变量是否被赋值,如果"cond"执行的代码不是理想中的就重新来过.例如

1. (defun c:ccd (/ v1 v2 v3 p p1 ang m h1 b)
   
2.   (setq v1 (getvar "osmode"))
   1 w! Y/ l" E2 }( a- k
3.   (setq v2 (getvar "cmdecho"))
   - J$ e3 c1 C5 R& c( h
4.   (setq v3 (getvar "blipmode"))
   / T  n/ X8 z" U& y- L
5.   (setvar "osmode" 512)
   
6.   (setvar "cmdecho" 0)
   
7.   (setvar "blipmode" 0)
     t) _- S& n6 q, f& m+ R& z- e9 x
8.   (setq p (getpoint "\n插入点："))
   ; {  f$ r- A" O' r
9.   (setq ang (getangle p "\n旋转角<0>："))
   
10. 
    
11.   (if (not ang)
    
12.     (setq ang (/ pi 2))
    6 c3 X1 s; y' l' |6 k
13.   )                                        ;默认旋转角0°
    $ V/ Z# T: O$ Y, j0 Z
14.   (setq h (getreal "\n粗糙度字高（即粗糙度符号大小）<3.5>："))
    
15.   (if (not h)
    
16.     (setq h 3.5)
    3 `- s7 Z' b" r. A9 s$ r* T; G$ Q
17.   )                                        ;默认字高3.5
    
18.   (setq h1 (/ (* 2.8 h) (sqrt 3)))
    
19.   (command "layer" "M" "细实线" "")        ;使用“细实线”图层
    . S* }/ J  B% |  X' y
20.   (while (not b)
    
21.     (setq b t
    / h$ p( ]+ V, F3 r( d3 g
22.           m (getstring "\n是否为加工表面（y/n）：")
    . O9 K/ D$ [, E/ a
23.     )
    ( [: z$ Q! q' ^
24.     (cond ((or (= m "y") (= m "Y"))
    
25.            (setq cc (getstring "\n粗糙度值<3.2>："))
    , z1 M. C7 u( I7 ?" H( L. f
26.            (if (= (strlen cc) 0)
    
27.              (setq cc "3.2")
    0 `2 w& r2 q. {! A3 X4 Q/ D) H1 H
28.            )                                ;设置粗糙度默认值3.2
    
29.            (command "line"
    3 x  o( ]7 }4 K6 F, O% S' Q
30.                     (polar p (- ang (/ pi 6)) h1)
    : b" H  |7 e! k
31.                     (polar p (+ ang (/ pi 6)) h1)
    
32.                     p
    6 D9 {& G+ K& j! Q  r3 N2 [
33.                     (polar p (- ang (/ pi 6)) (* 2 h1))
    " o. [$ W' f& b. f
34.                     ""
    
35.            )
    ( w" f" [8 N, n
36.            (command "text"
    ' D. `% I- |+ J/ E) D+ N6 t
37.                     "m"
    
38.                     (polar p ang (+ (* 1.9 h) 1))
    
39.                     h
    
40.                     (* (/ (- ang (/ pi 2)) pi) 180.0)
    
41.                     cc
    ! Q. @8 q) O( [, e( u' U. H/ W
42.            )
    
43.           )
    . e- g! e# f6 L6 q# T7 B3 a
44.           ((or (= m "n") (= m "N"))
    
45.            (command "line"
    6 M, s' R$ j- T) j9 \
46.                     (polar p (+ ang (/ pi 6)) h1)
    
47.                     p
    ) T) x6 B9 _3 x7 F2 B
48.                     (polar p (- ang (/ pi 6)) (* 2 h1))
    
49.                     ""
    8 S1 r8 ?, i" q% F+ ~% b% u
50.            )
      h6 `' j( D0 j* V! V
51.            (command "circle"
    
52.                     (polar p ang (/ (* 2.8 h) 3))
    * |* u3 H* o4 b! d* d# }) E1 R
53.                     (/ (* 1.4 h) 3)
    
54.            )
    
55.           )
    
56.           (t (alert "\n请输入y或n") (setq b nil) (princ))
    
57.     )                                        ;end cond
    
58.   )                                        ;end while
    9 C0 W, Q, r* `6 t6 D" U' w
59.   (setvar "osmode" v1)
    ! p. C$ O* _4 P" f1 l- X
60.   (setvar "cmdecho" v2)
    
61.   (setvar "blipmode" v3)
      u  l, h  l. s
62.   (princ)
    : D6 i5 C* P0 E6 \' f
63. )                                        ;end

复制代码

事实上,这个代码中使用"getstring"函数获取用户输入的"y/n"是不合理的,应该先用"initget"函数定义关键字,再用"getkword"函数接收用户输入的关键字,当用户输入的不是用"initget"定义的关键字时,会自动提示用户并重新来过.
, Y. R/ E$ M6 L# t% o用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)
   ' y+ z' H" u' N! t! d# j6 i( |
2.   (setq v1 (getvar "osmode"))
   ! q8 @1 x: v: N7 S+ f, W7 t4 }( C
3.   (setq v2 (getvar "cmdecho"))
   
4.   (setq v3 (getvar "blipmode"))
   
5.   (setvar "osmode" 512)
   7 g4 x- A: k  B; Y
6.   (setvar "cmdecho" 0)
   " k* L5 N9 w; y6 J% ~: O7 p
7.   (setvar "blipmode" 0)
   
8.   (setq p (getpoint "\n插入点："))
   
9.   (setq ang (getangle p "\n旋转角<0>："))
   . J  F0 b( ]6 u# a, d- d9 j. l
10. 
    & s* S/ L/ E  i8 m. A' v  ~6 l( Z
11.   (if (not ang)
    ' V! A) k& W2 I- b9 X
12.     (setq ang (/ pi 2))
    ! t, h' T' f7 x8 n" a! _/ L# e* ]
13.   )                                        ;默认旋转角0°
    . F, ~0 R% D- U3 z0 c8 ^: }
14.   (setq h (getreal "\n粗糙度字高（即粗糙度符号大小）<3.5>："))
    ; Y1 u# w8 o2 M: }
15.   (if (not h)
    / f) z+ \: @/ A0 h2 I7 W; E
16.     (setq h 3.5)
    
17.   )                                        ;默认字高3.5
    
18.   (setq h1 (/ (* 2.8 h) (sqrt 3)))
    ( x; k, }/ J& F5 Y4 M
19.   (initget 1 "y n")
    # @3 {7 G# f9 k" H% }" [
20.   (setq m (getkword "\n是否为加工表面（y/n）："))
    
21.   (command "layer" "M" "细实线" "")        ;使用“细实线”图层
    
22.   (cond        ((= m "y")
    
23.          (setq cc (getstring "\n粗糙度值<3.2>："))
    
24.          (if (= (strlen cc) 0)
    " Y0 N# _3 ^+ C; ^$ J* Q
25.            (setq cc "3.2")
    2 p) {% Y3 N( T; m" Y) W5 z1 T
26.          )                                ;设置粗糙度默认值3.2
    
27.          (command "line"
    
28.                   (polar p (- ang (/ pi 6)) h1)
    
29.                   (polar p (+ ang (/ pi 6)) h1)
    
30.                   p
      b8 `) {' a: k
31.                   (polar p (- ang (/ pi 6)) (* 2 h1))
    
32.                   ""
    
33.          )
    
34.          (command "text"
      X  L2 u& z  a! ~4 w, |# Y
35.                   "m"
    
36.                   (polar p ang (+ (* 1.9 h) 1))
    + m8 m3 Y4 {$ V  ^- d
37.                   h
    
38.                   (* (/ (- ang (/ pi 2)) pi) 180.0)
    ; d& L6 S9 p6 L& {" I" P8 Y* p  ?
39.                   cc
    ( \/ k& A! I% U$ ]2 O* {( u
40.          )
    
41.         )
    
42.         ((= m "n")
      W7 t  q8 o2 W
43.          (command "line"
    
44.                   (polar p (+ ang (/ pi 6)) h1)
    
45.                   p
    
46.                   (polar p (- ang (/ pi 6)) (* 2 h1))
    
47.                   ""
    % J3 V; ~' B( X+ r7 B" t
48.          )
    2 Q+ A6 X- W1 X+ r1 M/ I/ ]6 r
49.          (command "circle"
    
50.                   (polar p ang (/ (* 2.8 h) 3))
    ! B& L8 c7 j# g8 z( `9 Y& R
51.                   (/ (* 1.4 h) 3)
    
52.          )
    
53.         )
    1 S* c) ?1 D# r3 X
54.   )                                        ;end cond
    
55.   (setvar "osmode" v1)
    
56.   (setvar "cmdecho" v2)
    : m: o4 P; R* n4 A6 p
57.   (setvar "blipmode" v3)
    
58.   (princ)
    + D, Y/ g1 r& R+ V" R
59. )                                        ;end

复制代码

dreamMore10

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

谢谢版主   
关于initget函数，我不是太理解，像getint这样的函数“关键字”怎样设置呢，好多书上对这个函数讲的都不是很清楚，能不能给几个例子看看？再次感谢

woaishuijia

initget 函数用于为 getint、getreal、getdist、getangle、getorient、getpoint、getcorner、getkword、entsel、nentsel 和 nentselp 函数设置用户输入的规则。
$ O: g6 T' c! E9 n* n& z7 E该函数用在上述等待用户输入函数的前面，只对它后面第一个等待用户输入函数有效，且是一次性的。
) Y# e- O$ c0 Kinitget 函数有两个可选的参数。如果两个都写的话，第一个是一个正整数，用于规定用户输入的限制条件。常用的数值有 1,2,4 三个，1 是禁止用户空回车，2 是不接受用户输入 0 ，4是不接受用户输入负数。其它值我就不写了，有关该函数的资料上都有。
5 L2 v7 ~& f9 i! u现在，我们在CAD命令行输入 (getint) 回车，然后再输入正整数, 0, 或负整数，回车后命令行回显用户的输入值；不输入任何值直接回车，命令行回显 nil ；输入其它字符（如“y”）回车，命令行回显“需要整数值”。
- F, [' _6 y8 }9 T6 a) L2 S我们再输入 (initget 1)(getint) 回车，然后不输入任何值直接回车，命令行回显“需要整数值”；其它与前面一样。说明由于 (initget 1) 的限制，(getint) 已不能接受空回车。
9 B* H# o8 z0 r/ W) C& |3 I我们再输入 (initget 2)(getint) 回车，会看到 (getint) 不能接受输入 0。
我们再输入 (initget 3)(getint) 回车，会看到 (getint) 不能接受空回车和输入 0 。因为 3=1+2。
依此类推。
我们再输入 (getint) 回车，会发现前面 initget 的设置已经不起作用了。因为它是一次性的。
$ ^# ~( a" p! G- Z7 I
8 q( x  c  t; d$ k- ^2 W) M第二个参数是一个字符串，用于设置允许用户输入的关键字。多个关键字之间用空格隔开。
如：CAD画圆命令 circle ，在用户指定圆心后，命令行提示“指定圆的半径或 [直径(D)]: “。这一部分如果用 lisp 来写，就可以写成

1. (intiget 7 "d")
   
2. (setq r(getreal "指定圆的半径或 [直径(D)]:" ))

复制代码

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

. W0 g4 E$ s& w/ R7 e至于对用户输入的处理，就需要 if 或 cond 函数出场了。

dreamMore10

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

对于关键字，返回的都是字符串，可以用关键字控制if或者cond的选项吗？
1 ~; G! H! y, M4 V8 i2 {3 yps：版主新年快乐

woaishuijia

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

1. ;;;画圆
   
2. (defun c:aaa (/ p1 r1 d)
   1 G) z- n; _+ x! f
3.   ;;指定圆心
   8 i7 i2 {" ~0 f3 [: l" S
4.   (if p                                        ;检查是否存在用户以前输入的圆心
   
5.     (progn                                ;存在以前的圆心,作为本次输入的默认值
   5 H+ q& O. V( k" ?) v5 [
6.       (setq p1 (getpoint (strcat "\n指定圆心<"
   
7.                                  (rtos (car p))
   
8.                                  ","
   
9.                                  (rtos (cadr p))
   
10.                                  ","
    & D+ C* P# g% u
11.                                  (rtos (caddr p))
    % L# r- Y9 l" P3 k3 Y, w
12.                                  ">:"
    , l1 Y: z  e( B
13.                          )
    % B* V+ H0 L( O( H, C- o
14.                )
    , Q) ^; _9 \. q! X
15.       )                                        ;用户指定圆心
    8 m, v8 \/ G0 t0 a- |% I3 U) t% @6 E
16.       (if p1                                ;检查用户是否空回车.如果用户空回车,后面直接使用原值
    + n, _( q0 [5 E( V" W
17.         (setq p p1)                        ;用户输入了新圆心,保存到全局变量,用于画图和作为以后的默认值
    
18.       )
    . X+ U# R: S- V7 h; J
19.     )
    
20.     (progn                                ;不存在以前的圆心
    
21.       (initget 1)                        ;禁止用户空回车
    2 i) B1 |4 G" _7 w6 K
22.       (setq p "\n指定圆心:")                ;用户指定圆心
    
23.     )
    
24.   )                                        ;指定圆心结束
    
25.   ;;指定半径
    / X3 s5 x: w  N) d9 i- T% S
26.   (if r                                        ;检查是否存在用户以前输入的半径
    " m1 L$ a4 A2 C& U* ]/ ]0 s
27.     (progn                                ;存在以前的半径,作为本次输入的默认值
    5 K  T5 Z! Z2 j( [1 ~
28.       (initget 6 "d")                        ;禁止输入0或负数,允许空回车和输入关键字"d"
    - f/ Y; Q- [4 ]) ?- Y
29.       (setq
    
30.         r1 (getdist p (strcat "\n指定半径[直径(D)]<" (rtos r) ">:"))
    7 L3 {* W$ v, ?# P3 |$ _% F# [2 j+ Y
31.       )
    ) v4 v/ W: ?7 `) `" T2 ?
32.     )
    & u  L# A& h8 M: m  b
33.     (progn                                ;不存在以前的半径
    
34.       (initget 7 "d")                        ;禁止空回车和输入0或负数,允许输入关键字"d"
    : p; {& w7 G0 W( J. G6 `
35.       (setq r1 (getdist p "\n指定半径[直径(D)]:"))
    
36.     )
    7 t5 J  j+ F; A+ K' }
37.   )
    ' s% D+ E) @, |- G: a5 \% J$ {
38.   (if r1                                ;检查用户是否空回车.如果用户空回车,后面直接使用原值
    
39.     (if        (= r1 "d")                        ;输入了正值或关键字,检查是否关键字
    ; |0 b- ?* z6 I; `  R# ?% I
40.       (progn                                ;关键字D
    
41.         (if r                                ;检查是否存在用户以前输入的半径
    
42.           (progn                        ;存在以前的半径,作为本次输入的默认值
    
43.             (initget 6)                        ;禁止输入0或负数,允许空回车
    3 I' G8 h( f0 o8 G
44.             (setq
    7 q: b7 {4 s9 d4 @
45.               d        (getdist p (strcat "\n指定直径<" (rtos (* r 2)) ">:"))
    
46.             )
    5 H2 y6 z. b' J0 G8 X) X
47.           )
    
48.           (progn                        ;不存在以前的半径
    2 g* ?7 g, R% u, I" E+ I% @
49.             (initget 7)                        ;禁止空回车和输入0或负数
    ! w6 e. o  |; h  P& n$ M3 Z9 p
50.             (setq d (getdist p "\n指定直径:"))
    3 V2 A3 \- w, G* V* C
51.           )
    4 @4 }9 C$ p& y* y% K% \
52.         )
    8 t7 q5 Q3 q6 |% p- K/ B3 L
53.         (if d                                ;检查用户是否空回车.如果用户空回车,后面直接使用原值
    7 c3 _9 N+ r- Q6 A
54.           (setq r (/ d 2))                ;用户输入了新直径,计算半径并保存到全局变量,用于画图和作为以后的默认值
    
55.         )
    # h( L' u& S! z9 f
56.       )
    * U  E& y4 |1 e
57.       (setq r r1)                        ;用户输入了新半径,保存到全局变量,用于画图和作为以后的默认值
      t% e3 G$ ^6 f6 L* t5 e* k
58.     )
    
59.   )
    1 C% {5 n$ |& N; U* d9 C5 o
60.   (command "circle" p r)                ;画圆
    3 k, n" a& [9 v! a) `: S3 s1 r1 n
61.   (princ)                                ;静默推出
    
62. )

复制代码