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

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

; f3 ^0 s( T4 @; v: {8 L( ^3 F# ops：在循环语句中碰到其他值时怎么样让循环不终止，而是在警告之后继续执行，如下：

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

  )

) P+ I! Y+ P! ^0 f& c

dreamMore10

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

woaishuijia

dreamMore10 发表于 2013-2-1 21:08 http://www.3dportal.cn/discuz/static/image/common/back.gif
, P) K! [. Q! p: C7 p文字旋转角只能用确切的数值 而不是变量吗

8 j  c4 Y& `; O- w$ }
, M( O8 w6 b3 o$ B+ J! x- I文字其实已经旋转了(如果你选中文字,打开"特性"管理器就可以看到文字的"旋转"并不为 0 ),只不过你在代码中给出的角度单位是弧度,而你CAD的角度单位却不是弧度(默认是十进制角度),需要在代码中换算一下,或者修改"AUNITS"系统变量为 3 (角度单位改为弧度)
0 b; [3 J" ^3 n, ~6 l& M, j"cond"函数不是循环,而是多条件、多处理结果函数,执行完判别式为真的代码后一定会跳出.当然你可以在它外面套一个"while"函数,在"cond"函数的不符合条件代码组中加一个标识性的变量赋值语句,跳出后由"while"函数检查该变量是否被赋值,如果"cond"执行的代码不是理想中的就重新来过.例如

1. (defun c:ccd (/ v1 v2 v3 p p1 ang m h1 b)
   
2.   (setq v1 (getvar "osmode"))
   # a6 {- ]  d0 t6 H
3.   (setq v2 (getvar "cmdecho"))
   
4.   (setq v3 (getvar "blipmode"))
   
5.   (setvar "osmode" 512)
   1 f1 j1 }2 {) x
6.   (setvar "cmdecho" 0)
   ; D8 z6 |2 o. _0 S9 ^
7.   (setvar "blipmode" 0)
   # M% T  ~7 T, c5 G
8.   (setq p (getpoint "\n插入点："))
   
9.   (setq ang (getangle p "\n旋转角<0>："))
   % N2 k3 {! d3 ~
10. 
    6 `$ u0 F3 ?" K. O/ E2 B
11.   (if (not ang)
    4 u9 I7 a& J( R% H5 ]6 n
12.     (setq ang (/ pi 2))
    8 V# _9 J/ _$ R+ K; n
13.   )                                        ;默认旋转角0°
    0 D7 P! a" ]+ u+ B
14.   (setq h (getreal "\n粗糙度字高（即粗糙度符号大小）<3.5>："))
    
15.   (if (not h)
    
16.     (setq h 3.5)
    5 Y1 X0 q' w1 J) L8 C. V
17.   )                                        ;默认字高3.5
    # P; B* W. B" M' f% n
18.   (setq h1 (/ (* 2.8 h) (sqrt 3)))
    - z" [0 h3 s' c% b+ c9 s
19.   (command "layer" "M" "细实线" "")        ;使用“细实线”图层
    
20.   (while (not b)
    0 G/ w' \+ w" w3 k: J4 {; ~
21.     (setq b t
    9 d- c8 k1 `9 w6 L! q3 W7 v6 `
22.           m (getstring "\n是否为加工表面（y/n）：")
    3 |" `% m, a  K
23.     )
    
24.     (cond ((or (= m "y") (= m "Y"))
    
25.            (setq cc (getstring "\n粗糙度值<3.2>："))
    
26.            (if (= (strlen cc) 0)
    
27.              (setq cc "3.2")
    
28.            )                                ;设置粗糙度默认值3.2
    / e9 x& P9 g" k, b- M8 v) |& q
29.            (command "line"
    : T3 n: l) M' N. w" I: ?: C# F
30.                     (polar p (- ang (/ pi 6)) h1)
    
31.                     (polar p (+ ang (/ pi 6)) h1)
    6 x1 \! \, M1 E7 T' O
32.                     p
    , n" r* ?5 A1 j0 V. R/ S5 {6 g: O( q
33.                     (polar p (- ang (/ pi 6)) (* 2 h1))
    % C  k7 _1 _' D0 e" v. ^! E
34.                     ""
    
35.            )
    & G6 V4 p+ ?8 U6 }% ]5 h  ]: ?
36.            (command "text"
    % [5 G3 k) ^* C
37.                     "m"
    
38.                     (polar p ang (+ (* 1.9 h) 1))
    
39.                     h
    
40.                     (* (/ (- ang (/ pi 2)) pi) 180.0)
    ! X/ T  [* O& V. ?: H2 G
41.                     cc
    & ]3 _3 F) |6 w. d/ b# e! m* j5 Y
42.            )
    
43.           )
    
