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 l7 ^4 _4 [0 V3 B# m# \, L
ps：在循环语句中碰到其他值时怎么样让循环不终止，而是在警告之后继续执行，如下：
7 |1 p( r' A% Q' r" c4 ~

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

  )

' k/ b5 S" _+ _  i3 q" r

dreamMore10

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

woaishuijia

dreamMore10 发表于 2013-2-1 21:08 http://www.3dportal.cn/discuz/static/image/common/back.gif
+ `9 i+ v4 ~; l& @7 s/ V文字旋转角只能用确切的数值 而不是变量吗

7 i1 T% d# ?& Y4 {4 b# I
文字其实已经旋转了(如果你选中文字,打开"特性"管理器就可以看到文字的"旋转"并不为 0 ),只不过你在代码中给出的角度单位是弧度,而你CAD的角度单位却不是弧度(默认是十进制角度),需要在代码中换算一下,或者修改"AUNITS"系统变量为 3 (角度单位改为弧度)
: y% D$ \; L& ^' ~( a2 E* K6 M"cond"函数不是循环,而是多条件、多处理结果函数,执行完判别式为真的代码后一定会跳出.当然你可以在它外面套一个"while"函数,在"cond"函数的不符合条件代码组中加一个标识性的变量赋值语句,跳出后由"while"函数检查该变量是否被赋值,如果"cond"执行的代码不是理想中的就重新来过.例如

1. (defun c:ccd (/ v1 v2 v3 p p1 ang m h1 b)
   - e. O+ Q- }$ y/ K% Z
2.   (setq v1 (getvar "osmode"))
   
3.   (setq v2 (getvar "cmdecho"))
   ! a$ b, ~/ F- e
4.   (setq v3 (getvar "blipmode"))
   
5.   (setvar "osmode" 512)
   
6.   (setvar "cmdecho" 0)
   
7.   (setvar "blipmode" 0)
   
8.   (setq p (getpoint "\n插入点："))
   
9.   (setq ang (getangle p "\n旋转角<0>："))
   & I- K# `9 H  G( R: `4 c* `. U+ o
10. 
    
11.   (if (not ang)
    5 r/ g3 U* }% d" P, [$ n: k
12.     (setq ang (/ pi 2))
    
13.   )                                        ;默认旋转角0°
    
14.   (setq h (getreal "\n粗糙度字高（即粗糙度符号大小）<3.5>："))
    ! n3 _$ V- T# |+ p- p0 @& E4 R
15.   (if (not h)
    
16.     (setq h 3.5)
    & A% E+ f2 L  d2 H$ X
17.   )                                        ;默认字高3.5
    
18.   (setq h1 (/ (* 2.8 h) (sqrt 3)))
    
19.   (command "layer" "M" "细实线" "")        ;使用“细实线”图层
    
20.   (while (not b)
    
21.     (setq b t
    
22.           m (getstring "\n是否为加工表面（y/n）：")
    7 t9 ?- R2 \- z0 U
23.     )
    2 R  i0 M6 v, R" r
24.     (cond ((or (= m "y") (= m "Y"))
    
25.            (setq cc (getstring "\n粗糙度值<3.2>："))
    4 ?$ B! y8 n1 ~6 _# _, n0 F! r
26.            (if (= (strlen cc) 0)
    
27.              (setq cc "3.2")
    
28.            )                                ;设置粗糙度默认值3.2
    ' v$ F' E0 h6 A) @' B8 J0 }7 x; ]
29.            (command "line"
    8 ~  e+ H6 F! w+ F2 j& g
30.                     (polar p (- ang (/ pi 6)) h1)
    ' @: j* _- A8 m  H6 p$ ]' h
31.                     (polar p (+ ang (/ pi 6)) h1)
    
32.                     p
    
33.                     (polar p (- ang (/ pi 6)) (* 2 h1))
    
34.                     ""
    
35.            )
    : z  Y* P) I" g$ X5 }
36.            (command "text"
    
37.                     "m"
    
38.                     (polar p ang (+ (* 1.9 h) 1))
    4 b8 B  i' w9 l. L
39.                     h
    
40.                     (* (/ (- ang (/ pi 2)) pi) 180.0)
    
41.                     cc
    ' {3 x  |7 H" h8 \. @
42.            )
    
43.           )
    
44.           ((or (= m "n") (= m "N"))
    " v2 n" T  |6 F% ~# W
45.            (command "line"
      n' s+ u6 l' G, a
46.                     (polar p (+ ang (/ pi 6)) h1)
    # G  S+ [6 u  ~9 M  L, a; c3 H
47.                     p
    
48.                     (polar p (- ang (/ pi 6)) (* 2 h1))
    
49.                     ""
    - V: S- g  m1 O6 }' S
50.            )
    
51.            (command "circle"
    - Q, J1 ~5 t: H$ ], H* j1 J
52.                     (polar p ang (/ (* 2.8 h) 3))
    5 x" [0 V% ]0 n6 a" R
53.                     (/ (* 1.4 h) 3)
    & f, M3 n5 B  D9 T/ m
54.            )
    ' _- ^8 s. X0 i* Z+ [1 U" `9 a
