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

QQ登录

只需一步，快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步，快速开始

返回
发新贴
展开

通知     

全站
9天前
查看: 2943|回复: 8
收起左侧

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

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

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

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

x
(defun tk (n  /  l  w  a  c)* _: ?: k4 y  P: B/ y% s
  (cond ((= n 5) (setq l 210 w 148 a 25 c 5))/ c! W+ ?; ?/ i) c( Q5 i3 {+ l
        ((= n 4) (setq l 297 w 210 a 25 c 5))
; \4 t& D2 {2 V9 `2 j# ~        ((= n 3) (setq l 420 w 297 a 25 c 5))
) v% r' g6 D$ S' Z  U6 i4 Z        ((= n 2) (setq l 594 w 420 a 25 c 10)): q3 @% U+ \# v' J! D4 b: v
        ((= n 1) (setq l 841 w 594 a 25 c 10))
( m& N/ h4 p1 `  `* n& @2 L        ((= n 0) (setq l 1189 w 841 a 25 c 10))
! Y- ~9 o- x  y: L! t* U% t        );cond1 L" O4 n8 z/ h# `6 s* ]
  (command "rectangle" "0,0" (list l w))3 j- `( M( A, D% u! A+ N  x
  (command "rectangle" (list a c) (list (- l c) (- w c)))
; o; V, I- I, ~! P8 ?/ U);end
% v5 l- s3 A8 m+ v; E$ `) U$ H% H/ r& J: m; Z: T3 ~- q
为什么在控制台里运行的时候老是说no function definition？再简单的程序也是
& u* \5 u1 v" R" v
回复

举报

woaishuijia
发表于 2013-1-26 23:41:07 | 显示全部楼层 来自： 中国辽宁
本帖最后由 woaishuijia 于 2013-1-26 23:48 编辑 + X) X% c( p2 y5 F6 i# d2 @

; s" V5 G% Y, k运行自定义函数之前必须保证该函数已被加载
1 }9 K0 |6 z6 u7 S1 x" U. Z如果在"Visual LISP 编辑器"的代码窗口中加载,到"Visual LISP 编辑器"的"工具"菜单下面点击"加载选定代码"或"加载编辑器中的文字"* m! i' l4 h; A1 C
如果从现有的LSP文件中加载,在CAD命令行键入"appload"命令或到图形界面的"工具"菜单下面点击"加载应用程序"
回复 支持 反对

举报

dreamMore10
 楼主| 发表于 2013-1-27 20:07:54 | 显示全部楼层 来自： 中国天津
woaishuijia 发表于 2013-1-26 23:41 static/image/common/back.gif& y  Q2 r, U9 v
运行自定义函数之前必须保证该函数已被加载
7 e3 ?) y% i* M, ]& B* y2 i如果在"Visual LISP 编辑器"的代码窗口中加载,到"Visual LISP  ...

, J7 w" Z; n8 `6 y; @感谢版主
回复 支持 反对

举报

dreamMore10
 楼主| 发表于 2013-1-27 21:58:59 | 显示全部楼层 来自： 中国浙江宁波
本帖最后由 woaishuijia 于 2013-1-28 06:00 编辑 & I% T9 |8 g5 V4 p' N  S
woaishuijia 发表于 2013-1-26 23:41 http://www.3dportal.cn/discuz/static/image/common/back.gif6 Y% `1 V6 s7 n$ j, \$ F4 m
运行自定义函数之前必须保证该函数已被加载9 k0 J8 c$ E  s5 a/ Y- p* P/ Y
如果在"Visual LISP 编辑器"的代码窗口中加载,到"Visual LISP  ...

  h4 t! i$ u  A5 |2 p4 Z) Z: E! w* J" F4 c( y0 G
