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

QQ登录

只需一步，快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步，快速开始

返回
发新贴
展开

通知     

查看: 3069|回复: 8
收起左侧

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

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

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

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

x
(defun tk (n  /  l  w  a  c)2 t* p0 o* i& z& E# ?
  (cond ((= n 5) (setq l 210 w 148 a 25 c 5))
2 i, D5 O2 V( _4 W! J- j/ g        ((= n 4) (setq l 297 w 210 a 25 c 5))
- {% T$ C# X6 n4 [% F! R2 P, `        ((= n 3) (setq l 420 w 297 a 25 c 5))8 l: y( f8 z: Z7 [2 N( P
        ((= n 2) (setq l 594 w 420 a 25 c 10))
5 z5 X8 N* M7 t+ v( t4 \        ((= n 1) (setq l 841 w 594 a 25 c 10)): v4 e% E$ f" @: H7 X) U! a: ~" U
        ((= n 0) (setq l 1189 w 841 a 25 c 10))
6 |% P; w9 T' S1 X% R) r2 ]- _+ r        );cond
" b+ h- n9 }" Q* m' m3 H% }, t  (command "rectangle" "0,0" (list l w))) M6 m  t5 n4 Q
  (command "rectangle" (list a c) (list (- l c) (- w c)))9 u9 G5 q- `8 X- e
);end
8 t9 y+ f1 {' F2 z3 Y  d5 S% i. \5 E6 V7 O) `& q
为什么在控制台里运行的时候老是说no function definition？再简单的程序也是
& N1 m4 F0 v" j  y5 z8 \2 |
回复

举报

woaishuijia
发表于 2013-1-26 23:41:07 | 显示全部楼层 来自： 中国辽宁
本帖最后由 woaishuijia 于 2013-1-26 23:48 编辑
$ `9 ]5 ]; v% x2 x& d* c7 k  r4 `9 ~& I
运行自定义函数之前必须保证该函数已被加载
6 b1 [# f9 L$ o5 }) T( A% ?2 q: y如果在"Visual LISP 编辑器"的代码窗口中加载,到"Visual LISP 编辑器"的"工具"菜单下面点击"加载选定代码"或"加载编辑器中的文字"
9 J% E8 k0 _+ c7 f# c+ A' ?如果从现有的LSP文件中加载,在CAD命令行键入"appload"命令或到图形界面的"工具"菜单下面点击"加载应用程序"
回复 支持 反对

举报

dreamMore10
 楼主| 发表于 2013-1-27 20:07:54 | 显示全部楼层 来自： 中国天津
woaishuijia 发表于 2013-1-26 23:41 static/image/common/back.gif$ j6 `; d- l# S: c4 x' \
运行自定义函数之前必须保证该函数已被加载! @4 f' @( U1 O  Y
如果在"Visual LISP 编辑器"的代码窗口中加载,到"Visual LISP  ...

9 u* a) ?0 L4 k, c# T7 d0 y# B感谢版主
回复 支持 反对

举报

dreamMore10
 楼主| 发表于 2013-1-27 21:58:59 | 显示全部楼层 来自： 中国浙江宁波
本帖最后由 woaishuijia 于 2013-1-28 06:00 编辑 " |& H& x# ~! F+ R& F& q
woaishuijia 发表于 2013-1-26 23:41 http://www.3dportal.cn/discuz/static/image/common/back.gif
+ M$ p7 o. _9 N# P, _/ r运行自定义函数之前必须保证该函数已被加载( v# {1 e  i' D) p
如果在"Visual LISP 编辑器"的代码窗口中加载,到"Visual LISP  ...

! x# p  {6 z* j9 v, |1 a3 t+ y5 E! d; r
(defun tk()
0 k/ @: z7 g; I: |" m(setq n(getreal"图号：" ))/ J' b; P8 c1 a1 {) `
(cond ((= n 4) (setq l 297 w 210 a 25 c 5))
9 Y  P. Y+ J( P) G8 G( w      ((= n 3) (setq l 420 w 297 a 25 c 5))- j4 O& U8 g) }& T# [: @  O% b
      ((= n 2) (setq l 594 w 420 a 25 c 10))* f) D8 M8 [8 P  P& [
      ((= n 1) (setq l 841 w 594 a 25 c 10))! Y7 e# y% C. ]; j  C
      ((= n 0) (setq l 1189 w 841 a 25 c 10))" J3 g$ V8 X# y
);cond
( H8 z  L" u0 w( t7 f$ v# \(setq pt0(getpoint"\n基点：" ))
7 d; Q; u8 \; U0 t& L- t(setq x(car pt0) y (cadr pt0))' O  ?: V% ]7 U8 k
(command "rectang" (list x y) (list (+ x l) (+ y w)))5 X; ~6 e# Q- P
(command "rectang" (list (+ x a) (+ y c)) (list (-(+ x l) c) (-(+ y w) c))); m9 ]# D& [5 O% @7 ~2 [7 v
);end
1 a$ e* D% R8 N/ G+ k! ~2 ]版主再帮我看一下这个程序为什么画出来是两个重合的图框？谢谢了
回复 支持 反对

举报

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
( x" n* _0 E" z% s* z(defun tk()  G; N0 I& M5 z/ ]# [  g9 O& _! i, l& G
(setq n(getreal"图号：" )): a2 p) h. ]$ c9 y$ O
(cond ((= n 4) (setq l 297 w 210 a 25 c 5))

7 o, [! s1 W, y) j; s6 Y3 ~8 A3 I是对象捕捉在捣乱
* G8 W4 j6 @: w6 OLSP程序中通常要临时关闭对象捕捉
  1. (defun tk (/ n l w a c os)3 Z# N* G7 a# @6 [1 f/ M/ C* R
  2.   (setq        os (getvar "osmode");记住用户对象捕捉设置
    - \! }+ o3 U8 K
  3.         n  (getreal "图号：")
    , q! f, T% B* y. K7 r; q1 t; ]* a
  4.   )
    8 g! v: F- a, M+ V5 ^; W
  5.   (setvar "osmode" 0);关闭对象捕捉
    5 j$ g; F3 V9 J  x3 R
  6.   (cond        ((= n 4)
    , |0 Y) @2 U6 _; O" _- M& f
  7.          (setq l 297. K. r( ?( |9 t4 l) \/ F* x
  8.                w 210" @4 A" t" q- ]1 ?6 w
  9.                a 25
    ' I/ ]5 p2 N, U& w3 u
  10.                c 5
    6 m) p/ i, C( u: I
  11.          )
    + e7 g* P+ l- p. X
  12.         )
    4 S9 f+ O; p' s7 W
  13.         ((= n 3)- a" A2 ?" O! p
  14.          (setq l 420* |" A" d" R' B
  15.                w 297+ e  [% S5 C! y3 @4 T& H3 i) l
  16.                a 25
    / l% \! m4 B3 u% z% f+ @+ y
  17.                c 5
    / ^5 v$ y9 ?( l% Z, e% D) Y  P" ?
  18.          )
    % I2 `3 L+ _: t: u
  19.         )
    : L* C8 L- Q. [* S( b3 J
  20.         ((= n 2)
    & J2 i0 h7 O/ i; t
  21.          (setq l 594# Y2 ^8 {9 ~) |  [7 b4 Q5 ]
  22.                w 420
    * h) N9 E1 \: \% F3 `5 f
  23.                a 251 R& ]+ o0 ?& m& W4 X
  24.                c 10
    ; @7 k+ T3 t9 w8 Q0 {* L  n
  25.          )
    + H9 f# }; c' c1 C* z
  26.         )" N7 d+ o& B& ^( h6 R8 a
  27.         ((= n 1)* a$ i+ i, w! r9 u8 R- p# l- J
  28.          (setq l 841
    ( F2 A* U- t! y/ ~; S7 R
  29.                w 594
    & E& N1 {  U9 ^) s3 |3 J7 l
  30.                a 255 Z( w0 I1 n: _7 |+ d
  31.                c 10
    & q) Y! V5 Z& p  S3 |0 X8 k* i
  32.          )9 k: T8 W- l& Q, r4 N/ ^
  33.         )
    # g% Q  M# ]( B9 Q5 n) n( n
  34.         ((= n 0)( V6 \0 N7 [0 M. _
  35.          (setq l 1189* |0 {% Y* V6 A& E/ j$ W
  36.                w 841* e) a: `4 Z1 ~4 ^  r$ ]; l- U
  37.                a 25
      ^. U& B2 s% y) U
  38.                c 109 Q/ A3 z  J0 ?6 {! @
  39.          )4 q( T' u: B7 a
  40.         )) C* N) v4 J( R, W# b
  41.   )                                        ;cond
    " g2 y8 e/ s; \% `$ x' s/ R
  42.   (setq pt0 (getpoint "\n基点："))$ g5 R, V: K7 O5 d$ P  N6 n& T
  43.   (setq        x (car pt0), F' O$ P7 F! ^9 g6 p
  44.         y (cadr pt0)
      K1 U) B, J$ b9 Q( V5 Q
  45.   )/ Z- q# Z) o9 p  @" F& f8 G! C
  46.   (command "rectang" (list x y) (list (+ x l) (+ y w)))) d- J2 f6 [6 m
  47.   (command "rectang"
    " E) u( `( P/ `8 h  Y
  48.            (list (+ x a) (+ y c))
    ! d- w& I; K: w  Z* v6 M9 H
  49.            (list (- (+ x l) c) (- (+ y w) c))8 b9 K& z% _6 E6 M' l/ r- U
  50.   )" g+ R9 p0 D( Y; a3 @$ m
  51.   (setvar "osmode" os);恢复用户对象捕捉设置
    ( ~/ j+ c% L+ Q7 Y6 k" ^
  52. )                                        ;end
复制代码
回复 支持 反对

举报

dreamMore10
 楼主| 发表于 2013-1-28 12:01:45 | 显示全部楼层 来自： 中国上海
woaishuijia 发表于 2013-1-28 06:13 static/image/common/back.gif4 T0 a/ q# b4 l6 O
是对象捕捉在捣乱
: H2 [- U1 ?& SLSP程序中通常要临时关闭对象捕捉

: Y  b, V0 I# S谢谢
回复 支持 反对

举报

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 )

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