55.           )
    
56.           (t (alert "\n请输入y或n") (setq b nil) (princ))
    + l. s" V& Z: _' y9 G9 d* |
57.     )                                        ;end cond
    * g) Y* U9 v+ d% r  C- _. k9 V
58.   )                                        ;end while
    3 ]2 \$ Z3 Q  _# M) y
59.   (setvar "osmode" v1)
    * Y% g! ?9 I7 W  d4 o) W
60.   (setvar "cmdecho" v2)
    ) I* [$ N5 a% b) k
61.   (setvar "blipmode" v3)
    
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)
   
2.   (setq v1 (getvar "osmode"))
   
3.   (setq v2 (getvar "cmdecho"))
   
4.   (setq v3 (getvar "blipmode"))
   + v9 |' r7 l3 l7 H/ _
5.   (setvar "osmode" 512)
   " q9 Z  {6 q6 b4 c3 a6 v- G
6.   (setvar "cmdecho" 0)
   ; T- r1 k6 [) H) U3 I- O5 g4 D2 t, E
7.   (setvar "blipmode" 0)
   
8.   (setq p (getpoint "\n插入点："))
   ) B1 |) g( ^" q
9.   (setq ang (getangle p "\n旋转角<0>："))
   + F8 Z/ a% W. b' @. M- m
10. 
    ' E6 u( A( N( R- o1 [+ E
11.   (if (not ang)
    
12.     (setq ang (/ pi 2))
    : a' P  h( g7 e/ b* u2 {4 L' d
13.   )                                        ;默认旋转角0°
    
14.   (setq h (getreal "\n粗糙度字高（即粗糙度符号大小）<3.5>："))
    1 S$ U9 `- M' N; ~; d0 U
15.   (if (not h)
    $ D% E$ K: T( A! `7 T6 c
16.     (setq h 3.5)
    ' ~2 E) A/ [% Z2 R; V! J
17.   )                                        ;默认字高3.5
    
18.   (setq h1 (/ (* 2.8 h) (sqrt 3)))
    
19.   (initget 1 "y n")
    
