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

dreamMore10

(defun tk (n  /  l  w  a  c)
6 p: N: a$ ~: |) k! N, k  G# p$ c4 u  (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))
* ~4 ~9 @% L# O, P9 {2 \9 _        ((= n 1) (setq l 841 w 594 a 25 c 10))
1 Y& m' Q% ?" t% b2 S* p: @        ((= n 0) (setq l 1189 w 841 a 25 c 10))
2 o7 c/ l) [: K        );cond
  (command "rectangle" "0,0" (list l w))
  (command "rectangle" (list a c) (list (- l c) (- w c)))
' Y( P, s: y" w' d# W* i);end
6 w$ C" e6 Y2 H6 {$ r* N, H: q. o
为什么在控制台里运行的时候老是说no function definition？再简单的程序也是
! T" T& a$ }8 o; _

woaishuijia

( m$ \9 s4 ]6 [+ Y( m" p运行自定义函数之前必须保证该函数已被加载
/ G7 }" h! v4 g+ s% \: Y如果在"Visual LISP 编辑器"的代码窗口中加载,到"Visual LISP 编辑器"的"工具"菜单下面点击"加载选定代码"或"加载编辑器中的文字"
' p) p" ^1 e8 w) b5 u$ X7 _如果从现有的LSP文件中加载,在CAD命令行键入"appload"命令或到图形界面的"工具"菜单下面点击"加载应用程序"

dreamMore10

woaishuijia 发表于 2013-1-26 23:41 static/image/common/back.gif
$ U$ c) `0 f' p9 T( k" m' x运行自定义函数之前必须保证该函数已被加载
% z( |4 T5 E! m) f# F# ]" e如果在"Visual LISP 编辑器"的代码窗口中加载,到"Visual LISP  ...

感谢版主

dreamMore10

woaishuijia 发表于 2013-1-26 23:41 http://www.3dportal.cn/discuz/static/image/common/back.gif
6 |1 Z+ c4 o, E- u6 @& p. ~运行自定义函数之前必须保证该函数已被加载
# t! I: Z* h5 v0 M+ [) E如果在"Visual LISP 编辑器"的代码窗口中加载,到"Visual LISP  ...

6 x+ {2 ]- M, |: g(defun tk()
% z; V9 c6 j# q7 I; J# l* @# v- z(setq n(getreal"图号：" ))
; t. W6 v0 V& C! U/ W5 J6 I, [(cond ((= n 4) (setq l 297 w 210 a 25 c 5))
      ((= n 3) (setq l 420 w 297 a 25 c 5))
/ R0 ?8 |. ]0 ~# U9 m' l+ Q: }      ((= n 2) (setq l 594 w 420 a 25 c 10))
8 v1 p. T7 s7 |+ H      ((= n 1) (setq l 841 w 594 a 25 c 10))
      ((= n 0) (setq l 1189 w 841 a 25 c 10))
7 }% a: G  S% K5 Z1 Q! M* Y);cond
(setq pt0(getpoint"\n基点：" ))
0 M: Q/ ?' s! z; G6 N- D! j5 f4 w' U(setq x(car pt0) y (cadr pt0))
(command "rectang" (list x y) (list (+ x l) (+ y w)))
(command "rectang" (list (+ x a) (+ y c)) (list (-(+ x l) c) (-(+ y w) c)))
* E) z; B3 o/ X4 I4 Z( n% ^  K);end
版主再帮我看一下这个程序为什么画出来是两个重合的图框？谢谢了

dreamMore10

括号变成表情了。。。

woaishuijia

dreamMore10 发表于 2013-1-27 21:58 static/image/common/back.gif
  C4 J2 w( K! O' E(defun tk()
(setq n(getreal"图号：" ))
: z: @. I$ j" G# u! E. N- F" y4 j- q(cond ((= n 4) (setq l 297 w 210 a 25 c 5))

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

1. (defun tk (/ n l w a c os)
   # [- Z% A- D9 N
2.   (setq        os (getvar "osmode");记住用户对象捕捉设置
   
3.         n  (getreal "图号：")
   
4.   )
   
5.   (setvar "osmode" 0);关闭对象捕捉
   * i/ ?/ \/ l- R  ~0 G: {* ?1 F
6.   (cond        ((= n 4)
   
7.          (setq l 297
   
8.                w 210
   # M% ~: D& W1 e% t' f
9.                a 25
   + T: b4 d6 B. t7 z) B
10.                c 5
      v1 M5 ^0 F. s, p
11.          )
    
12.         )
    
13.         ((= n 3)
    
14.          (setq l 420
    
15.                w 297
    
16.                a 25
    
17.                c 5
    
18.          )
    " K6 b; `% S5 e3 ?) l
19.         )
    ' h9 ?" R& r0 U* S5 c  c. v
20.         ((= n 2)
    : ^) z. ~+ f/ I9 Q
21.          (setq l 594
    - P, O' ?/ f/ ?+ l, G% \& e7 L: j1 z
22.                w 420
    
23.                a 25
    
24.                c 10
    
25.          )
    
26.         )
    0 s# @& n" c' F: p. ~0 q7 ^
27.         ((= n 1)
    * b( @* I  q4 C
28.          (setq l 841
    ( C" @" G3 _: c
29.                w 594
    , s8 Z3 I4 m& Q, n/ R2 L
30.                a 25
    2 X1 _4 C: e6 G7 B7 t
31.                c 10
    / |* I% y' l8 ^$ S9 b, I
32.          )
    / H3 {5 d  _$ B9 @4 _, [+ v( m
33.         )
    0 }7 D: s* [" n3 t
34.         ((= n 0)
    5 B+ s2 E0 y9 j! G# C
35.          (setq l 1189
    0 l3 p" \1 A: x. e
36.                w 841
    
37.                a 25
    
38.                c 10
    3 K! V. Q* q8 ~; |
39.          )
    
40.         )
    $ X0 I- E' h+ R
41.   )                                        ;cond
    
42.   (setq pt0 (getpoint "\n基点："))
    
43.   (setq        x (car pt0)
    
44.         y (cadr pt0)
    : m) }5 P; b( U4 ~' R7 A$ w
45.   )
    . p6 n5 g8 ~' f1 f
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))
    2 z/ I2 g! i: D$ V7 r9 Q8 |
50.   )
    2 u4 J  z$ G2 D6 F- H! _/ S7 B
51.   (setvar "osmode" os);恢复用户对象捕捉设置
    
52. )                                        ;end

复制代码

dreamMore10

woaishuijia 发表于 2013-1-28 06:13 static/image/common/back.gif
/ B: A5 {8 s* J  a3 j& Y是对象捕捉在捣乱
3 W; A  Y7 ^- N4 r, WLSP程序中通常要临时关闭对象捕捉

- D0 @4 _7 f# y" V谢谢

wlchsd

一看就是高手啊

djh1006

真是高手，學習了