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.gif
! R" X9 V6 c5 x3 V运行自定义函数之前必须保证该函数已被加载! E* @$ Y h0 y% I4 u1 C. d' Q J
如果在"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- U: n G& a( w# ^2 B# a
运行自定义函数之前必须保证该函数已被加载
3 w5 \9 X5 T5 g, I) d2 |如果在"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
+ |) S8 d Y/ B% b(defun tk()$ o5 a3 J) {7 @1 e3 c* o$ |
(setq n(getreal"图号：" ))3 b0 C0 ?2 E7 [ U G; b
(cond ((= n 4) (setq l 297 w 210 a 25 c 5))

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

(defun tk (/ n l w a c os)
. d, {+ p3 s! A( i
(setq os (getvar "osmode");记住用户对象捕捉设置8 I6 V' r p0 C! F+ `8 h' k' `
n (getreal "图号：")9 O% N6 b+ U4 \2 u& \6 p
) \' h# p& w5 b# ?
(setvar "osmode" 0);关闭对象捕捉
) C2 f# Z4 W. i3 q, R
(cond ((= n 4)' Z& L# Y/ F4 P7 Z! T( F& a
(setq l 297 }6 k( \$ S4 W& L, @
w 210
1 w3 @3 W. i& n" b+ q, O+ A6 f
a 25+ s0 M+ ^8 ]; k3 v4 B
c 5- p% s+ k9 W# @% r
)4 W; e- O0 K, B) c, l% i( s' o) v
)
2 X& d2 F* w3 \% C" E+ R
((= n 3)
& E, J# y! ^. m- ~" o, e% r
(setq l 420
: f2 y# H0 ~/ V$ z7 B
w 2972 v. m$ [' `- R
a 250 t' S7 j8 S, r
c 5
" M2 y7 ^9 W; H: T6 b2 Y0 y
)% M7 ?. _3 |+ h% I: ~+ {
)& K, Z- X8 r* a+ H! Q! j) C
((= n 2) {4 i! W r1 H1 `
(setq l 594
5 m2 q( M C$ T
w 4200 d$ K6 ]6 e- g; O
a 251 e8 s- i: X. ^% u! F6 k& N+ ?, |
c 100 s1 {! Z y/ i$ T* T
)
% i4 d8 a8 D2 y
)
& G9 V, {- E0 u1 P# ]' l
((= n 1)
5 b5 O" D( Q: w+ i$ L( X7 S
(setq l 841" Z ~; g6 O" T8 r4 T$ ]7 x
w 594* i' Q3 A+ k6 u8 N
a 25
2 n% }: M% w: b8 _0 R
c 10: f7 F* H, [) B+ Y. p
)
3 f+ D" E0 e! x4 k: ^2 E9 x( g0 A
)" I5 h# m! n1 A/ P0 O4 O* Z5 Z
((= n 0)
8 z. A6 J. \6 S' H( ^4 K$ w
(setq l 1189
O% V* C- r; l
w 841* g+ R6 y# }; b* b, [
a 257 |! a% c3 d0 H" u
c 100 ~2 ]: g9 f9 c
)
- ]9 {" {% J! x/ a7 D2 X
)
2 p7 ^4 r3 H4 ^+ \
) ;cond
' q8 S2 P, x" m( x/ q) g
(setq pt0 (getpoint "\n基点："))0 [" l- F- Y+ e r
(setq x (car pt0) S/ P7 {& ?2 F& ^
y (cadr pt0)
3 f: @& ?6 @- z# V; P
)% o+ S6 z% y; L0 p% j
(command "rectang" (list x y) (list (+ x l) (+ y w)))
2 v3 V# [3 p9 l: ?) Z- |
(command "rectang"/ A4 ~, s- a- l9 S. W: _( x
(list (+ x a) (+ y c))
+ I! H: p( U9 h
(list (- (+ x l) c) (- (+ y w) c))
5 E7 S3 n& u2 C- O' S2 R k6 c
)
/ t5 k& x' m; j. T0 n
(setvar "osmode" os);恢复用户对象捕捉设置, G" u+ M6 p2 v+ S7 F; s2 k! W
) ;end

复制代码

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

woaishuijia 发表于 2013-1-28 06:13 static/image/common/back.gif& G2 @$ M/ F$ A/ ^0 z2 m: N# ^ d
是对象捕捉在捣乱
% c* Q1 A" ?, _( s2 i8 iLSP程序中通常要临时关闭对象捕捉

谢谢

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

一看就是高手啊

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

真是高手，學習了

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

通知

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

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

浏览过的版块

通知

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

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

浏览过的版块

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