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

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

) x4 F, c# e$ a3 }) @( p; lps：在循环语句中碰到其他值时怎么样让循环不终止，而是在警告之后继续执行，如下：
: p* L/ k9 l. u- A; J/ r; \

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

  )

/ \: W! f) N9 V" U! B6 ~

dreamMore10

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

woaishuijia

  f" Z9 K! O% e' \

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

& d' W3 c  O- N% P; X* _
% A5 E! h" G* c2 e; a2 L文字其实已经旋转了(如果你选中文字,打开"特性"管理器就可以看到文字的"旋转"并不为 0 ),只不过你在代码中给出的角度单位是弧度,而你CAD的角度单位却不是弧度(默认是十进制角度),需要在代码中换算一下,或者修改"AUNITS"系统变量为 3 (角度单位改为弧度)
9 C  ^2 {+ v1 G) q" {/ v, l. Y"cond"函数不是循环,而是多条件、多处理结果函数,执行完判别式为真的代码后一定会跳出.当然你可以在它外面套一个"while"函数,在"cond"函数的不符合条件代码组中加一个标识性的变量赋值语句,跳出后由"while"函数检查该变量是否被赋值,如果"cond"执行的代码不是理想中的就重新来过.例如

1. (defun c:ccd (/ v1 v2 v3 p p1 ang m h1 b)
   
2.   (setq v1 (getvar "osmode"))
   
3.   (setq v2 (getvar "cmdecho"))
   
4.   (setq v3 (getvar "blipmode"))
   ; G4 k' u+ t8 E. S7 k' M3 F/ w! g
5.   (setvar "osmode" 512)
   
6.   (setvar "cmdecho" 0)
   . S! T' f$ `4 {; ~! h
7.   (setvar "blipmode" 0)
   
8.   (setq p (getpoint "\n插入点："))
   
9.   (setq ang (getangle p "\n旋转角<0>："))
   
10. 
    6 V; ~5 @  P  `$ e0 ^
11.   (if (not ang)
    
12.     (setq ang (/ pi 2))
    6 t' ?% o! W$ b
13.   )                                        ;默认旋转角0°
    $ v4 S1 N9 E0 A* I1 c/ \4 q  @# S
14.   (setq h (getreal "\n粗糙度字高（即粗糙度符号大小）<3.5>："))
    / J  ?1 i; W- J- d' @6 r& s
15.   (if (not h)
    0 E' l8 y/ Z3 J) f& P$ ?6 L
16.     (setq h 3.5)
    4 ]6 r1 c4 o1 L/ v
17.   )                                        ;默认字高3.5
    
18.   (setq h1 (/ (* 2.8 h) (sqrt 3)))
    
19.   (command "layer" "M" "细实线" "")        ;使用“细实线”图层
    1 F8 D- \; \. s' {2 e7 Z& I9 G
20.   (while (not b)
    
21.     (setq b t
    
22.           m (getstring "\n是否为加工表面（y/n）：")
    
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")
      h# |( I6 z. q/ W" o/ g
28.            )                                ;设置粗糙度默认值3.2
    9 I5 \0 Z# Y5 e0 D* P/ @
29.            (command "line"
    , z. @; Q3 F9 X  ]$ L! A0 m
30.                     (polar p (- ang (/ pi 6)) h1)
    
31.                     (polar p (+ ang (/ pi 6)) h1)
    
32.                     p
    ' [" l3 _  n+ u$ B& A/ W2 t5 {/ Z
33.                     (polar p (- ang (/ pi 6)) (* 2 h1))
    
34.                     ""
    5 e$ L- _7 j0 m# `; m
35.            )
    ; Y- D: h# {) @
36.            (command "text"
    3 x+ ?0 E$ d/ G0 v
37.                     "m"
    
38.                     (polar p ang (+ (* 1.9 h) 1))
    
39.                     h
    * |) S, X' o  l1 R5 L+ J
40.                     (* (/ (- ang (/ pi 2)) pi) 180.0)
    
41.                     cc
    2 B: V# v% F) J7 h
42.            )
    
43.           )
    
