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

dreamMore10 · 发表于 2013-1-26 20:38:45

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

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

x

(defun tk (n  /  l  w  a  c)
  (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))
((= n 1) (setq l 841 w 594 a 25 c 10))
((= n 0) (setq l 1189 w 841 a 25 c 10))
);cond
  (command "rectangle" "0,0" (list l w))
  (command "rectangle" (list a c) (list (- l c) (- w c)))
);end

为什么在控制台里运行的时候老是说no function definition？再简单的程序也是

woaishuijia · 发表于 2013-1-26 23:41:07

本帖最后由 woaishuijia 于 2013-1-26 23:48 编辑

运行自定义函数之前必须保证该函数已被加载
如果在"Visual LISP 编辑器"的代码窗口中加载,到"Visual LISP 编辑器"的"工具"菜单下面点击"加载选定代码"或"加载编辑器中的文字"
如果从现有的LSP文件中加载,在CAD命令行键入"appload"命令或到图形界面的"工具"菜单下面点击"加载应用程序"

dreamMore10 · 发表于 2013-1-27 20:07:54

woaishuijia 发表于 2013-1-26 23:41 static/image/common/back.gif6 z2 d$ X5 B; Z5 }, z) ]! s; s
运行自定义函数之前必须保证该函数已被加载
1 `0 J$ l$ ]8 P( z- E0 a7 `如果在"Visual LISP 编辑器"的代码窗口中加载,到"Visual LISP ...

感谢版主

dreamMore10 · 发表于 2013-1-27 21:58:59

本帖最后由 woaishuijia 于 2013-1-28 06:00 编辑

woaishuijia 发表于 2013-1-26 23:41 http://www.3dportal.cn/discuz/static/image/common/back.gif
3 \. P& K& i3 c运行自定义函数之前必须保证该函数已被加载, X5 e0 q7 ^7 z6 t$ q2 Z' n
如果在"Visual LISP 编辑器"的代码窗口中加载,到"Visual LISP ...

(defun tk()
(setq n(getreal"图号：" ))
(cond ((= 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))
   ((= n 1) (setq l 841 w 594 a 25 c 10))
   ((= n 0) (setq l 1189 w 841 a 25 c 10))
);cond
(setq pt0(getpoint"\n基点：" ))
(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)))
);end
版主再帮我看一下这个程序为什么画出来是两个重合的图框？谢谢了

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# U- {% C0 P5 b  b4 D
(defun tk()  s4 Y5 z5 w3 r  x3 K+ m
(setq n(getreal"图号：" ))
. v3 b$ E% t2 \  p, Z: @(cond ((= n 4) (setq l 297 w 210 a 25 c 5))

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

(defun tk (/ n l w a c os)3 l7 T7 l- j3 p; Y* K7 |
(setq os (getvar "osmode");记住用户对象捕捉设置
9 k8 b1 r. ?& J$ i8 u1 ~9 j
n (getreal "图号：")7 ~ j0 B# I. c5 r& q4 e" K
)2 }8 q& y; p d! l
(setvar "osmode" 0);关闭对象捕捉
2 ~% ?7 [8 ?( Y: Z; D
(cond ((= n 4)$ s0 y) z1 X0 c# f
(setq l 297
7 |6 Z: x- a+ B4 M* b _
w 210& d& H5 c2 Y7 V5 ^
a 250 w4 Q: E0 q: a
c 53 D, K W' m. U9 F% k
)
5 V" r2 u8 t2 H7 |
): j" `, l0 g j2 |# F4 _8 R# S2 x- C0 W
((= n 3)
2 X a1 J `* a" z
(setq l 420: }! c7 D% W+ }( q
w 297
3 Q" R. w; z! t/ G$ b
a 25 ]; @5 T, q& o3 P1 S
c 5
0 T0 K5 F1 K8 E: }. `
)
5 E# G6 g. |( U8 ]
)
% A+ e, w9 b- O, o/ l2 [* g
((= n 2)
. _1 Y6 m: i+ ~. Y1 _( a2 l; @( ~# u
(setq l 5941 ^7 o1 X1 s; o0 t: j7 H0 ^
w 420
5 F+ J# H7 [2 J! i
a 25
0 {( A) h9 d M' F3 _. Z8 T2 Q
c 10
]7 ? `8 @" v8 P, u$ U
)
0 ]* w/ _2 ~/ f9 `7 ^" \
)
9 T; a+ s9 S4 f/ H
((= n 1)9 v4 \7 H! S/ h9 I& g. S6 Z2 ^
(setq l 841
( ]% T/ Y" d- H2 k$ I
w 594
$ x+ W f9 m" v4 S! ~, X
a 253 h$ f% f5 W0 |3 B1 {6 k
c 10
+ q$ f3 M E" k4 U
)5 k8 s* c% D9 W9 y# \
)
. r8 \4 R# p" s% f2 }
((= n 0)
# p0 t1 d2 y) l
(setq l 1189" A# g/ J) |; v4 i$ K: M
w 841" t! S6 ~4 m3 z: t8 ]# C) s" X
a 25& J7 N* M+ a l9 a; G* T% t
c 10
" A( y+ ]( r/ h, x% a/ V
)
; u3 {# _! w1 q: j9 y
)6 d M: C/ @% y, B# i
) ;cond* k% A, }9 M( `# W3 c) @2 l* \) h
(setq pt0 (getpoint "\n基点：")), h% R4 n& l X, O& v0 D I9 }' a9 k
(setq x (car pt0)- V0 V5 i& l L# d# b
y (cadr pt0)8 E# ^ X8 h' Q- I' v9 ]
)+ t G% e. O& }/ X. u% [
(command "rectang" (list x y) (list (+ x l) (+ y w)))
$ s6 `# t0 ?5 x4 r. L
(command "rectang"
: N, N# J- f8 a. f5 w
(list (+ x a) (+ y c))
) b* Z' |# ^; z: Z; g
(list (- (+ x l) c) (- (+ y w) c))
& i4 @& K$ x& a0 s
)
5 i9 g( k+ @( y9 k2 n8 a6 v
(setvar "osmode" os);恢复用户对象捕捉设置 D% o) ~0 ]) c; c5 V% L& v1 H. y8 \( b
) ;end

复制代码

dreamMore10 · 发表于 2013-1-28 12:01:45

woaishuijia 发表于 2013-1-28 06:13 static/image/common/back.gif
& U" u( i( U: V是对象捕捉在捣乱- i! H- x, a, I: D/ e
LSP程序中通常要临时关闭对象捕捉

谢谢

wlchsd · 发表于 2013-7-23 17:20:35

一看就是高手啊

djh1006 · 发表于 2013-10-9 12:32:39

真是高手，學習了

		自动登录	找回密码
密码			注册

通知

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

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

浏览过的版块

通知

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

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

浏览过的版块

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