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* M" \9 H& C( ?. }) r7 ~# l- B
运行自定义函数之前必须保证该函数已被加载% Y7 X6 x* M" l }; m3 P& K+ E" A
如果在"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  w* f+ q- X# b5 m3 A
运行自定义函数之前必须保证该函数已被加载2 f  z$ X  e% U; m" m
如果在"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
( M- L1 P" B; I8 h0 ^(defun tk()8 v/ O3 |/ v% O
(setq n(getreal"图号：" ))& o( d+ ^# h" K$ R3 ?5 i* o# U8 v
(cond ((= n 4) (setq l 297 w 210 a 25 c 5))

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

(defun tk (/ n l w a c os)
7 ?, \1 c4 e5 g5 ?3 A
(setq os (getvar "osmode");记住用户对象捕捉设置
G; K( ~ g' o) k! ?
n (getreal "图号：")
! @6 v" U8 a/ ]+ R L0 [
)
) }4 q( @7 i( S+ D
(setvar "osmode" 0);关闭对象捕捉
' o4 Y/ o. r# q0 v. V
(cond ((= n 4)
0 c- p3 \) K/ |& u% ~* s
(setq l 297
/ H, I$ A0 K! f, V2 G" g
w 2108 y# @% i9 v+ E1 g- ^' V
a 259 z7 _! r3 B" [/ b5 P6 u$ E/ x
c 5
3 a! @# Y$ X$ a$ Q- O+ u: e
); _1 }6 l: N F! C2 P# ]) G9 c5 ?
)
6 Q2 d3 n! i# o$ Z9 e) G9 w
((= n 3)( R& j4 I, p0 K, \1 x: s
(setq l 420
. D% U; X2 n, ?$ Z: y! o0 w
w 297
, Z J% B3 k4 r* h# y+ o( y2 Z* H
a 25
5 x( s: ?3 I X' K8 W- G& u, v; H
c 5
s0 L# }1 w: O+ `( k
). I9 I1 g" Z9 D3 N4 e
)/ m! G0 ~! \9 M* p
((= n 2)* }+ b( Z) ^ \3 _* [$ o% ^7 G
(setq l 594" [( @) }" z& n" ~& w# p
w 420. D0 e" [2 K6 z$ d v
a 25
! z' _9 W+ r( X% B; V: d8 g- e8 l
c 10
9 t9 w. j# y. U5 R( V
)* p3 o) A; ]) `4 N
)) `7 K0 {' l. @- c* j$ V0 [
((= n 1)8 o# l5 w; O3 k( M0 x. L
(setq l 8414 C, i; D% g1 u5 O0 y" t7 X
w 594
# t7 t8 b- ]0 u) i9 _ H
a 252 f8 U2 H- l R6 ]
c 10
Q: J3 v! q( y! u% P5 V: ~
)! @, P4 ^; y' J8 Y/ w
)1 P- M+ x8 |$ g$ L
((= n 0)
3 e* L! N2 D( w( i$ N- K$ i+ T7 v
(setq l 1189- R% S) c& W0 c4 E9 f: T
w 841
3 T) M6 O0 V V6 }* L& @6 x
a 25
8 ?* K" _* L$ c3 v( F2 I
c 10
% o \% s1 |: u4 S+ U
)
+ H3 ~5 _8 l5 f/ t; C
)
8 M) f) `: B1 X# U) h3 }
) ;cond4 W8 Y$ c! y+ |' _/ F1 N: F
(setq pt0 (getpoint "\n基点："))
8 j' I+ F+ D6 [
(setq x (car pt0)
0 w* f$ I, d' k! t8 F* _, z6 i7 L
y (cadr pt0)
' R& x2 \9 F, D' ~, H/ k
)
7 R$ {% \, A9 p% }$ s) X( f
(command "rectang" (list x y) (list (+ x l) (+ y w)))
2 K; x8 ]1 ~* ]; m( ~/ S
(command "rectang"
0 O6 o8 R' U2 p, s6 G& }
(list (+ x a) (+ y c))
+ I5 V+ o% z* q v
(list (- (+ x l) c) (- (+ y w) c)), Z' S4 M$ Q$ c- |' a# R% V0 M% W+ {/ \
)( M8 y/ W3 J% x8 U" |( V
(setvar "osmode" os);恢复用户对象捕捉设置6 k4 L' J& U) N: |$ j( V
) ;end

复制代码

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

woaishuijia 发表于 2013-1-28 06:13 static/image/common/back.gif
9 l0 v5 I5 k& E! w是对象捕捉在捣乱
; r4 w& }# a% _1 tLSP程序中通常要临时关闭对象捕捉

谢谢

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

一看就是高手啊

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

真是高手，學習了

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

通知

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

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

浏览过的版块

通知

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

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

浏览过的版块

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