(defun tk()2 S" _' K0 [& N) @. A- G
(setq n(getreal"图号：" )), j  t; k0 i  J6 Z( ?7 \$ e
(cond ((= n 4) (setq l 297 w 210 a 25 c 5)). {  V) j* f1 h9 C* B# T7 I. K
      ((= n 3) (setq l 420 w 297 a 25 c 5))- U: k$ g  l; }3 p  X8 ^
      ((= n 2) (setq l 594 w 420 a 25 c 10))
$ x5 ?+ A  p! n4 l      ((= n 1) (setq l 841 w 594 a 25 c 10))0 z# R" t: I" P% {* I6 Y+ ]& y
      ((= n 0) (setq l 1189 w 841 a 25 c 10))/ ~. w% Y& V- g& U; |
);cond
4 P! O+ K5 Z2 z! V6 H(setq pt0(getpoint"\n基点：" ))7 _8 k! r; ?9 V) }0 }
(setq x(car pt0) y (cadr pt0))8 v6 l. h# i; E4 a3 d5 y( S
(command "rectang" (list x y) (list (+ x l) (+ y w)))
9 K- J# N% X5 f; j' ], M4 j7 p(command "rectang" (list (+ x a) (+ y c)) (list (-(+ x l) c) (-(+ y w) c))); @: V& E% G( K/ j0 P$ O/ D
);end
% q& i: b. `. f1 ^5 U' l% ~版主再帮我看一下这个程序为什么画出来是两个重合的图框？谢谢了
回复 支持 反对

举报

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
+ G4 T/ `* I, s, v( @' H( L(defun tk()7 ?' G/ j7 t- S1 L. m5 Y
(setq n(getreal"图号：" )): b0 u8 C, p5 O5 |) G
(cond ((= n 4) (setq l 297 w 210 a 25 c 5))
* V$ I) J5 h/ G4 h% f# K
是对象捕捉在捣乱$ c& K. N% M: e; J2 I% B( O
LSP程序中通常要临时关闭对象捕捉
  1. (defun tk (/ n l w a c os)3 V3 @8 G3 I: r
  2.   (setq        os (getvar "osmode");记住用户对象捕捉设置
    " `/ A. p- @5 W4 B- F& @9 i
  3.         n  (getreal "图号：")
    2 R7 O& L9 i) k
  4.   )
    0 H$ V5 s5 @% o9 y
  5.   (setvar "osmode" 0);关闭对象捕捉
    $ Y4 l$ h, L$ y
  6.   (cond        ((= n 4)
    % k8 Q0 }' ~8 |
  7.          (setq l 297
    ! h. L  ^: |# y! ~6 ]
  8.                w 210- f0 a- T6 ?+ Q9 u8 f1 y) b  d
  9.                a 25& D# J0 r" a3 s1 X' g+ ?
  10.                c 55 C0 s$ `6 r8 F' {' S
  11.          )
    & @) l7 M2 `: q/ q( N0 J$ m
  12.         )2 j- h: ^2 P! [* v: L- y/ Y& w# U
  13.         ((= n 3)5 t1 _5 K0 L  g2 q, m1 s; _1 X" |
  14.          (setq l 420' c# S( D* f: z; ^: S7 E
  15.                w 297+ q& e8 j! A0 Y" @; _8 {: u  b
  16.                a 25
    8 f& K0 v9 x! ~
  17.                c 5
    4 E/ J7 T8 C% r9 g
  18.          )9 k1 Z; u0 M9 e
  19.         )
    * u+ p6 E4 A6 x- Z4 H
  20.         ((= n 2)' |5 A% X( s2 T* _( T
  21.          (setq l 594$ {! r" l' l8 {1 z' I$ K
  22.                w 420
    ! ^  S3 t" s4 m# g6 w6 J
  23.                a 25
    2 T5 K4 ?1 U, V! u! l( y! N
  24.                c 10+ A$ C8 i; ]  q5 C
  25.          )
    5 j, c, F5 J/ u$ _& w
  26.         )  T; ?' H: k. ?5 t) V! i" ?
  27.         ((= n 1)
    7 E& k4 Z* m& t/ ]8 N$ ?
  28.          (setq l 841
    2 g2 w7 L+ o. d
  29.                w 5940 j1 M3 D! A5 z, P
  30.                a 25
    , w0 v) ]4 `0 B2 S  G2 U3 ^: ?
  31.                c 10. V+ i! e( n% |% b+ Z! z/ i/ Q% @
  32.          )
    ) d* y* X( G2 o" l# w
  33.         )  Q* Q5 T+ A! ]
  34.         ((= n 0)+ T. I( F4 }  V7 N" ?
  35.          (setq l 11891 D2 T4 u9 L/ K7 k- G" s
  36.                w 841
    3 J6 ^: @* K" X& l8 g
  37.                a 25( R6 }2 }" W; Y* ?
  38.                c 10
    ' _& A5 y+ L. h0 c* c& c* U4 y
  39.          )8 l4 R9 A  ?3 f. F( G
  40.         ): v5 w0 O$ }9 M% y+ {9 n
  41.   )                                        ;cond
    - i6 n$ ~8 _: d$ y! f, E* [
  42.   (setq pt0 (getpoint "\n基点："))
    : _! O0 h% c, ?3 A
  43.   (setq        x (car pt0)- G- z1 n, l& t1 }
  44.         y (cadr pt0)
    . u0 v$ u* L9 z/ @
  45.   )6 l" K% q3 @$ G  a4 r
  46.   (command "rectang" (list x y) (list (+ x l) (+ y w)))
    7 t1 S. z1 ^# ?4 _2 K( I: a
  47.   (command "rectang"1 o, W3 [# t1 [5 i, K" V" V% t
  48.            (list (+ x a) (+ y c))- \* v% X% [6 E; z
  49.            (list (- (+ x l) c) (- (+ y w) c)), [: ?* Q7 s3 `3 n, {! j
  50.   )
    ( {5 R( `0 H, n
  51.   (setvar "osmode" os);恢复用户对象捕捉设置
    9 Y8 Q% T5 q( a9 T' \
  52. )                                        ;end
复制代码
回复 支持 反对

举报

dreamMore10
 楼主| 发表于 2013-1-28 12:01:45 | 显示全部楼层 来自： 中国上海
woaishuijia 发表于 2013-1-28 06:13 static/image/common/back.gif
; x  D7 ?! ]% d4 K: k( Z4 r是对象捕捉在捣乱
. o! a# Q6 Z- C, n  k1 h$ N1 B0 ULSP程序中通常要临时关闭对象捕捉

4 ~  ]9 u! d2 s7 F4 H8 N8 k谢谢
回复 支持 反对

举报

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 )

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