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

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

' E% Z! ^  n* R. \ps：在循环语句中碰到其他值时怎么样让循环不终止，而是在警告之后继续执行，如下：
2 z  n' U2 c4 ~: N

(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

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

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

1. (defun c:ccd (/ v1 v2 v3 p p1 ang m h1 b)
   1 {9 H1 B1 M; m2 P, A+ ]
2.   (setq v1 (getvar "osmode"))
   
3.   (setq v2 (getvar "cmdecho"))
   
4.   (setq v3 (getvar "blipmode"))
   ' H4 J: q7 `7 c0 H7 ]0 {
5.   (setvar "osmode" 512)
   
6.   (setvar "cmdecho" 0)
   , c! V! K' a% S  w- U% k2 ?
7.   (setvar "blipmode" 0)
   / s7 i4 ]% z- Y, u$ n
8.   (setq p (getpoint "\n插入点："))
   " S$ j# Z4 A% H. k2 _9 A( Y3 o
9.   (setq ang (getangle p "\n旋转角<0>："))
   ( K, ]+ p& Z, J: O6 ]* y8 ~
10. 
    
11.   (if (not ang)
    
12.     (setq ang (/ pi 2))
    
13.   )                                        ;默认旋转角0°
    
14.   (setq h (getreal "\n粗糙度字高（即粗糙度符号大小）<3.5>："))
    2 w5 U. G* r$ o  h9 x# W" E
15.   (if (not h)
    % V6 q* P2 z) s
16.     (setq h 3.5)
    4 N& k  A1 D7 u& W3 [: T
17.   )                                        ;默认字高3.5
    
18.   (setq h1 (/ (* 2.8 h) (sqrt 3)))
    
19.   (command "layer" "M" "细实线" "")        ;使用“细实线”图层
    
20.   (while (not b)
    3 [5 o3 P6 u8 \) A$ I+ W
21.     (setq b t
    " B' |: }$ T3 m& w7 O
22.           m (getstring "\n是否为加工表面（y/n）：")
    * L4 h9 L& K& _& k" ~5 c
23.     )
    8 @; J8 h  O+ S/ Z2 L! |6 f
24.     (cond ((or (= m "y") (= m "Y"))
    % S! f. t- P9 b* N/ @
25.            (setq cc (getstring "\n粗糙度值<3.2>："))
    ' h  o. b9 C' m2 n+ X  K! O
26.            (if (= (strlen cc) 0)
    + t# q  a$ M; \7 h
27.              (setq cc "3.2")
    
28.            )                                ;设置粗糙度默认值3.2
    1 U) F6 R, _2 n1 e
29.            (command "line"
    
30.                     (polar p (- ang (/ pi 6)) h1)
      y$ E3 |) s4 G# X
31.                     (polar p (+ ang (/ pi 6)) h1)
    
32.                     p
    
33.                     (polar p (- ang (/ pi 6)) (* 2 h1))
    
34.                     ""
    - P0 Q" I' c/ R- j+ e& s
35.            )
      m% V: M+ R( `* E' E7 u% F, V
36.            (command "text"
    - q, X2 K3 v% p/ S5 I1 ]! Y& Q
37.                     "m"
    
38.                     (polar p ang (+ (* 1.9 h) 1))
    
39.                     h
    
40.                     (* (/ (- ang (/ pi 2)) pi) 180.0)
    3 n- U) L, o. Y- u5 t) l
41.                     cc
    
42.            )
    
43.           )
    
44.           ((or (= m "n") (= m "N"))
    # x1 ~9 I4 H2 h! Z! ^5 x+ Y
45.            (command "line"
    - n2 `: g6 u$ g! {; E1 Q
46.                     (polar p (+ ang (/ pi 6)) h1)
    
47.                     p
    ( m, V2 z8 U$ U) I. X( X2 @# Q
48.                     (polar p (- ang (/ pi 6)) (* 2 h1))
    # g. s: e3 L9 p. B% z+ |
49.                     ""
    
50.            )
    
51.            (command "circle"
    
52.                     (polar p ang (/ (* 2.8 h) 3))
    
53.                     (/ (* 1.4 h) 3)
    , q& e, C& R) N$ o4 w
54.            )
    4 x( D0 o# j1 Y2 a: k
55.           )
    
56.           (t (alert "\n请输入y或n") (setq b nil) (princ))
    
57.     )                                        ;end cond
    - r) q/ Z4 ~' B7 s
