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.gif0 I4 W1 r8 _5 @# k3 ~
运行自定义函数之前必须保证该函数已被加载
( Q7 ~8 x8 v" ?8 T+ I% @. X如果在"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" ]1 ], I$ _. I' @( \+ ?
运行自定义函数之前必须保证该函数已被加载: l2 R0 @' a9 z/ S% p
如果在"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
6 @, o" @/ ~ E2 ]! Q# t(defun tk()/ Y8 l* T' | X9 P9 e( i1 F
(setq n(getreal"图号：" ))
. ^7 W/ ]: c# k2 ?4 y(cond ((= n 4) (setq l 297 w 210 a 25 c 5))

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

(defun tk (/ n l w a c os)
5 y" b" w, U6 U9 c$ r' W
(setq os (getvar "osmode");记住用户对象捕捉设置4 z/ u5 J* F0 v) }
n (getreal "图号：")- A# @2 M9 N* v) y
)
5 J+ R H; h2 C* a5 F
(setvar "osmode" 0);关闭对象捕捉
p+ k7 `6 I R- O/ e, S
(cond ((= n 4)4 a, @- |4 o, c$ o, ? O' q+ n
(setq l 297
/ q ~7 S* w. C! n, B: D
w 210
4 T1 ~+ h. W. M9 ]/ Q
a 255 F" |( d% t0 C5 R3 H3 C1 q
c 5
" c0 t9 w5 {& b2 |) D
)
6 \! S- X/ m2 m- [
) n8 ^) R9 u5 ?4 W# b
((= n 3)+ W) L L2 t: r: _) N
(setq l 420
9 G4 N! u. D9 g% E
w 297
' V- c" V' m, n
a 257 \* ]+ m/ R) d& V# {7 u
c 55 ~: L8 j3 o0 x7 N( [* l$ `
)9 f- I- U' d2 y+ S5 q( {
)
& T8 m# I3 ?5 u4 U n, A
((= n 2)
' ?& y4 e9 V3 _) e
(setq l 594% m4 O1 X- n# p; _1 Q4 L f, E
w 420
@! E1 @6 E* A( {4 i1 `/ ~: t
a 25
; R1 L! d, t7 Z% o% a E
c 10
: q; e4 O. R6 q: x7 m/ e
)
' E x3 P/ _6 @( ?+ A5 E7 R
)- V& j" _( P) I" ]1 f# X
((= n 1)
3 u) N* W p& ~% b
(setq l 841
a+ x7 q1 O$ U, n
w 5942 |- N9 G7 ?- {, K3 A6 }1 ?7 F
a 25
5 C2 g E" x7 l& w) N
c 10
; ] B" C7 \* B+ h) u' }
)1 p* p, F' d/ f# s1 I, q9 N; p
), |1 m, L1 f$ e- ] P/ i4 o }
((= n 0)+ S' J6 E" q+ [9 Z/ b- F$ @8 V
(setq l 1189! U- T. l5 i8 D7 [3 l
w 8412 A: ^7 P2 |1 P( b
a 25
! ]: W/ Z. K7 y+ I
c 10
/ h0 T( G7 p& G: }# }2 X
)! V- ^3 m+ j* S
)
1 F3 E# c" P F* x* ~2 i1 X
) ;cond1 d$ `) c( U6 p6 \
(setq pt0 (getpoint "\n基点："))
- X+ X% f& S2 M5 J* g
(setq x (car pt0)3 q$ r# o! t7 G9 f' ]
y (cadr pt0): e" ~7 p9 H* F
)" z: X3 |" `. B- g
(command "rectang" (list x y) (list (+ x l) (+ y w)))9 e e6 B% A5 g0 g
(command "rectang"
7 ?. V }7 m0 T8 T1 W2 M1 N) O
(list (+ x a) (+ y c))
# j) L R$ l! \6 k. |0 ?
(list (- (+ x l) c) (- (+ y w) c))
! \+ l9 \, `# T, V' l. L3 F5 Y
)) u B9 s$ a" U# T/ u e$ T
(setvar "osmode" os);恢复用户对象捕捉设置, p m; ~- r1 `7 s; {
) ;end

复制代码

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

woaishuijia 发表于 2013-1-28 06:13 static/image/common/back.gif# ]! k$ D8 \! c7 Z- B8 @; T! v
是对象捕捉在捣乱
0 w7 k" |! W# NLSP程序中通常要临时关闭对象捕捉

谢谢

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

一看就是高手啊

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

真是高手，學習了

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

通知

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

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

浏览过的版块

通知

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

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

浏览过的版块

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