44.           ((or (= m "n") (= m "N"))
    
45.            (command "line"
    
46.                     (polar p (+ ang (/ pi 6)) h1)
    " R7 q8 r+ Q8 C5 K
47.                     p
    1 b) H0 t; r. R' ?0 S' ?! a* R/ n
48.                     (polar p (- ang (/ pi 6)) (* 2 h1))
    % W: H6 S- o* C* G! Y! Y! \/ @
49.                     ""
    8 c- P' D" o0 A) m# V; _
50.            )
    7 d9 ]2 j/ f* T& j
51.            (command "circle"
    7 A" G. K: D' M/ R0 w$ K
52.                     (polar p ang (/ (* 2.8 h) 3))
    
53.                     (/ (* 1.4 h) 3)
    
54.            )
    # h9 I, }" B6 _  o
55.           )
    # J& {: t7 w7 K2 L' x: z5 M
56.           (t (alert "\n请输入y或n") (setq b nil) (princ))
    
57.     )                                        ;end cond
    / [7 t5 d0 H/ A( }
58.   )                                        ;end while
    
59.   (setvar "osmode" v1)
    
60.   (setvar "cmdecho" v2)
    - J  |# ^4 d% X6 m
61.   (setvar "blipmode" v3)
    
62.   (princ)
    ( ~1 j, {: `8 N( Q) n5 w
63. )                                        ;end

复制代码

事实上,这个代码中使用"getstring"函数获取用户输入的"y/n"是不合理的,应该先用"initget"函数定义关键字,再用"getkword"函数接收用户输入的关键字,当用户输入的不是用"initget"定义的关键字时,会自动提示用户并重新来过.
" W( Q5 O. ]2 n用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"))
   6 g  g% {' J* i8 Q  {
4.   (setq v3 (getvar "blipmode"))
   
5.   (setvar "osmode" 512)
   
6.   (setvar "cmdecho" 0)
   " e4 U8 Z+ A/ |; L! ]6 |+ v" A8 q
7.   (setvar "blipmode" 0)
   
8.   (setq p (getpoint "\n插入点："))
   
9.   (setq ang (getangle p "\n旋转角<0>："))
   - p4 v- m+ N+ P+ i2 K% H: ^
10. 
    
11.   (if (not ang)
    5 V& D& Y5 D; H. Z  N2 h' D" J
12.     (setq ang (/ pi 2))
      }. x/ b; F. Y& N" O! k8 X4 n. W
13.   )                                        ;默认旋转角0°
    0 a- a# B7 p0 z9 r2 M7 p( n
14.   (setq h (getreal "\n粗糙度字高（即粗糙度符号大小）<3.5>："))
    ! P( t/ c- x4 `& J
15.   (if (not h)
    7 h. y" b$ D" d
16.     (setq h 3.5)
    
17.   )                                        ;默认字高3.5
    
18.   (setq h1 (/ (* 2.8 h) (sqrt 3)))
    , I* l& Q9 H/ x3 P5 r$ |; W5 {& M, h
19.   (initget 1 "y n")
    
20.   (setq m (getkword "\n是否为加工表面（y/n）："))
    
21.   (command "layer" "M" "细实线" "")        ;使用“细实线”图层
    
22.   (cond        ((= m "y")
    " ]! _; O9 \; {0 t
23.          (setq cc (getstring "\n粗糙度值<3.2>："))
    6 E5 w- w6 E! U8 }# U. R( d& v
24.          (if (= (strlen cc) 0)
    
25.            (setq cc "3.2")
    
26.          )                                ;设置粗糙度默认值3.2
    ; O1 n4 u" ~$ F% W9 r; m+ e$ y. y
27.          (command "line"
    1 ]5 H! G% X3 O$ o* y8 P8 @" ~
28.                   (polar p (- ang (/ pi 6)) h1)
    % f# U# G6 K) G9 ?! v4 ]' }, h& c6 S
29.                   (polar p (+ ang (/ pi 6)) h1)
    
30.                   p
    3 m9 |/ H) K# z. s$ q
31.                   (polar p (- ang (/ pi 6)) (* 2 h1))
    8 m$ ?/ l3 K  _# z( K
32.                   ""
    ' X' I$ b: K: x* H6 T) }% n
33.          )
    0 A% s$ N. b2 T) d0 ~5 C! l
34.          (command "text"
    2 S. m% }' Z9 d( R
35.                   "m"
    5 z# F0 }4 N! v2 b  z4 B
36.                   (polar p ang (+ (* 1.9 h) 1))
    2 j, G. w! W: O5 m: u
37.                   h
    
38.                   (* (/ (- ang (/ pi 2)) pi) 180.0)
    
39.                   cc
    # H: G' \# ^" @! c, d: S
40.          )
    
