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

为什么运行出来的文字不旋转？

7 l  b! t; a9 Jps：在循环语句中碰到其他值时怎么样让循环不终止，而是在警告之后继续执行，如下：

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

  )

dreamMore10

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

woaishuijia

* u. i/ \, `( y' r; a

dreamMore10 发表于 2013-2-1 21:08 http://www.3dportal.cn/discuz/static/image/common/back.gif
( p+ f. X6 E6 r; H. S文字旋转角只能用确切的数值 而不是变量吗

' e6 _5 G1 s0 f# f. _1 a
4 Q  r9 o  P3 o4 l; l+ s9 j文字其实已经旋转了(如果你选中文字,打开"特性"管理器就可以看到文字的"旋转"并不为 0 ),只不过你在代码中给出的角度单位是弧度,而你CAD的角度单位却不是弧度(默认是十进制角度),需要在代码中换算一下,或者修改"AUNITS"系统变量为 3 (角度单位改为弧度)
"cond"函数不是循环,而是多条件、多处理结果函数,执行完判别式为真的代码后一定会跳出.当然你可以在它外面套一个"while"函数,在"cond"函数的不符合条件代码组中加一个标识性的变量赋值语句,跳出后由"while"函数检查该变量是否被赋值,如果"cond"执行的代码不是理想中的就重新来过.例如

1. (defun c:ccd (/ v1 v2 v3 p p1 ang m h1 b)
   
2.   (setq v1 (getvar "osmode"))
   + f) E, f6 B" S6 k
3.   (setq v2 (getvar "cmdecho"))
   ) x) @- L  S$ `+ z3 J% K3 G
4.   (setq v3 (getvar "blipmode"))
   ' Y2 }# e& s2 J. Z3 }# T# \8 u6 S3 v
5.   (setvar "osmode" 512)
   ( W) ?/ U, P6 l9 I: J& e
6.   (setvar "cmdecho" 0)
   ' c5 v) ~0 N3 K; A' f3 S0 b
7.   (setvar "blipmode" 0)
   
8.   (setq p (getpoint "\n插入点："))
   
9.   (setq ang (getangle p "\n旋转角<0>："))
   
10. 
    
11.   (if (not ang)
    : [0 e( u3 E/ W6 B- J  n, `# e
12.     (setq ang (/ pi 2))
    
13.   )                                        ;默认旋转角0°
    . n  `4 }3 u! D# q* \. _
14.   (setq h (getreal "\n粗糙度字高（即粗糙度符号大小）<3.5>："))
    
15.   (if (not h)
    
16.     (setq h 3.5)
    
17.   )                                        ;默认字高3.5
    
18.   (setq h1 (/ (* 2.8 h) (sqrt 3)))
    
19.   (command "layer" "M" "细实线" "")        ;使用“细实线”图层
    & S/ C/ ?0 H6 ~& L" ]3 {
20.   (while (not b)
    
21.     (setq b t
    
22.           m (getstring "\n是否为加工表面（y/n）：")
      j- @! Z% f; p$ |
23.     )
    
24.     (cond ((or (= m "y") (= m "Y"))
    ) r! p, V- x  B. T7 X- g
25.            (setq cc (getstring "\n粗糙度值<3.2>："))
    7 e, N* {5 ]8 c) R0 B' I
26.            (if (= (strlen cc) 0)
    * b+ f- ^0 ], ^# v' N+ ]
27.              (setq cc "3.2")
    $ t6 l) e! o, @
28.            )                                ;设置粗糙度默认值3.2
    / g# W. M2 p' M8 ^& ^' R/ l
29.            (command "line"
    
30.                     (polar p (- ang (/ pi 6)) h1)
    * v" s1 ~4 y% y: Q, ~
31.                     (polar p (+ ang (/ pi 6)) h1)
    6 S! Q8 I2 S4 a3 c6 F; E
32.                     p
    $ X+ M2 w  V# o$ h
33.                     (polar p (- ang (/ pi 6)) (* 2 h1))
    - @8 u! y* @+ l% H
34.                     ""
    
35.            )
    
36.            (command "text"
    * r! }8 o5 p0 U1 U( N+ t8 I+ t5 j
37.                     "m"
    
38.                     (polar p ang (+ (* 1.9 h) 1))
    3 H, X" r! ]) S4 o% u+ g5 w
39.                     h
    
40.                     (* (/ (- ang (/ pi 2)) pi) 180.0)
    9 e! g4 ]0 k! }# p
41.                     cc
    ) C. ~0 B$ S1 d$ l- @
42.            )
    5 h  d7 T' ^: Z; @! G# o8 {( V
43.           )
    