58.   )                                        ;end while
    
59.   (setvar "osmode" v1)
    
60.   (setvar "cmdecho" v2)
    
61.   (setvar "blipmode" v3)
    
62.   (princ)
    
63. )                                        ;end

复制代码

事实上,这个代码中使用"getstring"函数获取用户输入的"y/n"是不合理的,应该先用"initget"函数定义关键字,再用"getkword"函数接收用户输入的关键字,当用户输入的不是用"initget"定义的关键字时,会自动提示用户并重新来过.
& V' E+ [3 M: i' _7 ]$ k9 V用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"))
   " q# L6 K& U* @5 h
4.   (setq v3 (getvar "blipmode"))
   0 g5 b9 V3 U8 {5 z9 C; W4 K
5.   (setvar "osmode" 512)
   
6.   (setvar "cmdecho" 0)
   ) |9 \$ F' {/ X- B4 Q2 v  j3 Y
7.   (setvar "blipmode" 0)
   
8.   (setq p (getpoint "\n插入点："))
   
9.   (setq ang (getangle p "\n旋转角<0>："))
   % h; @+ f+ F7 K& N) `. Q
10. 
    
11.   (if (not ang)
    * x/ s3 W) G7 X' O# ^& G" w
12.     (setq ang (/ pi 2))
    # Q9 `8 A' L/ I$ ~+ g
13.   )                                        ;默认旋转角0°
    
14.   (setq h (getreal "\n粗糙度字高（即粗糙度符号大小）<3.5>："))
    
15.   (if (not h)
    ' F7 F" b6 F$ o) p$ ~
16.     (setq h 3.5)
    
17.   )                                        ;默认字高3.5
    / g' T( `% B$ N5 H, K: m& L
18.   (setq h1 (/ (* 2.8 h) (sqrt 3)))
    ( @, N4 T$ |! L- T; r
19.   (initget 1 "y n")
    
20.   (setq m (getkword "\n是否为加工表面（y/n）："))
    
21.   (command "layer" "M" "细实线" "")        ;使用“细实线”图层
    7 G) N: D  I* @# p+ U' g- ~