41.         )
    
42.         ((= m "n")
    & u, u5 |) H8 {, S
43.          (command "line"
    
44.                   (polar p (+ ang (/ pi 6)) h1)
    7 g5 K8 s4 ~# y$ ?
45.                   p
    
46.                   (polar p (- ang (/ pi 6)) (* 2 h1))
    
47.                   ""
    
48.          )
    
49.          (command "circle"
    9 Z4 q$ F: B* M2 {3 a& z. t( D
50.                   (polar p ang (/ (* 2.8 h) 3))
    . f5 i7 l, J+ x6 V9 {1 F6 s
51.                   (/ (* 1.4 h) 3)
    
52.          )
    
53.         )
    : E4 k0 w* y' Z! K* ~! G
54.   )                                        ;end cond
    
55.   (setvar "osmode" v1)
    - T' p) S6 g7 L: g- _4 I! K
56.   (setvar "cmdecho" v2)
    
57.   (setvar "blipmode" v3)
    ; z; l; _7 Z5 k) D
58.   (princ)
    
59. )                                        ;end

复制代码

dreamMore10

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

谢谢版主   
9 J7 R7 _7 K' l- P) T+ C关于initget函数，我不是太理解，像getint这样的函数“关键字”怎样设置呢，好多书上对这个函数讲的都不是很清楚，能不能给几个例子看看？再次感谢

woaishuijia

initget 函数用于为 getint、getreal、getdist、getangle、getorient、getpoint、getcorner、getkword、entsel、nentsel 和 nentselp 函数设置用户输入的规则。
* T7 h( S" ?- S) s: D( O& h该函数用在上述等待用户输入函数的前面，只对它后面第一个等待用户输入函数有效，且是一次性的。
initget 函数有两个可选的参数。如果两个都写的话，第一个是一个正整数，用于规定用户输入的限制条件。常用的数值有 1,2,4 三个，1 是禁止用户空回车，2 是不接受用户输入 0 ，4是不接受用户输入负数。其它值我就不写了，有关该函数的资料上都有。
2 z) @) ~  H% l" m4 Q- o* N现在，我们在CAD命令行输入 (getint) 回车，然后再输入正整数, 0, 或负整数，回车后命令行回显用户的输入值；不输入任何值直接回车，命令行回显 nil ；输入其它字符（如“y”）回车，命令行回显“需要整数值”。
" T0 n. ~) H* w; ]" {我们再输入 (initget 1)(getint) 回车，然后不输入任何值直接回车，命令行回显“需要整数值”；其它与前面一样。说明由于 (initget 1) 的限制，(getint) 已不能接受空回车。
我们再输入 (initget 2)(getint) 回车，会看到 (getint) 不能接受输入 0。
: }" a8 a: Y2 u我们再输入 (initget 3)(getint) 回车，会看到 (getint) 不能接受空回车和输入 0 。因为 3=1+2。
8 F. O" ]  d+ g/ t% L. w8 P! V6 w& q依此类推。
) x9 u% i( l# [& v9 L  e! B我们再输入 (getint) 回车，会发现前面 initget 的设置已经不起作用了。因为它是一次性的。

2 [3 o% V) R6 s8 o) k第二个参数是一个字符串，用于设置允许用户输入的关键字。多个关键字之间用空格隔开。
0 J# \" L' l- @如：CAD画圆命令 circle ，在用户指定圆心后，命令行提示“指定圆的半径或 [直径(D)]: “。这一部分如果用 lisp 来写，就可以写成

1. (intiget 7 "d")
   8 X; w) F4 ]4 H9 L# k
2. (setq r(getreal "指定圆的半径或 [直径(D)]:" ))

复制代码

代码中第一行的意思是：下面的等待用户输入函数只能接受正数或字符"d"。
9 H0 J6 r, `1 v7 d第二行中 r 的值只能是用户输入的正数或字符"d"。
  A4 C1 `- T1 m% i$ \3 `, f
至于对用户输入的处理，就需要 if 或 cond 函数出场了。

dreamMore10

woaishuijia 发表于 2013-2-6 23:37 static/image/common/back.gif
* a) o% w8 x9 h9 W0 S' Xinitget 函数用于为 getint、getreal、getdist、getangle、getorient、getpoint、getcorner、getkword、ent ...

( d; y: [8 E/ p# M1 P, ^8 S对于关键字，返回的都是字符串，可以用关键字控制if或者cond的选项吗？
! [; d, ?; O( [2 |6 |& Zps：版主新年快乐

woaishuijia

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

1. ;;;画圆
   
2. (defun c:aaa (/ p1 r1 d)
   
3.   ;;指定圆心
   
4.   (if p                                        ;检查是否存在用户以前输入的圆心
   
5.     (progn                                ;存在以前的圆心,作为本次输入的默认值
   
6.       (setq p1 (getpoint (strcat "\n指定圆心<"
   . ^2 q( R) R% }3 C$ D3 ?3 U
7.                                  (rtos (car p))
   4 g' I- `1 \# O# E2 K( ~