44.           ((or (= m "n") (= m "N"))
    
45.            (command "line"
    2 {/ p. x4 d2 |& B, k) o6 ~7 a
46.                     (polar p (+ ang (/ pi 6)) h1)
    2 ]3 ?4 d% h/ U8 V/ p
47.                     p
    
48.                     (polar p (- ang (/ pi 6)) (* 2 h1))
    ( u8 I$ I) T8 w- t' L. d. o7 P
49.                     ""
    
50.            )
    
51.            (command "circle"
    # t# B( A. r9 s4 G! W' t
52.                     (polar p ang (/ (* 2.8 h) 3))
    
53.                     (/ (* 1.4 h) 3)
    
54.            )
    
55.           )
    $ J+ p, F) e9 i1 M% _- Q1 T3 M
56.           (t (alert "\n请输入y或n") (setq b nil) (princ))
    ! ]) B. B" L, _0 l3 p# U2 s* ], ^) [+ s
57.     )                                        ;end cond
    5 g( J& o0 n2 M, A7 S
58.   )                                        ;end while
    
59.   (setvar "osmode" v1)
    
60.   (setvar "cmdecho" v2)
    
61.   (setvar "blipmode" v3)
    , a. s2 b( b! b( X) v0 Y
62.   (princ)
    , o8 ]2 |; y( \' @, q5 f
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)
   ) e# @8 v. q0 }. F7 h" f# [8 U
2.   (setq v1 (getvar "osmode"))
   , b0 @7 f4 _8 J& g+ @" H
3.   (setq v2 (getvar "cmdecho"))
   