22.   (cond        ((= m "y")
    
23.          (setq cc (getstring "\n粗糙度值<3.2>："))
    
24.          (if (= (strlen cc) 0)
    ; \. j* x, M6 ]( }5 i+ |" a' E
25.            (setq cc "3.2")
    
26.          )                                ;设置粗糙度默认值3.2
    ! e+ a2 U- A. w$ g& Q
27.          (command "line"
      L' e& d- O' Y- ~3 M/ U( T- R
28.                   (polar p (- ang (/ pi 6)) h1)
    . v5 g# L. w0 x7 g$ J# x
29.                   (polar p (+ ang (/ pi 6)) h1)
    % T6 I9 m$ q9 G* K5 v2 F) }7 i
30.                   p
    ) K6 e  c$ o6 f, a( z' f5 W5 M
31.                   (polar p (- ang (/ pi 6)) (* 2 h1))
    
32.                   ""
    ( g9 L4 E) D. x; h4 _
33.          )
    7 [/ n  M$ P% B6 b1 q
34.          (command "text"
    6 _2 M9 f7 ?4 ~; \' T" [' W
35.                   "m"
    
36.                   (polar p ang (+ (* 1.9 h) 1))
      j+ `* ]2 T$ r5 u( t
37.                   h
    / P3 O- l9 H8 d; h) r3 B# h  Z4 y! X- z: C
38.                   (* (/ (- ang (/ pi 2)) pi) 180.0)
    + I1 W' |" Q3 L4 z* ?3 e: a& Q. o7 S
39.                   cc
    + ^/ z* A! ~1 n: U3 ~; d' d, ^
40.          )
    
41.         )
    
42.         ((= m "n")
    ' i1 d! y9 o6 {" J5 e
43.          (command "line"
    , R  X+ v8 {3 j- l
44.                   (polar p (+ ang (/ pi 6)) h1)
    
45.                   p
    / o( m1 c3 G" _2 X" x+ e
46.                   (polar p (- ang (/ pi 6)) (* 2 h1))
    : A3 A6 {8 F+ Y% O
47.                   ""
    
48.          )
    7 Z4 ?6 r4 H( S' y; H
49.          (command "circle"
    2 n( q  {/ l; Z7 M2 i
50.                   (polar p ang (/ (* 2.8 h) 3))
    
51.                   (/ (* 1.4 h) 3)
    ( J) C7 S+ p( u9 W
52.          )
    
53.         )
    
54.   )                                        ;end cond
    
55.   (setvar "osmode" v1)
    : y/ R( ^" E4 e) ?  ?2 l$ b
56.   (setvar "cmdecho" v2)
    
57.   (setvar "blipmode" v3)
    
58.   (princ)
    * K9 @3 V/ f3 L
59. )                                        ;end

复制代码

dreamMore10

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

5 Q! E$ s* h* O/ }9 H谢谢版主   
7 f$ [7 P: ?5 Q$ i! [关于initget函数，我不是太理解，像getint这样的函数“关键字”怎样设置呢，好多书上对这个函数讲的都不是很清楚，能不能给几个例子看看？再次感谢

woaishuijia

initget 函数用于为 getint、getreal、getdist、getangle、getorient、getpoint、getcorner、getkword、entsel、nentsel 和 nentselp 函数设置用户输入的规则。
; ]: u1 D( i/ V' F8 g$ T9 ]该函数用在上述等待用户输入函数的前面，只对它后面第一个等待用户输入函数有效，且是一次性的。
1 J! a, n. q8 O- d- L7 q6 Winitget 函数有两个可选的参数。如果两个都写的话，第一个是一个正整数，用于规定用户输入的限制条件。常用的数值有 1,2,4 三个，1 是禁止用户空回车，2 是不接受用户输入 0 ，4是不接受用户输入负数。其它值我就不写了，有关该函数的资料上都有。
现在，我们在CAD命令行输入 (getint) 回车，然后再输入正整数, 0, 或负整数，回车后命令行回显用户的输入值；不输入任何值直接回车，命令行回显 nil ；输入其它字符（如“y”）回车，命令行回显“需要整数值”。
! }1 d& S) Y* }我们再输入 (initget 1)(getint) 回车，然后不输入任何值直接回车，命令行回显“需要整数值”；其它与前面一样。说明由于 (initget 1) 的限制，(getint) 已不能接受空回车。
/ o3 @8 d+ [% ~  X7 e我们再输入 (initget 2)(getint) 回车，会看到 (getint) 不能接受输入 0。
5 F- c0 v: ^5 c! T0 @% R! u我们再输入 (initget 3)(getint) 回车，会看到 (getint) 不能接受空回车和输入 0 。因为 3=1+2。
6 f2 G9 j) |, T/ M6 G1 k依此类推。
: p$ s4 f  h4 \+ n7 K我们再输入 (getint) 回车，会发现前面 initget 的设置已经不起作用了。因为它是一次性的。
% K1 \# y# S3 N/ u( @/ y$ V1 \- s
第二个参数是一个字符串，用于设置允许用户输入的关键字。多个关键字之间用空格隔开。
, i* ~8 U2 C( B& x2 X如：CAD画圆命令 circle ，在用户指定圆心后，命令行提示“指定圆的半径或 [直径(D)]: “。这一部分如果用 lisp 来写，就可以写成

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

复制代码

代码中第一行的意思是：下面的等待用户输入函数只能接受正数或字符"d"。
" ?- \1 {: Q1 A& S0 O5 E% X第二行中 r 的值只能是用户输入的正数或字符"d"。

至于对用户输入的处理，就需要 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的选项吗？
& G; K3 ^3 ?  ]( D+ U! N/ D$ rps：版主新年快乐

woaishuijia

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

1. ;;;画圆
   
2. (defun c:aaa (/ p1 r1 d)
   0 f0 {! S3 D7 i1 K2 r/ \, ~2 C
3.   ;;指定圆心
   
4.   (if p                                        ;检查是否存在用户以前输入的圆心
   9 t( O/ C- X( W) A( b6 V
5.     (progn                                ;存在以前的圆心,作为本次输入的默认值
   
6.       (setq p1 (getpoint (strcat "\n指定圆心<"
   7 _4 v; B4 o2 I
7.                                  (rtos (car p))
   
8.                                  ","
   ( C0 ~- m% s) I5 `. w* r" x
9.                                  (rtos (cadr p))
   
10.                                  ","
    
11.                                  (rtos (caddr p))
    
12.                                  ">:"
    * K* r- M, l+ S* [6 o" [
13.                          )
    , t" B, H# }$ m( @
14.                )
    
15.       )                                        ;用户指定圆心
    ! s4 \  @$ `) o! |4 W: y* ~
16.       (if p1                                ;检查用户是否空回车.如果用户空回车,后面直接使用原值
    ( {6 ~% b( k' M9 g: ~) b
17.         (setq p p1)                        ;用户输入了新圆心,保存到全局变量,用于画图和作为以后的默认值
    ' Z) V( I, K5 x5 x- U& O. L
18.       )
    - ?" E7 t8 ^9 O' X, ?) W6 N
19.     )
    
20.     (progn                                ;不存在以前的圆心
    6 a  ^6 G1 R) X# Y
21.       (initget 1)                        ;禁止用户空回车
    9 o$ x1 m" Q) U
22.       (setq p "\n指定圆心:")                ;用户指定圆心
    - W) b0 Y  o) `+ c, K1 l' y