8.                                  ","
   5 Y2 B9 Q; ?3 J% A+ \
9.                                  (rtos (cadr p))
   ) @# G0 V& r) T
10.                                  ","
    
11.                                  (rtos (caddr p))
    
12.                                  ">:"
    
13.                          )
    $ }6 m9 h$ V" P2 t
14.                )
    ! b- S3 J$ _' o+ Q" i- c
15.       )                                        ;用户指定圆心
    : Q. ]# h- R4 w& m7 B3 D) d
16.       (if p1                                ;检查用户是否空回车.如果用户空回车,后面直接使用原值
    
17.         (setq p p1)                        ;用户输入了新圆心,保存到全局变量,用于画图和作为以后的默认值
    
18.       )
    ; h# C3 t5 \; ~5 k1 p: ~7 s7 A8 }
19.     )
    ' k# i6 E. e! B$ c4 T  n$ e/ Z
20.     (progn                                ;不存在以前的圆心
    0 c1 ]3 ^- z8 C9 B/ ]" T& g0 _
21.       (initget 1)                        ;禁止用户空回车
    2 w9 z+ f7 C3 o/ \
22.       (setq p "\n指定圆心:")                ;用户指定圆心
    & N0 c4 N# [: x1 Y% e
23.     )
    ( M* ^# n' D) |
24.   )                                        ;指定圆心结束
    7 ]* f/ b. w& E! }7 g
25.   ;;指定半径
    
26.   (if r                                        ;检查是否存在用户以前输入的半径
    ( t+ d* t0 ~) A# ?$ S  q+ L! }
27.     (progn                                ;存在以前的半径,作为本次输入的默认值
    
28.       (initget 6 "d")                        ;禁止输入0或负数,允许空回车和输入关键字"d"
    
29.       (setq
    : t% _" v, v7 v2 C
30.         r1 (getdist p (strcat "\n指定半径[直径(D)]<" (rtos r) ">:"))
    
31.       )
    ( [1 Q* o$ v6 {, r" @% H
32.     )
    3 k1 g! s- F: ^- M
33.     (progn                                ;不存在以前的半径
    7 g: b+ N8 t, q9 q" h
34.       (initget 7 "d")                        ;禁止空回车和输入0或负数,允许输入关键字"d"
    
35.       (setq r1 (getdist p "\n指定半径[直径(D)]:"))
    
36.     )
    
37.   )
    ( Z. s7 Z+ z* p- @) l; J7 |
38.   (if r1                                ;检查用户是否空回车.如果用户空回车,后面直接使用原值
    1 {5 K% W/ |* h' M* [9 ^+ p& @
39.     (if        (= r1 "d")                        ;输入了正值或关键字,检查是否关键字
    
40.       (progn                                ;关键字D
    7 L3 H, W4 m, t$ h4 k
41.         (if r                                ;检查是否存在用户以前输入的半径
    - [$ K' @! Y  w1 E% h
42.           (progn                        ;存在以前的半径,作为本次输入的默认值
    
43.             (initget 6)                        ;禁止输入0或负数,允许空回车
    
44.             (setq
    
45.               d        (getdist p (strcat "\n指定直径<" (rtos (* r 2)) ">:"))
      p( t2 i8 ]' v7 d6 `
46.             )
    7 \& ]( ?$ n% F- Q9 V  S7 v
47.           )
    1 d+ ?& p' j$ \% i, Z) v& o! O
48.           (progn                        ;不存在以前的半径
    3 k2 G2 i+ ^( p% p3 t3 z' N
49.             (initget 7)                        ;禁止空回车和输入0或负数
    
50.             (setq d (getdist p "\n指定直径:"))
    
51.           )
    
52.         )
    
53.         (if d                                ;检查用户是否空回车.如果用户空回车,后面直接使用原值
    
54.           (setq r (/ d 2))                ;用户输入了新直径,计算半径并保存到全局变量,用于画图和作为以后的默认值
    8 \/ k& S# F: @0 D
55.         )
    
56.       )
    
57.       (setq r r1)                        ;用户输入了新半径,保存到全局变量,用于画图和作为以后的默认值
    " L  R' x+ {  w. [  m, m
58.     )
    
59.   )
    6 Q! B! n0 \* r
60.   (command "circle" p r)                ;画圆
    2 \2 K7 }/ H# m+ V# Y: X
61.   (princ)                                ;静默推出
    + ~$ S+ G3 w( O/ `. `2 O
62. )

复制代码