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

QQ登录

只需一步，快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步，快速开始

返回
发新贴
展开

通知     

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

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

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

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

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

x
(defun tk (n  /  l  w  a  c)& U2 R- l0 T4 ~) X& _( ]* {2 [
  (cond ((= n 5) (setq l 210 w 148 a 25 c 5))' x5 W* t& |  L( D; z' ?5 ]
        ((= n 4) (setq l 297 w 210 a 25 c 5))
/ z& Y. P* }' F        ((= n 3) (setq l 420 w 297 a 25 c 5))* d7 V! x: K7 F& U+ {) t* _& Z6 m
        ((= n 2) (setq l 594 w 420 a 25 c 10))% u2 p( s( P0 J9 \# y- G& U
        ((= n 1) (setq l 841 w 594 a 25 c 10)), R+ {7 _5 u0 L" d1 h4 R
        ((= n 0) (setq l 1189 w 841 a 25 c 10))  o& `. K4 P/ y+ I$ Q
        );cond
. y1 q. U- K+ ~. V% r* V. ~1 N, z: _  (command "rectangle" "0,0" (list l w))
5 D, f. O, h8 z: @) N, R7 ~1 B  (command "rectangle" (list a c) (list (- l c) (- w c)))
( [% J' N8 V/ k; y% O6 \" S9 U' J);end- D' c8 M) v5 B8 B
- ]8 `9 A9 H. A/ m) u
为什么在控制台里运行的时候老是说no function definition？再简单的程序也是
' X; f% C) x# C8 m. j% m! i+ Y
回复

举报

woaishuijia
发表于 2013-1-26 23:41:07 | 显示全部楼层 来自： 中国辽宁
本帖最后由 woaishuijia 于 2013-1-26 23:48 编辑
8 `/ j0 X( S' h$ H% e: _' r6 R7 j: d1 J4 }3 S
运行自定义函数之前必须保证该函数已被加载+ o: O% [( C" R0 ]$ n
如果在"Visual LISP 编辑器"的代码窗口中加载,到"Visual LISP 编辑器"的"工具"菜单下面点击"加载选定代码"或"加载编辑器中的文字"
- x! ?6 M0 s& W* A# H& O如果从现有的LSP文件中加载,在CAD命令行键入"appload"命令或到图形界面的"工具"菜单下面点击"加载应用程序"
回复 支持 反对

举报

dreamMore10
 楼主| 发表于 2013-1-27 20:07:54 | 显示全部楼层 来自： 中国天津
woaishuijia 发表于 2013-1-26 23:41 static/image/common/back.gif) Y' j: @3 t: v
运行自定义函数之前必须保证该函数已被加载
' p0 m4 ^$ E/ I# x* S如果在"Visual LISP 编辑器"的代码窗口中加载,到"Visual LISP  ...
: [" Y3 j4 ~6 o4 I( f! e! A
感谢版主
回复 支持 反对

举报

dreamMore10
 楼主| 发表于 2013-1-27 21:58:59 | 显示全部楼层 来自： 中国浙江宁波
本帖最后由 woaishuijia 于 2013-1-28 06:00 编辑
, N. u- F$ |. E" S9 O1 J7 @
woaishuijia 发表于 2013-1-26 23:41 http://www.3dportal.cn/discuz/static/image/common/back.gif
& j% n: p! f% u运行自定义函数之前必须保证该函数已被加载
) V( `5 h) Z+ y: l( `如果在"Visual LISP 编辑器"的代码窗口中加载,到"Visual LISP  ...
  }: u& L$ q$ S2 W1 J0 \

. _8 Z& i9 a3 x0 W- a. [) F8 x(defun tk()
' a3 R4 Z7 J5 f- Q& M" X9 @; q(setq n(getreal"图号：" ))
' \) ^$ ^0 j( C(cond ((= n 4) (setq l 297 w 210 a 25 c 5))
2 N/ W4 a: L$ Q, K" h      ((= n 3) (setq l 420 w 297 a 25 c 5))9 j& D2 v+ f( D( O
      ((= n 2) (setq l 594 w 420 a 25 c 10))4 c) F, N2 C3 t. U- X
      ((= n 1) (setq l 841 w 594 a 25 c 10))
2 ?( w' I* Q; C/ h3 G      ((= n 0) (setq l 1189 w 841 a 25 c 10))
1 K% `6 t% {4 Y( _% @7 d. F);cond$ y/ q% A; ?+ k$ o/ O: Y
(setq pt0(getpoint"\n基点：" ))* _9 Y$ @% y6 @. Q8 w5 b
(setq x(car pt0) y (cadr pt0))4 r+ ^% E9 s/ Y2 b8 B
(command "rectang" (list x y) (list (+ x l) (+ y w)))
- [: B8 v+ O& N" Y( ~(command "rectang" (list (+ x a) (+ y c)) (list (-(+ x l) c) (-(+ y w) c)))
2 i3 @( C# X' \4 s: ?. `/ C) H);end- D$ c6 N# \6 ^$ Z( R5 c
版主再帮我看一下这个程序为什么画出来是两个重合的图框？谢谢了
回复 支持 反对

举报

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
: n0 e9 p4 b9 ?+ y; m(defun tk()6 `2 h6 o6 y. W2 N0 U. w6 R* o
(setq n(getreal"图号：" ))
" o  L& O* O, X9 P& f9 ]; Y(cond ((= n 4) (setq l 297 w 210 a 25 c 5))
. n2 E5 n$ I2 F2 W4 I+ f
是对象捕捉在捣乱
5 I7 t- L- O4 w* j- M% sLSP程序中通常要临时关闭对象捕捉
  1. (defun tk (/ n l w a c os)3 I: C) v/ l% }! W) O$ K
  2.   (setq        os (getvar "osmode");记住用户对象捕捉设置
    5 ?. }  H" x( h' [
  3.         n  (getreal "图号：")% g, k0 J0 q4 u& R8 ?
  4.   )
    - y7 J, |3 {+ h# D" R% }. a  C7 ^( K3 |
  5.   (setvar "osmode" 0);关闭对象捕捉8 G0 I% T% k0 ~) \
  6.   (cond        ((= n 4)4 j& J0 ]* c' W# X; W
  7.          (setq l 297! ?* u. d# J* U) M' o( h
  8.                w 210
    % f' w9 q9 p7 U
  9.                a 25# ~% `' E( q8 ~- e. ]5 q
  10.                c 5
    3 K2 o9 ~7 G/ Z. N; `+ _
  11.          )' O8 b4 t  }6 _
  12.         )
    / A7 b$ V) d. `. W4 V
  13.         ((= n 3)
    6 v# r/ n- [+ n
  14.          (setq l 420
    6 l3 b; b$ [3 B
  15.                w 297; _* Q% R/ z( ~, B! q& H
  16.                a 254 O/ t& C3 ?3 b% Y
  17.                c 5
    8 y% t# m7 D( J
  18.          )
    + e9 f; Z3 k7 {; t9 G# z! P3 ]
  19.         )
    ' Q3 f- g' G4 Z2 D3 n' p
  20.         ((= n 2)$ D- n0 H6 H$ g/ W
  21.          (setq l 5945 a: @/ ]  r1 r" ~
  22.                w 420( ~- h+ z, j5 [' d
  23.                a 25
    2 o' H" D% |/ R
  24.                c 105 ^0 @0 Z9 I2 r
  25.          )8 J  h% b3 ^3 W7 t, e9 F- _4 ?% O+ w
  26.         )- `) ~: E5 g; Z) {0 k) R
  27.         ((= n 1)9 y( X9 t+ A1 L' @& K' v0 a) c$ X
  28.          (setq l 841# I" _. j2 T  X0 p
  29.                w 5942 Z5 I, s! n1 ~0 e
  30.                a 25
    : r1 A  k( k7 x' ]* K9 G7 E
  31.                c 101 |+ L5 y1 I5 G; k0 ]
  32.          )4 ?* c6 v& K. R% b5 B
  33.         )
    ) o( V& |' A5 q; e7 Q
  34.         ((= n 0)/ a+ k5 Z0 o6 j0 X' g
  35.          (setq l 11891 [; `6 d6 H# b% O- d
  36.                w 841
    4 a4 N# Y0 f4 d! _: p0 J$ P4 P! c
  37.                a 25
    " L* G0 u# K! w" O
  38.                c 10
    & t% l8 T: Y: d* v8 E; ?
  39.          )
    : J: w. d' Q2 c% l
  40.         )
      I5 M3 Y  V! L3 Q
  41.   )                                        ;cond
    ) _0 Z( |; f  p
  42.   (setq pt0 (getpoint "\n基点："))/ Y' }+ q) B, o% k
  43.   (setq        x (car pt0)2 O6 R4 W$ B) j# g! s
  44.         y (cadr pt0)
    " w3 o( Q4 i* _
  45.   )
    9 U; c. N2 x( W" S# G7 ^8 }6 ~0 x
  46.   (command "rectang" (list x y) (list (+ x l) (+ y w)))! \- G7 X8 Q7 s# g8 `+ c
  47.   (command "rectang"" \3 _* [8 t0 L- A5 q$ x2 r
  48.            (list (+ x a) (+ y c))
    $ g! t9 D; x, ^8 D" V& F8 E0 X8 T
  49.            (list (- (+ x l) c) (- (+ y w) c))
    ; Y/ D' `3 ?% ^  O
  50.   )
    1 c' ^5 Z: K7 Y+ F8 l
  51.   (setvar "osmode" os);恢复用户对象捕捉设置
    8 d( C: ^8 E1 U; H3 g
  52. )                                        ;end
复制代码
回复 支持 反对

举报

dreamMore10
 楼主| 发表于 2013-1-28 12:01:45 | 显示全部楼层 来自： 中国上海
woaishuijia 发表于 2013-1-28 06:13 static/image/common/back.gif
; j; D* Q* T* d: t& J是对象捕捉在捣乱
9 F* `6 o" ^/ e$ d1 nLSP程序中通常要临时关闭对象捕捉

4 p1 g, h& t3 @1 U2 I8 Y谢谢
回复 支持 反对

举报

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 )

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