20.   (setq m (getkword "\n是否为加工表面（y/n）："))
    ( E# V# K% F7 Z8 ~% m
21.   (command "layer" "M" "细实线" "")        ;使用“细实线”图层
    4 g# M5 X  g2 y& f* J
22.   (cond        ((= m "y")
    6 p8 n) j/ f+ \
23.          (setq cc (getstring "\n粗糙度值<3.2>："))
    1 \# z  _- a/ @& E# Q0 f6 @& n0 A8 }
24.          (if (= (strlen cc) 0)
    
25.            (setq cc "3.2")
    4 ^  ^3 S8 Q. J; T
26.          )                                ;设置粗糙度默认值3.2
    
27.          (command "line"
    . a7 [# `8 ^% I# s9 p2 @
28.                   (polar p (- ang (/ pi 6)) h1)
    
29.                   (polar p (+ ang (/ pi 6)) h1)
    % N, x- }5 \/ L4 W" F4 q, u; Z+ m
30.                   p
    : H9 d1 C% @" N, H1 N5 K
31.                   (polar p (- ang (/ pi 6)) (* 2 h1))
    8 O  l+ U6 l% Q& S. D9 l3 @2 f# q
32.                   ""
    
33.          )
    
34.          (command "text"
    
35.                   "m"
    
36.                   (polar p ang (+ (* 1.9 h) 1))
    
37.                   h
    , F2 J$ r3 P& L. R, J
38.                   (* (/ (- ang (/ pi 2)) pi) 180.0)
    + ~. K$ y$ H( q0 o) g* y8 i
39.                   cc
    9 }; N  U5 Y, |: c1 J1 `* h
40.          )
    
41.         )
    , l) W2 G$ V3 Q# {0 U
42.         ((= m "n")
    
43.          (command "line"
    1 M7 r9 h3 s: x4 q: i% i3 l
44.                   (polar p (+ ang (/ pi 6)) h1)
    * y; f  o1 k. \# q# l% N5 Q: }
45.                   p
    4 @6 R4 z/ e4 c: r/ _( R. G
46.                   (polar p (- ang (/ pi 6)) (* 2 h1))
    
47.                   ""
    " g! I" r. y( J: P: q' Z7 t
48.          )
    
49.          (command "circle"
    
50.                   (polar p ang (/ (* 2.8 h) 3))
    
51.                   (/ (* 1.4 h) 3)
    
52.          )
    
53.         )
    ' S; ]3 @9 e+ H$ [% j- W; o
54.   )                                        ;end cond
    
55.   (setvar "osmode" v1)
    3 i$ _- f3 w) L5 d4 S& o. \! n3 b, j
56.   (setvar "cmdecho" v2)
    * u. J2 X/ X9 g- Q% }9 F4 R
57.   (setvar "blipmode" v3)
    ' C% p2 b5 f9 |7 V8 B( G6 u
58.   (princ)
    ! l+ A9 g6 e9 K2 a" p* y# H! _
59. )                                        ;end

复制代码

dreamMore10

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

0 I1 J0 n/ \) P9 W; p' P. r- }谢谢版主   
关于initget函数，我不是太理解，像getint这样的函数“关键字”怎样设置呢，好多书上对这个函数讲的都不是很清楚，能不能给几个例子看看？再次感谢

woaishuijia

initget 函数用于为 getint、getreal、getdist、getangle、getorient、getpoint、getcorner、getkword、entsel、nentsel 和 nentselp 函数设置用户输入的规则。
  D% N5 E7 T$ m& J& w0 f% n9 f该函数用在上述等待用户输入函数的前面，只对它后面第一个等待用户输入函数有效，且是一次性的。
4 H! r4 D% V$ ]( C5 s9 _$ B5 |initget 函数有两个可选的参数。如果两个都写的话，第一个是一个正整数，用于规定用户输入的限制条件。常用的数值有 1,2,4 三个，1 是禁止用户空回车，2 是不接受用户输入 0 ，4是不接受用户输入负数。其它值我就不写了，有关该函数的资料上都有。
! @# n9 n+ D1 \' R+ Y2 V  y现在，我们在CAD命令行输入 (getint) 回车，然后再输入正整数, 0, 或负整数，回车后命令行回显用户的输入值；不输入任何值直接回车，命令行回显 nil ；输入其它字符（如“y”）回车，命令行回显“需要整数值”。
我们再输入 (initget 1)(getint) 回车，然后不输入任何值直接回车，命令行回显“需要整数值”；其它与前面一样。说明由于 (initget 1) 的限制，(getint) 已不能接受空回车。
我们再输入 (initget 2)(getint) 回车，会看到 (getint) 不能接受输入 0。
" t* ~: c8 g% y我们再输入 (initget 3)(getint) 回车，会看到 (getint) 不能接受空回车和输入 0 。因为 3=1+2。
依此类推。
  m1 ^. u: N6 O我们再输入 (getint) 回车，会发现前面 initget 的设置已经不起作用了。因为它是一次性的。

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

1. (intiget 7 "d")
   ) T% E1 k; ?( h3 ^+ [+ b* c( }
2. (setq r(getreal "指定圆的半径或 [直径(D)]:" ))

复制代码

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

5 y$ B2 f8 u" K5 ~* F9 ^) w& _; |! r, r至于对用户输入的处理，就需要 if 或 cond 函数出场了。

dreamMore10

woaishuijia 发表于 2013-2-6 23:37 static/image/common/back.gif
3 B: b& g" I0 C' V# t7 Q- winitget 函数用于为 getint、getreal、getdist、getangle、getorient、getpoint、getcorner、getkword、ent ...

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

woaishuijia

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

1. ;;;画圆
   
2. (defun c:aaa (/ p1 r1 d)
   * r/ }6 M7 r; k! K
3.   ;;指定圆心
   - S+ [4 p9 ?0 a; E  w, l4 n
4.   (if p                                        ;检查是否存在用户以前输入的圆心
   
5.     (progn                                ;存在以前的圆心,作为本次输入的默认值
   . s! h& U! c; t6 C) r4 `
6.       (setq p1 (getpoint (strcat "\n指定圆心<"
   
7.                                  (rtos (car p))
   
8.                                  ","
   
9.                                  (rtos (cadr p))
   ) l* V/ D' H- f+ Z) x( D, S- v; M
10.                                  ","
    
11.                                  (rtos (caddr p))
    . _0 L+ f! w' D9 z5 f  c; E5 V! c
12.                                  ">:"
    
13.                          )
    / U% Z8 |9 d2 r# K6 B
14.                )
    3 M$ z- i2 v( G; L& L
15.       )                                        ;用户指定圆心
    
16.       (if p1                                ;检查用户是否空回车.如果用户空回车,后面直接使用原值
    3 i9 H( J, M7 I8 I2 _8 ^
17.         (setq p p1)                        ;用户输入了新圆心,保存到全局变量,用于画图和作为以后的默认值
    ' H! y" E6 g' H% _3 H& A' n
18.       )
    
19.     )
    , P4 e# N3 C; o4 }/ M* }9 A
20.     (progn                                ;不存在以前的圆心
    , t$ |; ?2 q; c1 S
21.       (initget 1)                        ;禁止用户空回车
    2 T  I9 E: I2 T/ k: s0 H# c5 ]: G
22.       (setq p "\n指定圆心:")                ;用户指定圆心
    ) ~0 M7 u+ o% o5 k5 O4 n9 M
23.     )
    
24.   )                                        ;指定圆心结束
    