23.     )
      J& W4 B* r  {2 ^& P2 I
24.   )                                        ;指定圆心结束
    ' |2 u# K5 v8 B
25.   ;;指定半径
    
26.   (if r                                        ;检查是否存在用户以前输入的半径
    / \! U/ z2 N1 Y7 M5 ]% s7 L& c
27.     (progn                                ;存在以前的半径,作为本次输入的默认值
    
28.       (initget 6 "d")                        ;禁止输入0或负数,允许空回车和输入关键字"d"
    
29.       (setq
    
30.         r1 (getdist p (strcat "\n指定半径[直径(D)]<" (rtos r) ">:"))
    2 _% j# A8 m0 x5 S
31.       )
    
32.     )
    + n* F7 p- v8 r# R$ u8 U- \. H
33.     (progn                                ;不存在以前的半径
    
34.       (initget 7 "d")                        ;禁止空回车和输入0或负数,允许输入关键字"d"
    ; j, T- A. F1 z1 c7 O# [$ ?, b" ^
35.       (setq r1 (getdist p "\n指定半径[直径(D)]:"))
    
36.     )
    
37.   )
    
38.   (if r1                                ;检查用户是否空回车.如果用户空回车,后面直接使用原值
    
39.     (if        (= r1 "d")                        ;输入了正值或关键字,检查是否关键字
    9 H( N& v9 s$ X& N
40.       (progn                                ;关键字D
    $ c. ~& O& B" k8 V3 e
41.         (if r                                ;检查是否存在用户以前输入的半径
    : Q) n6 s: L+ H% Q
42.           (progn                        ;存在以前的半径,作为本次输入的默认值
    
43.             (initget 6)                        ;禁止输入0或负数,允许空回车
    + s* }! ?5 z  D( H% X
44.             (setq
    3 _  }( f0 ]4 J6 G9 X, E4 b6 h
45.               d        (getdist p (strcat "\n指定直径<" (rtos (* r 2)) ">:"))
    
46.             )
    ! Z* K8 T+ I7 D) b1 q
47.           )
    
48.           (progn                        ;不存在以前的半径
    / s- ~5 o& n( R4 w) C; O0 M
49.             (initget 7)                        ;禁止空回车和输入0或负数
    ( _% I/ |2 u$ V0 u6 e
50.             (setq d (getdist p "\n指定直径:"))
    
51.           )
    
52.         )
    
53.         (if d                                ;检查用户是否空回车.如果用户空回车,后面直接使用原值
    % n* M& X4 [) o. u
54.           (setq r (/ d 2))                ;用户输入了新直径,计算半径并保存到全局变量,用于画图和作为以后的默认值
    
55.         )
    
56.       )
    3 `: P7 x9 v2 n. n8 S8 C; z
57.       (setq r r1)                        ;用户输入了新半径,保存到全局变量,用于画图和作为以后的默认值
    
58.     )
    
59.   )
    
60.   (command "circle" p r)                ;画圆
    2 K) j5 Y' m7 @7 n+ h2 O
61.   (princ)                                ;静默推出
    
62. )

复制代码