4.   (setq v3 (getvar "blipmode"))
   ) }* Q( o  n2 L( A
5.   (setvar "osmode" 512)
   
6.   (setvar "cmdecho" 0)
   ; |! V$ p' N. f& B
7.   (setvar "blipmode" 0)
   
8.   (setq p (getpoint "\n插入点："))
   . v: K" W' b1 C
9.   (setq ang (getangle p "\n旋转角<0>："))
   ( \! K" W  a( y4 L' t
10. 
    
11.   (if (not ang)
    7 C: d3 s" e1 M. a+ K% j' r- U
12.     (setq ang (/ pi 2))
    
13.   )                                        ;默认旋转角0°
    ) w7 V* `/ I* ^9 l0 w; s
14.   (setq h (getreal "\n粗糙度字高（即粗糙度符号大小）<3.5>："))
    
15.   (if (not h)
    " z5 D' P! o  X0 w" y+ P- p
16.     (setq h 3.5)
    + ?& P1 V4 E! G! f( M
17.   )                                        ;默认字高3.5
    
18.   (setq h1 (/ (* 2.8 h) (sqrt 3)))
    9 z, d6 p( k  ~" ^: f: l+ v
19.   (initget 1 "y n")
    , ^/ `; b0 n$ M. ^  }- S
20.   (setq m (getkword "\n是否为加工表面（y/n）："))
    ( b( \9 R- h6 R8 R0 G  V
21.   (command "layer" "M" "细实线" "")        ;使用“细实线”图层
    
22.   (cond        ((= m "y")
    ! m8 E' u/ T. s
23.          (setq cc (getstring "\n粗糙度值<3.2>："))
    
24.          (if (= (strlen cc) 0)
    
25.            (setq cc "3.2")
    : n) |. `7 V+ R5 X) u: _$ Z! E
26.          )                                ;设置粗糙度默认值3.2
    5 u+ w9 N, O+ R; E
27.          (command "line"
    ; s& K) h% Y9 n7 ~2 p' ~
28.                   (polar p (- ang (/ pi 6)) h1)
    
29.                   (polar p (+ ang (/ pi 6)) h1)
    - \: V! ]7 V( P0 B& {0 `
30.                   p
    
31.                   (polar p (- ang (/ pi 6)) (* 2 h1))
    2 R& v' e- {3 d- T/ C9 ^
32.                   ""
    9 t5 b" ^* q9 O
33.          )
    
34.          (command "text"
    , t" d- B2 ]# k# C( L7 m) n
35.                   "m"
    5 q0 e& j! g; J- x3 ]
36.                   (polar p ang (+ (* 1.9 h) 1))
    7 i& F1 s" X) A  S
37.                   h
    3 @' a: K: ~/ N! |0 r; p
38.                   (* (/ (- ang (/ pi 2)) pi) 180.0)
    
39.                   cc
    
40.          )
      N4 n, |0 `0 l3 o5 r" [7 T
41.         )
    $ P/ A5 @' [$ t
42.         ((= m "n")
    8 j2 S1 Q" P0 S9 U" @
43.          (command "line"
    6 j% ]; N0 h, o
44.                   (polar p (+ ang (/ pi 6)) h1)
    
45.                   p
    4 C' j6 |4 N# a# Y$ J  R
46.                   (polar p (- ang (/ pi 6)) (* 2 h1))
    
47.                   ""
    
48.          )
    
49.          (command "circle"
    & v$ @) _; U3 _5 J7 ?3 C
50.                   (polar p ang (/ (* 2.8 h) 3))
    6 v" O5 U. w$ ~, V8 ^
51.                   (/ (* 1.4 h) 3)
    
52.          )
    
53.         )
    
54.   )                                        ;end cond
    
55.   (setvar "osmode" v1)
    : H3 ^. c2 Y2 B; V9 Z( D' X4 J$ I
56.   (setvar "cmdecho" v2)
    ' c9 S0 r& p3 B& O# e
57.   (setvar "blipmode" v3)
    ' T+ e0 b+ p: J: a& H5 H$ |
58.   (princ)
    $ \8 r$ {8 b' j. |) z1 ^
59. )                                        ;end

复制代码

dreamMore10

woaishuijia 发表于 2013-2-4 22:56 static/image/common/back.gif
* y+ H1 E1 d2 @: ?& P* q8 }5 O$ F文字其实已经旋转了(如果你选中文字,打开"特性"管理器就可以看到文字的"旋转"并不为 0 ),只不过你在代码 ...

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

woaishuijia

initget 函数用于为 getint、getreal、getdist、getangle、getorient、getpoint、getcorner、getkword、entsel、nentsel 和 nentselp 函数设置用户输入的规则。
) A! l0 @( i6 M: Y7 ~% i- c/ R0 S8 s该函数用在上述等待用户输入函数的前面，只对它后面第一个等待用户输入函数有效，且是一次性的。
initget 函数有两个可选的参数。如果两个都写的话，第一个是一个正整数，用于规定用户输入的限制条件。常用的数值有 1,2,4 三个，1 是禁止用户空回车，2 是不接受用户输入 0 ，4是不接受用户输入负数。其它值我就不写了，有关该函数的资料上都有。
现在，我们在CAD命令行输入 (getint) 回车，然后再输入正整数, 0, 或负整数，回车后命令行回显用户的输入值；不输入任何值直接回车，命令行回显 nil ；输入其它字符（如“y”）回车，命令行回显“需要整数值”。
, K2 A% m% D+ O  t我们再输入 (initget 1)(getint) 回车，然后不输入任何值直接回车，命令行回显“需要整数值”；其它与前面一样。说明由于 (initget 1) 的限制，(getint) 已不能接受空回车。
我们再输入 (initget 2)(getint) 回车，会看到 (getint) 不能接受输入 0。
& a( X' G6 z$ S) \: @, ^4 ^$ [我们再输入 (initget 3)(getint) 回车，会看到 (getint) 不能接受空回车和输入 0 。因为 3=1+2。
依此类推。
我们再输入 (getint) 回车，会发现前面 initget 的设置已经不起作用了。因为它是一次性的。
7 @4 t! }% N7 M( A! r
9 h  Z, ], {! B# s' ^& D* g* }第二个参数是一个字符串，用于设置允许用户输入的关键字。多个关键字之间用空格隔开。
0 d' ^% {( A1 v: B$ p4 n如：CAD画圆命令 circle ，在用户指定圆心后，命令行提示“指定圆的半径或 [直径(D)]: “。这一部分如果用 lisp 来写，就可以写成

1. (intiget 7 "d")
   * N" A0 C0 }. s/ y
2. (setq r(getreal "指定圆的半径或 [直径(D)]:" ))

复制代码

代码中第一行的意思是：下面的等待用户输入函数只能接受正数或字符"d"。
第二行中 r 的值只能是用户输入的正数或字符"d"。
+ z# D' o& z$ t8 c& J2 F8 e1 J; d
至于对用户输入的处理，就需要 if 或 cond 函数出场了。

dreamMore10

woaishuijia 发表于 2013-2-6 23:37 static/image/common/back.gif
) E, O# e- k& n) b9 zinitget 函数用于为 getint、getreal、getdist、getangle、getorient、getpoint、getcorner、getkword、ent ...

3 Y7 K. R9 G5 Q对于关键字，返回的都是字符串，可以用关键字控制if或者cond的选项吗？
* {' b/ O; N# d8 e# Vps：版主新年快乐

woaishuijia

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

1. ;;;画圆
   + T, w& I' B/ j, P# E3 @7 ?+ N
2. (defun c:aaa (/ p1 r1 d)
   $ t, f5 x: m& _6 _. v5 k- S
3.   ;;指定圆心
   / ?6 w" J" ?9 G0 p% t& D/ T0 s
4.   (if p                                        ;检查是否存在用户以前输入的圆心
   
5.     (progn                                ;存在以前的圆心,作为本次输入的默认值
   & ?" \7 ^$ f/ w* P! z+ c& R/ W5 v
6.       (setq p1 (getpoint (strcat "\n指定圆心<"
   2 N3 t' T; i/ o) E' Q. O
7.                                  (rtos (car p))
   
8.                                  ","
   7 \7 k5 A6 C# j7 {' a2 X
9.                                  (rtos (cadr p))
   
10.                                  ","
    
11.                                  (rtos (caddr p))
    , U, T  P. H. Q8 p% p( O
12.                                  ">:"
    5 `. k3 @) ]( e" B5 l5 k
13.                          )
    
14.                )
    * ^* r! H3 h' t1 E5 v7 d
