lisp语言新手 求高手救助~~~~~~~~~~~~~~~~~~

dreamMore10

(defun tk (n  /  l  w  a  c)
  (cond ((= n 5) (setq l 210 w 148 a 25 c 5))
        ((= n 4) (setq l 297 w 210 a 25 c 5))
        ((= n 3) (setq l 420 w 297 a 25 c 5))
        ((= n 2) (setq l 594 w 420 a 25 c 10))
        ((= n 1) (setq l 841 w 594 a 25 c 10))
7 i" v# A  v0 H; ]$ V+ j/ x& A        ((= n 0) (setq l 1189 w 841 a 25 c 10))
1 q, y$ I1 f, T7 |0 c$ @5 L3 H        );cond
! q+ {  Z6 o2 }3 x+ d# C7 ?. D  (command "rectangle" "0,0" (list l w))
# f5 @4 l8 s" V1 b* s  (command "rectangle" (list a c) (list (- l c) (- w c)))
3 ]% g/ V/ L6 U1 @: p! u7 I$ D);end

为什么在控制台里运行的时候老是说no function definition？再简单的程序也是

woaishuijia

8 q& J% V9 t- Z# {
运行自定义函数之前必须保证该函数已被加载
3 C( o9 |5 ~* b/ B; ?1 B如果在"Visual LISP 编辑器"的代码窗口中加载,到"Visual LISP 编辑器"的"工具"菜单下面点击"加载选定代码"或"加载编辑器中的文字"
如果从现有的LSP文件中加载,在CAD命令行键入"appload"命令或到图形界面的"工具"菜单下面点击"加载应用程序"

dreamMore10

woaishuijia 发表于 2013-1-26 23:41 static/image/common/back.gif
运行自定义函数之前必须保证该函数已被加载
如果在"Visual LISP 编辑器"的代码窗口中加载,到"Visual LISP  ...

感谢版主

dreamMore10

' ^( x* U4 V6 a0 M6 @# d) ^

woaishuijia 发表于 2013-1-26 23:41 http://www.3dportal.cn/discuz/static/image/common/back.gif
运行自定义函数之前必须保证该函数已被加载
如果在"Visual LISP 编辑器"的代码窗口中加载,到"Visual LISP  ...

1 {/ F5 q+ Z7 T, b) M9 |, m(defun tk()
2 F6 r5 `# g7 x0 F. D. T" p(setq n(getreal"图号：" ))
(cond ((= n 4) (setq l 297 w 210 a 25 c 5))
      ((= n 3) (setq l 420 w 297 a 25 c 5))
      ((= n 2) (setq l 594 w 420 a 25 c 10))
- x5 R+ b& G! j1 \7 l      ((= n 1) (setq l 841 w 594 a 25 c 10))
      ((= n 0) (setq l 1189 w 841 a 25 c 10))
);cond
$ V: }$ R1 u7 C" h4 ?(setq pt0(getpoint"\n基点：" ))
1 R% E- ?; |) B# k' Q(setq x(car pt0) y (cadr pt0))
1 T" S0 E; L9 S3 w8 o(command "rectang" (list x y) (list (+ x l) (+ y w)))
(command "rectang" (list (+ x a) (+ y c)) (list (-(+ x l) c) (-(+ y w) c)))
);end
) t% w1 ?* P6 I+ k版主再帮我看一下这个程序为什么画出来是两个重合的图框？谢谢了

dreamMore10

括号变成表情了。。。

woaishuijia

dreamMore10 发表于 2013-1-27 21:58 static/image/common/back.gif
(defun tk()
(setq n(getreal"图号：" ))
(cond ((= n 4) (setq l 297 w 210 a 25 c 5))

是对象捕捉在捣乱
LSP程序中通常要临时关闭对象捕捉

1. (defun tk (/ n l w a c os)
   
2.   (setq        os (getvar "osmode");记住用户对象捕捉设置
   
3.         n  (getreal "图号：")
   
4.   )
   
5.   (setvar "osmode" 0);关闭对象捕捉
   5 i9 ^. v5 h2 a% c- o! G
6.   (cond        ((= n 4)
   
7.          (setq l 297
   / L# N5 `0 h) @. l) b$ w, R9 O
8.                w 210
   % z  z$ c+ b) v5 V9 x& o
9.                a 25
   ; ^) }$ ^* R5 Q' ~: H: }) u
10.                c 5
      n) m% m  G6 ~: p  s& a8 e
11.          )
      M  M  {0 k) @5 \' o1 P3 L
12.         )
    $ k! u' Z! L' G+ a+ F  h
13.         ((= n 3)
    $ A$ P6 D( ^' K/ d# Q
14.          (setq l 420
    
15.                w 297
    6 {, p# Q& Y$ U
16.                a 25
    
17.                c 5
    2 }$ ]% G, w0 S5 i
18.          )
    
19.         )
    4 _6 M2 H5 l2 F- ^$ Z; |6 G
20.         ((= n 2)
    
21.          (setq l 594
    & x& ^" e  m2 ?
22.                w 420
    8 U, G1 _' F2 k$ i
23.                a 25
    0 V2 t% \5 ~$ e! O5 P
24.                c 10
    % E+ s! Z2 F. ]( J% X1 }
25.          )
    
26.         )
    " H' F- C5 U/ W( ~0 u
27.         ((= n 1)
    - N# j6 V/ W! J8 N5 \  V, E
28.          (setq l 841
    : u& z. H" u" P# C
29.                w 594
    0 M9 u* b7 m  J
30.                a 25
    0 z  k, u1 u! t7 n' g
31.                c 10
    9 J# S; Y4 t" i) ]1 q+ m. r; X8 \
32.          )
    & p7 P& [( q  d9 m0 y( E! r5 ?
33.         )
    $ J( P, F9 I" V2 E
34.         ((= n 0)
    
35.          (setq l 1189
    
36.                w 841
    * Y% C* W& u$ J& Y/ {# k2 D
37.                a 25
    
38.                c 10
    2 f, _# B0 @3 I# W
39.          )
    8 K" c& K* s; I7 Q
40.         )
    
41.   )                                        ;cond
    
42.   (setq pt0 (getpoint "\n基点："))
    
43.   (setq        x (car pt0)
    
44.         y (cadr pt0)
    ; C2 w1 Z9 |# S
45.   )
    , q& g( Z( K" u6 h4 W1 s4 Z
46.   (command "rectang" (list x y) (list (+ x l) (+ y w)))
    
47.   (command "rectang"
    
48.            (list (+ x a) (+ y c))
    
49.            (list (- (+ x l) c) (- (+ y w) c))
    8 V/ u; [' Q# v, ~: \
50.   )
    
51.   (setvar "osmode" os);恢复用户对象捕捉设置
    & _  b: @2 W" \1 `" l% P3 a! n: {
52. )                                        ;end

复制代码

dreamMore10

woaishuijia 发表于 2013-1-28 06:13 static/image/common/back.gif
是对象捕捉在捣乱
' p8 }3 }. Q1 p  y. ]3 HLSP程序中通常要临时关闭对象捕捉

谢谢

wlchsd

一看就是高手啊

djh1006

真是高手，學習了