25.   ;;指定半径
    # E' ~& O/ ]" G. E. ~6 n
26.   (if r                                        ;检查是否存在用户以前输入的半径
    
27.     (progn                                ;存在以前的半径,作为本次输入的默认值
    : ~! \! r( M; T# P% ~/ c
28.       (initget 6 "d")                        ;禁止输入0或负数,允许空回车和输入关键字"d"
    ( i4 m; p- j9 o, L& z
29.       (setq
    # }0 `4 T' |7 t" {! E
30.         r1 (getdist p (strcat "\n指定半径[直径(D)]<" (rtos r) ">:"))
    % \. B4 o; p3 ]
31.       )
    4 q, _0 g* a8 D2 j- U
32.     )
    + ~4 Z6 h4 B, h) A# l( @
33.     (progn                                ;不存在以前的半径
    
34.       (initget 7 "d")                        ;禁止空回车和输入0或负数,允许输入关键字"d"
    
35.       (setq r1 (getdist p "\n指定半径[直径(D)]:"))
    ( ^! m8 ]0 H1 M! N
36.     )
    
37.   )
    
38.   (if r1                                ;检查用户是否空回车.如果用户空回车,后面直接使用原值
    : D- `+ G5 h" ^4 `$ ]+ E! ?& Y
39.     (if        (= r1 "d")                        ;输入了正值或关键字,检查是否关键字
    
40.       (progn                                ;关键字D
    
41.         (if r                                ;检查是否存在用户以前输入的半径
    
42.           (progn                        ;存在以前的半径,作为本次输入的默认值
    
43.             (initget 6)                        ;禁止输入0或负数,允许空回车
    $ \. L5 {' m2 y. I; B* g) |
44.             (setq
    
45.               d        (getdist p (strcat "\n指定直径<" (rtos (* r 2)) ">:"))
    % j/ i: u' w4 V- M' {4 V7 n
46.             )
    - v+ b! Q4 x; T$ Z' K0 M
47.           )
    
48.           (progn                        ;不存在以前的半径
    1 h+ k3 s! g* _3 v7 w5 |$ H$ Q9 n
49.             (initget 7)                        ;禁止空回车和输入0或负数
    ) _. Q* l; \3 n# A. X* e& W6 v
50.             (setq d (getdist p "\n指定直径:"))
    
51.           )
    2 d  L3 m+ E1 M' C
52.         )
    5 f) v0 p9 A# |, a
53.         (if d                                ;检查用户是否空回车.如果用户空回车,后面直接使用原值
    * Q( ~! h- t6 K- R% b
54.           (setq r (/ d 2))                ;用户输入了新直径,计算半径并保存到全局变量,用于画图和作为以后的默认值
    
55.         )
    
56.       )
    
57.       (setq r r1)                        ;用户输入了新半径,保存到全局变量,用于画图和作为以后的默认值
    
58.     )
    ) S* W7 V# T2 S+ p% z8 x" @
59.   )
    
60.   (command "circle" p r)                ;画圆
    # \! U" a+ `" M* {, N! f) L4 D& w6 ]
61.   (princ)                                ;静默推出
    ' n' x4 k; @3 W' P
62. )

复制代码