15.       )                                        ;用户指定圆心
    0 w6 M) G- M8 R3 a6 t- M
16.       (if p1                                ;检查用户是否空回车.如果用户空回车,后面直接使用原值
    
17.         (setq p p1)                        ;用户输入了新圆心,保存到全局变量,用于画图和作为以后的默认值
    
18.       )
    
19.     )
    
20.     (progn                                ;不存在以前的圆心
    
21.       (initget 1)                        ;禁止用户空回车
    8 }) t4 \) ?# D
22.       (setq p "\n指定圆心:")                ;用户指定圆心
    9 R" \* U$ q7 T
23.     )
    
24.   )                                        ;指定圆心结束
    % d/ s  n3 f' b  ]1 _
25.   ;;指定半径
    5 z2 A8 E7 H' P9 y; z' g
26.   (if r                                        ;检查是否存在用户以前输入的半径
    
27.     (progn                                ;存在以前的半径,作为本次输入的默认值
    + y% d) L" ?# F" G3 x
28.       (initget 6 "d")                        ;禁止输入0或负数,允许空回车和输入关键字"d"
    . f+ v+ D/ E( P, n
29.       (setq
    8 U# r  e7 Y, c: J( m
30.         r1 (getdist p (strcat "\n指定半径[直径(D)]<" (rtos r) ">:"))
    
31.       )
    . |: N7 E: p4 y; B4 b
32.     )
    ' p1 E' Z& {3 I) i. {2 j
33.     (progn                                ;不存在以前的半径
    % }2 A9 o/ N; h. Q: F
34.       (initget 7 "d")                        ;禁止空回车和输入0或负数,允许输入关键字"d"
    
35.       (setq r1 (getdist p "\n指定半径[直径(D)]:"))
    
36.     )
    
37.   )
    
38.   (if r1                                ;检查用户是否空回车.如果用户空回车,后面直接使用原值
    
39.     (if        (= r1 "d")                        ;输入了正值或关键字,检查是否关键字
    / I1 K% B: R& c! Z0 O
40.       (progn                                ;关键字D
    , J% a0 M: B- q& g  H. @' t
41.         (if r                                ;检查是否存在用户以前输入的半径
    $ U% L* z2 D* v4 }  |! C3 X8 T
42.           (progn                        ;存在以前的半径,作为本次输入的默认值
    / c4 @- W/ A) N5 m1 G, v# D
43.             (initget 6)                        ;禁止输入0或负数,允许空回车
    
44.             (setq
    
45.               d        (getdist p (strcat "\n指定直径<" (rtos (* r 2)) ">:"))
    + W  i1 d( c" |2 H7 b, k  M9 f# {
46.             )
    * N5 G2 Y; w- j+ k/ E0 H
47.           )
    " M* |% _6 a, T# C' u) y4 f9 b1 [$ V
48.           (progn                        ;不存在以前的半径
    
49.             (initget 7)                        ;禁止空回车和输入0或负数
    5 b% @. i8 y, y  ?" |
50.             (setq d (getdist p "\n指定直径:"))
    
51.           )
    
52.         )
    
53.         (if d                                ;检查用户是否空回车.如果用户空回车,后面直接使用原值
    
54.           (setq r (/ d 2))                ;用户输入了新直径,计算半径并保存到全局变量,用于画图和作为以后的默认值
    
55.         )
    
56.       )
    
57.       (setq r r1)                        ;用户输入了新半径,保存到全局变量,用于画图和作为以后的默认值
    
58.     )
    0 M4 C( y, f1 R- Q  I
59.   )
    
60.   (command "circle" p r)                ;画圆
    
61.   (princ)                                ;静默推出
    
62. )

复制代码