设为首页 |收藏本站 |帮助 |加入VIP |积分充值

QQ登录

只需一步，快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步，快速开始

返回
发新贴
展开

通知     

全站
11天前
查看: 2948|回复: 8
收起左侧

[已答复] lisp语言新手 求高手救助~~~~~~~~~~~~~~~~~~

[复制链接]
dreamMore10
发表于 2013-1-26 20:38:45 | 显示全部楼层 |阅读模式 来自： 中国江苏无锡

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要 登录 才可以下载或查看，没有帐号？注册

x
(defun tk (n  /  l  w  a  c)2 ^7 S5 r  j* U
  (cond ((= n 5) (setq l 210 w 148 a 25 c 5))
  F7 d2 i& @: p3 _) B# V/ p* G        ((= n 4) (setq l 297 w 210 a 25 c 5))
2 Z& @: F: n. B" m" K        ((= n 3) (setq l 420 w 297 a 25 c 5))
  b; K! f3 M, r8 _        ((= n 2) (setq l 594 w 420 a 25 c 10))2 g& X( `$ d9 `( Q& I# @/ Q
        ((= n 1) (setq l 841 w 594 a 25 c 10))
0 K3 l9 L, F; R: \% c8 p        ((= n 0) (setq l 1189 w 841 a 25 c 10))
  b* S) j; t* C" [5 d        );cond
3 f" Z! ^! f4 r3 t" n# g) s  (command "rectangle" "0,0" (list l w))/ U" ^4 I6 J8 A# k" u
  (command "rectangle" (list a c) (list (- l c) (- w c)))
4 y) Y! Y: z5 F4 v! I! d);end; Z# Y5 d) R) c9 v6 A
/ F  Y  L& B+ r  X3 \; w- p3 Z4 k
为什么在控制台里运行的时候老是说no function definition？再简单的程序也是( C( K- L/ G; Q, T$ J
回复

举报

woaishuijia
发表于 2013-1-26 23:41:07 | 显示全部楼层 来自： 中国辽宁
本帖最后由 woaishuijia 于 2013-1-26 23:48 编辑 8 n6 G' E, o. v( K

7 N9 l1 ~7 ?+ q: ]% `运行自定义函数之前必须保证该函数已被加载
; B1 y& _2 k9 Y" T* q* t0 b如果在"Visual LISP 编辑器"的代码窗口中加载,到"Visual LISP 编辑器"的"工具"菜单下面点击"加载选定代码"或"加载编辑器中的文字"; Q! }9 `+ j  S" V3 n. w; w
如果从现有的LSP文件中加载,在CAD命令行键入"appload"命令或到图形界面的"工具"菜单下面点击"加载应用程序"
回复 支持 反对

举报

dreamMore10
 楼主| 发表于 2013-1-27 20:07:54 | 显示全部楼层 来自： 中国天津
woaishuijia 发表于 2013-1-26 23:41 static/image/common/back.gif8 H1 N( W+ f7 s2 N# q& Q
运行自定义函数之前必须保证该函数已被加载
& c. B9 [6 Y4 F; H% h; y3 M1 u如果在"Visual LISP 编辑器"的代码窗口中加载,到"Visual LISP  ...
9 @( e. O, h) R, n+ H" x
感谢版主
回复 支持 反对

举报

dreamMore10
 楼主| 发表于 2013-1-27 21:58:59 | 显示全部楼层 来自： 中国浙江宁波
本帖最后由 woaishuijia 于 2013-1-28 06:00 编辑
# `8 y: X! V* z+ C1 P; A8 s
woaishuijia 发表于 2013-1-26 23:41 http://www.3dportal.cn/discuz/static/image/common/back.gif
0 w6 i; x) i) c7 I! @+ T5 z" d运行自定义函数之前必须保证该函数已被加载
! j* v2 K4 ^1 v( s1 i8 {0 C+ o  _8 h如果在"Visual LISP 编辑器"的代码窗口中加载,到"Visual LISP  ...

) o- {1 e. V" R) G. U2 y" a5 e
. w/ h2 p# T' J7 @! p& S# V(defun tk()" V. R9 J5 d' U, m0 \) f
(setq n(getreal"图号：" ))
# j3 K3 `7 s- z/ g& A(cond ((= n 4) (setq l 297 w 210 a 25 c 5))
$ l$ n) Q0 i0 ^1 z# |      ((= n 3) (setq l 420 w 297 a 25 c 5)). X9 X2 c4 v& c4 y/ `6 N
      ((= n 2) (setq l 594 w 420 a 25 c 10))1 ~* _* R9 A/ _' R: A" D
      ((= n 1) (setq l 841 w 594 a 25 c 10))
" p9 T6 N% L/ g; b2 }( x7 T3 b1 l      ((= n 0) (setq l 1189 w 841 a 25 c 10))
! l; Z1 Z" j9 p5 A);cond) W" a/ o, P% ]; P6 P8 V! l9 w- \
(setq pt0(getpoint"\n基点：" ))2 L4 G. y0 q( j5 \
(setq x(car pt0) y (cadr pt0)); }2 h! h3 a% z& Z3 M7 I- A6 B4 P
(command "rectang" (list x y) (list (+ x l) (+ y w)))
1 D5 [) j* T% w5 w7 X(command "rectang" (list (+ x a) (+ y c)) (list (-(+ x l) c) (-(+ y w) c))), q! O4 Y4 F/ P; V' F8 v0 {
);end
% p5 T3 y/ o( s( Q7 X/ y版主再帮我看一下这个程序为什么画出来是两个重合的图框？谢谢了
回复 支持 反对

举报

dreamMore10
 楼主| 发表于 2013-1-27 22:00:41 | 显示全部楼层 来自： 中国北京
括号变成表情了。。。
回复 支持 反对

举报

woaishuijia
发表于 2013-1-28 06:13:53 | 显示全部楼层 来自： 中国辽宁
dreamMore10 发表于 2013-1-27 21:58 static/image/common/back.gif$ y1 T8 U+ j$ E( r- R  o1 q
(defun tk()
5 a! i) F, k9 T: B8 |$ s(setq n(getreal"图号：" ))
* T9 l- @/ M" q(cond ((= n 4) (setq l 297 w 210 a 25 c 5))

" y! [2 e- a" \, j0 }是对象捕捉在捣乱
* U3 Z3 x9 L) N% M. K! Q( p" gLSP程序中通常要临时关闭对象捕捉
  1. (defun tk (/ n l w a c os)
    ' n  h* l- ^! z9 r. j2 z
  2.   (setq        os (getvar "osmode");记住用户对象捕捉设置- q+ }, C0 O0 b. j0 @
  3.         n  (getreal "图号：")
    , P% N8 p+ P$ j% F5 I6 E) k
  4.   )
    ( Z1 w* u# P- |% l
  5.   (setvar "osmode" 0);关闭对象捕捉: e1 ?- o* Q$ N. c- f# Z5 Z; |( m
  6.   (cond        ((= n 4)7 q4 U' W3 K7 T) e, I
  7.          (setq l 297" @5 |' A1 i& }% O/ n0 I% N9 n$ Y
  8.                w 210
    5 h  w, M* N. R! F8 x
  9.                a 25  `2 E0 \& L( c, L7 R  W: L# U1 N
  10.                c 56 e/ A* h% `2 b4 y1 _
  11.          )
    ; Y  Z! z: Z4 F  z, ~
  12.         )
    ( D4 P  S/ I9 ~1 x( c; V
  13.         ((= n 3)
    + \9 Y, X( q  z; m5 |
  14.          (setq l 4206 ~0 u2 Q8 a/ }4 K/ v# _
  15.                w 297
    " Z% s. E" ?. m4 p+ e" b
  16.                a 25. U, |3 F' a- }' M* A$ B
  17.                c 5
    ; Q, l% K- T8 Y4 O" J0 |* W
  18.          )
    4 e3 ~9 G# G* U* F! u8 Z
  19.         ); ?% }" P# f7 K1 D% [
  20.         ((= n 2)
      g2 S/ _7 v' @9 c$ ^
  21.          (setq l 594
    ( ]) T" u% P1 J) }4 i" m0 p& _0 W1 I+ O
  22.                w 420
    . a3 \" K# o1 {! p) E0 B
  23.                a 25
    , i( O: {: _8 f& B5 c
  24.                c 10' e3 z. b) h* ]! t/ w2 l
  25.          )
    # J' g* `7 d7 G; d7 c( o. P
  26.         )
    * E5 T% N7 e0 c' ^
  27.         ((= n 1)9 [4 b% \% ]; g5 w, m" @
  28.          (setq l 841
    6 q3 }) k& a% y' w
  29.                w 594
    2 X; P$ E* F# y' H- p9 v
  30.                a 25) C$ H( `8 c$ {( i" a  f
  31.                c 10( q- D0 ~6 k4 |/ y7 E$ z; Q
  32.          )
    % g6 {5 J: d" A8 F" p- m
  33.         )
    7 G2 t1 }+ x4 ]5 k1 }
  34.         ((= n 0)6 }+ b: h* l. m8 c* Z
  35.          (setq l 11893 P( J0 c+ p% J' V0 P" N  g) V, k
  36.                w 841+ I3 ]2 A) V- ~/ t8 s
  37.                a 25
    + i* F- A* t( p' S) H% m
  38.                c 10% e& p5 O4 X1 k2 h9 f2 C8 c
  39.          )% i! b. u  G" {5 Z4 V* d
  40.         )
    ) M! L, w9 o7 }0 c- B# H
  41.   )                                        ;cond
    6 }) H3 a2 d: z
  42.   (setq pt0 (getpoint "\n基点：")): u6 l$ v: K1 R6 z
  43.   (setq        x (car pt0)% I3 z- ?: ]7 @2 |
  44.         y (cadr pt0)( F/ o0 H5 H6 l
  45.   )& L& _5 J4 u; T" X: S3 b: B& i
  46.   (command "rectang" (list x y) (list (+ x l) (+ y w)))
      N: t6 d  _9 ^, h. j. O
  47.   (command "rectang"8 k# \/ }  _/ G
  48.            (list (+ x a) (+ y c))
    . b2 N3 ?, w- D
  49.            (list (- (+ x l) c) (- (+ y w) c))
    9 r% h- I- @1 B7 i3 {3 Z* S
  50.   )
    ( k0 [0 ]. e4 Q1 a' I
  51.   (setvar "osmode" os);恢复用户对象捕捉设置* s9 }2 l0 z# J0 B# O1 r
  52. )                                        ;end
复制代码
回复 支持 反对

举报

dreamMore10
 楼主| 发表于 2013-1-28 12:01:45 | 显示全部楼层 来自： 中国上海
woaishuijia 发表于 2013-1-28 06:13 static/image/common/back.gif2 n! z# c. B6 j. G8 T$ B
是对象捕捉在捣乱/ ?/ q) C5 g" j1 O2 b- x
LSP程序中通常要临时关闭对象捕捉

: ^4 d. c+ W# n% n谢谢
回复 支持 反对

举报

wlchsd
发表于 2013-7-23 17:20:35 | 显示全部楼层 来自： 中国湖北武汉
一看就是高手啊
回复 支持 反对

举报

djh1006
发表于 2013-10-9 12:32:39 | 显示全部楼层 来自： 中国台湾
真是高手，學習了
回复 支持 反对

举报

发表回复
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表