44.           ((or (= m "n") (= m "N"))
    5 [1 G4 j; N( s% l
45.            (command "line"
    
46.                     (polar p (+ ang (/ pi 6)) h1)
    9 A0 i4 ~. V) {. q5 P3 s, U" ?$ i
47.                     p
    
48.                     (polar p (- ang (/ pi 6)) (* 2 h1))
    
49.                     ""
    
50.            )
    
51.            (command "circle"
    
52.                     (polar p ang (/ (* 2.8 h) 3))
    0 j8 T* r! z( ?! H; F
53.                     (/ (* 1.4 h) 3)
    + ?& A5 E: a! H% G5 C5 x% l
54.            )
    
55.           )
    & o8 y1 `9 v" g1 O1 Z
56.           (t (alert "\n请输入y或n") (setq b nil) (princ))
    
57.     )                                        ;end cond
    # Q) D( k) K  U) a1 m
58.   )                                        ;end while
    
59.   (setvar "osmode" v1)
    # i) ~: g+ Q4 I: L. i) n% u* t
60.   (setvar "cmdecho" v2)
    # u6 v0 D( C2 z- Z) H9 m9 \% B
61.   (setvar "blipmode" v3)
    $ h7 D4 X6 a- ?  f3 C/ I
62.   (princ)
    " }; z- m* K7 Y8 o4 E% K. G' z* {
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 \/ Q$ o: `  Q0 f7 _4 v
2.   (setq v1 (getvar "osmode"))
   ; v3 R6 W: P- f/ O; r6 h  _; S
3.   (setq v2 (getvar "cmdecho"))
   
4.   (setq v3 (getvar "blipmode"))
   ; [3 |: U+ U4 D* P0 h
5.   (setvar "osmode" 512)
   
6.   (setvar "cmdecho" 0)
   / R9 Z* ?7 B7 l. R+ J3 D4 G" e) e
7.   (setvar "blipmode" 0)
   
8.   (setq p (getpoint "\n插入点："))
   # V$ f0 @1 i' g/ o
9.   (setq ang (getangle p "\n旋转角<0>："))
   
10. 
    
11.   (if (not ang)
    ( [7 W9 K  u: [% s
12.     (setq ang (/ pi 2))
    
13.   )                                        ;默认旋转角0°
    
14.   (setq h (getreal "\n粗糙度字高（即粗糙度符号大小）<3.5>："))
    
15.   (if (not h)
    1 v- p' p5 t9 P( Z0 [
16.     (setq h 3.5)
    
17.   )                                        ;默认字高3.5
    ' h2 C8 P: R$ E, j1 J
18.   (setq h1 (/ (* 2.8 h) (sqrt 3)))
    8 j; S  T* \; i' r
19.   (initget 1 "y n")
    1 K: w7 S2 Z* W
20.   (setq m (getkword "\n是否为加工表面（y/n）："))
    
21.   (command "layer" "M" "细实线" "")        ;使用“细实线”图层
    " [2 i6 E6 @3 k4 ?2 c# i0 T
22.   (cond        ((= m "y")
    
23.          (setq cc (getstring "\n粗糙度值<3.2>："))
    3 E0 U; }: J) F
24.          (if (= (strlen cc) 0)
    2 X' U5 K. X; c; ^: {
25.            (setq cc "3.2")
    
26.          )                                ;设置粗糙度默认值3.2
    
27.          (command "line"
    
28.                   (polar p (- ang (/ pi 6)) h1)
    
29.                   (polar p (+ ang (/ pi 6)) h1)
    3 p4 W* i" F# c4 x7 x( a
30.                   p
    ( v, B( h0 C3 N. t7 i) Q4 t# @& W
31.                   (polar p (- ang (/ pi 6)) (* 2 h1))
    
32.                   ""
    
33.          )
    
34.          (command "text"
    0 L6 }8 t+ f& X' l. V9 n+ H
35.                   "m"
    
36.                   (polar p ang (+ (* 1.9 h) 1))
    
37.                   h
    
38.                   (* (/ (- ang (/ pi 2)) pi) 180.0)
    . t$ ^& S# ^3 A) ]: R
39.                   cc
    # ?! r8 H3 J- l" c$ ]7 N1 i$ j! z
40.          )
    
41.         )
    
42.         ((= m "n")
    # c; W6 I) n" m8 D+ {8 z( V
43.          (command "line"
      `2 z$ Y! p% y0 e
44.                   (polar p (+ ang (/ pi 6)) h1)
    ( x8 N: b7 p: [4 g' M' ?! J5 x
45.                   p
    6 G3 C" \+ {" H( |( o
46.                   (polar p (- ang (/ pi 6)) (* 2 h1))
    
47.                   ""
    , }7 Q+ j" p  {. W# x0 O! I
48.          )
    - w# s% m4 v# Z- g6 [! z+ U. c* ?
49.          (command "circle"
    , S- _: x& V* Z2 G& G0 G6 l
50.                   (polar p ang (/ (* 2.8 h) 3))
    / n# }3 r6 V  B7 k% B( l% O
51.                   (/ (* 1.4 h) 3)
    1 Y. }" S5 t3 b9 B
52.          )
    
53.         )
    " w/ l/ _0 n& h  Q, \( x5 e
54.   )                                        ;end cond
    
55.   (setvar "osmode" v1)
    9 ]8 `0 X# ]2 g6 a+ `$ `0 K
56.   (setvar "cmdecho" v2)
    
57.   (setvar "blipmode" v3)
    ! ~" l: L8 X1 S. x6 g% j" i
58.   (princ)
    ( Y  R+ K7 I$ t, F9 E
59. )                                        ;end

复制代码

dreamMore10

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

! J$ c1 S/ m6 @" f. `/ R2 r谢谢版主   
+ s% _) y- r6 i, c) Z5 X; Z" Z关于initget函数，我不是太理解，像getint这样的函数“关键字”怎样设置呢，好多书上对这个函数讲的都不是很清楚，能不能给几个例子看看？再次感谢

woaishuijia

initget 函数用于为 getint、getreal、getdist、getangle、getorient、getpoint、getcorner、getkword、entsel、nentsel 和 nentselp 函数设置用户输入的规则。
该函数用在上述等待用户输入函数的前面，只对它后面第一个等待用户输入函数有效，且是一次性的。
initget 函数有两个可选的参数。如果两个都写的话，第一个是一个正整数，用于规定用户输入的限制条件。常用的数值有 1,2,4 三个，1 是禁止用户空回车，2 是不接受用户输入 0 ，4是不接受用户输入负数。其它值我就不写了，有关该函数的资料上都有。
& w3 A& c$ U' |3 c  t* Q1 G9 k& {% a现在，我们在CAD命令行输入 (getint) 回车，然后再输入正整数, 0, 或负整数，回车后命令行回显用户的输入值；不输入任何值直接回车，命令行回显 nil ；输入其它字符（如“y”）回车，命令行回显“需要整数值”。
% y" L" A% h6 X2 b9 O6 ?8 T我们再输入 (initget 1)(getint) 回车，然后不输入任何值直接回车，命令行回显“需要整数值”；其它与前面一样。说明由于 (initget 1) 的限制，(getint) 已不能接受空回车。
我们再输入 (initget 2)(getint) 回车，会看到 (getint) 不能接受输入 0。
& K9 W2 K7 {/ {2 E5 @$ E0 n& s我们再输入 (initget 3)(getint) 回车，会看到 (getint) 不能接受空回车和输入 0 。因为 3=1+2。
依此类推。
! d3 d3 l/ U/ A9 T  T1 C1 |我们再输入 (getint) 回车，会发现前面 initget 的设置已经不起作用了。因为它是一次性的。

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

1. (intiget 7 "d")
   5 O1 r$ o/ Y7 a4 p$ k
2. (setq r(getreal "指定圆的半径或 [直径(D)]:" ))

复制代码

代码中第一行的意思是：下面的等待用户输入函数只能接受正数或字符"d"。
第二行中 r 的值只能是用户输入的正数或字符"d"。
3 _) b- S$ w- ^( w3 i
至于对用户输入的处理，就需要 if 或 cond 函数出场了。

dreamMore10

woaishuijia 发表于 2013-2-6 23:37 static/image/common/back.gif
/ F; ?  q6 E) F' X/ \initget 函数用于为 getint、getreal、getdist、getangle、getorient、getpoint、getcorner、getkword、ent ...

, U# L) ?$ G) H2 I" C. q6 u对于关键字，返回的都是字符串，可以用关键字控制if或者cond的选项吗？
ps：版主新年快乐

woaishuijia

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

1. ;;;画圆
   
2. (defun c:aaa (/ p1 r1 d)
   
3.   ;;指定圆心
   
4.   (if p                                        ;检查是否存在用户以前输入的圆心
   ( h3 ]. c* Z7 e6 h( }# h1 o4 j
5.     (progn                                ;存在以前的圆心,作为本次输入的默认值
   
6.       (setq p1 (getpoint (strcat "\n指定圆心<"
   - n! R5 X' P$ q1 ~  C0 h
7.                                  (rtos (car p))
   5 e; M1 @# {$ J& H! p
8.                                  ","
   
9.                                  (rtos (cadr p))
   
10.                                  ","
    
11.                                  (rtos (caddr p))
    2 G/ @, F. j5 a3 W$ v$ a
12.                                  ">:"
    & r: S; l9 J" Y, _
13.                          )
    ! [0 L9 ^' @  }% D" Y8 t9 K
14.                )
    
15.       )                                        ;用户指定圆心
    ( c" s/ j+ S5 L& V2 W
16.       (if p1                                ;检查用户是否空回车.如果用户空回车,后面直接使用原值
    
17.         (setq p p1)                        ;用户输入了新圆心,保存到全局变量,用于画图和作为以后的默认值
    
18.       )
    - p8 [' w* M& w/ c! ~
19.     )
    
20.     (progn                                ;不存在以前的圆心
    
21.       (initget 1)                        ;禁止用户空回车
    ' p- n3 A; W# i3 [% N
22.       (setq p "\n指定圆心:")                ;用户指定圆心
    
23.     )
    
24.   )                                        ;指定圆心结束
    / {" Z/ `; q0 D% _+ w/ m
25.   ;;指定半径
    $ H) e2 @; u3 |
26.   (if r                                        ;检查是否存在用户以前输入的半径
    
27.     (progn                                ;存在以前的半径,作为本次输入的默认值
    
28.       (initget 6 "d")                        ;禁止输入0或负数,允许空回车和输入关键字"d"
    
29.       (setq
    
30.         r1 (getdist p (strcat "\n指定半径[直径(D)]<" (rtos r) ">:"))
    
31.       )
    / W& X3 G8 M' E
32.     )
    
33.     (progn                                ;不存在以前的半径
    
34.       (initget 7 "d")                        ;禁止空回车和输入0或负数,允许输入关键字"d"
    
35.       (setq r1 (getdist p "\n指定半径[直径(D)]:"))
    
36.     )
    
37.   )
    3 @/ j: Y) Z5 A2 z7 q2 O; @
38.   (if r1                                ;检查用户是否空回车.如果用户空回车,后面直接使用原值
    
39.     (if        (= r1 "d")                        ;输入了正值或关键字,检查是否关键字
    + P3 Z2 o  q& \( e* a4 B
40.       (progn                                ;关键字D
    ( E9 ?/ p0 [- n2 ]/ x
41.         (if r                                ;检查是否存在用户以前输入的半径
    8 n% b+ _  E5 r7 y, Y
42.           (progn                        ;存在以前的半径,作为本次输入的默认值
    7 S; X2 i7 a! e% D; H
43.             (initget 6)                        ;禁止输入0或负数,允许空回车
    3 S0 r% P4 i; _8 J/ M
44.             (setq
    5 X  _, W) a) v% T' D7 @1 l
45.               d        (getdist p (strcat "\n指定直径<" (rtos (* r 2)) ">:"))
    0 `, n; G! n) x& ]
46.             )
    1 J7 T7 m* w, C+ k- g( L
47.           )
    ! w9 t  W1 }# A: J) E
48.           (progn                        ;不存在以前的半径
    6 O( c' \  u3 }9 ~2 |& o2 A8 i- o
49.             (initget 7)                        ;禁止空回车和输入0或负数
    
50.             (setq d (getdist p "\n指定直径:"))
    & c$ _3 S4 J8 ]0 B( P4 M) R1 g$ A; d
51.           )
    # |) U" s* X  w2 r  h
52.         )
    
53.         (if d                                ;检查用户是否空回车.如果用户空回车,后面直接使用原值
    5 E) r) U3 m' H: W$ P
54.           (setq r (/ d 2))                ;用户输入了新直径,计算半径并保存到全局变量,用于画图和作为以后的默认值
    7 c3 b& u& g3 c3 O% S' G5 E4 b  W
55.         )
    / f4 l" s( Y4 k/ F" e
56.       )
    
57.       (setq r r1)                        ;用户输入了新半径,保存到全局变量,用于画图和作为以后的默认值
    
58.     )
    % J, H. _# L2 g1 m# Y# L
59.   )
    
60.   (command "circle" p r)                ;画圆
    
61.   (princ)                                ;静默推出
    
62. )

复制代码