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
( s" }" n8 Q+ L' X! G运行自定义函数之前必须保证该函数已被加载
4 k# M8 k1 o& Z: n* v/ o, @6 S如果在"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) z% A% l5 k% ]5 [
运行自定义函数之前必须保证该函数已被加载) P9 z$ Q& I" u1 r# e9 d
如果在"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
. u8 l9 L- |* Q4 t, Q F, {$ Q8 Y(defun tk()
' M7 x! R( [- g# f! ~ C(setq n(getreal"图号：" )), x! z6 H: W: o4 @1 x/ h
(cond ((= n 4) (setq l 297 w 210 a 25 c 5))

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

(defun tk (/ n l w a c os)
+ w1 z8 D% Q3 V9 d& o% r x4 _# s( o
(setq os (getvar "osmode");记住用户对象捕捉设置
( q. U2 R' Z* e
n (getreal "图号：")
* K( u! W2 I! Q, A' Y
)9 h" `! T2 m7 V. Y/ h7 N" E# k
(setvar "osmode" 0);关闭对象捕捉2 R$ n# S' y8 W+ i; [2 ~4 {1 O
(cond ((= n 4)
6 d3 l% U! L6 T5 C, A3 A, o
(setq l 297
0 p" n& n- i: Z# h" I. z
w 210% Y* z L0 n T' t; E
a 25: S# J; K* n; Y5 G6 B& n% h
c 53 K4 y+ e" ~, ^ T' [+ l: d
)
( Z1 g6 I S0 g! h; z3 c- f+ [
)
: v( @1 g! Y5 A4 i3 W! R
((= n 3)( l' a G2 k- U7 }+ C
(setq l 420
) _ Q- g9 m) R7 |5 ~
w 297
( m* g% X! v0 u, e) c+ [4 p+ K. L
a 25& d9 P6 _* ?* l; I
c 5
0 p( L* @3 _4 s0 Y* X3 u: S
)' c# l; C( Z p, q% P; u, ^: P
)
; R8 c4 u$ _+ R
((= n 2); V d2 A% c% b6 _" T3 Y
(setq l 594* i2 }) D: E2 @0 _' J3 Q
w 420
( \( G# }5 U. {. r- a# r
a 25% Z2 g) {) B9 I8 \4 X1 D' ~
c 104 M1 B- @# O9 R) e
)
$ z. l5 F i/ V0 }
)' f5 X6 C# u7 M1 c/ G, S5 D7 I
((= n 1)
' t- G( L9 J- y
(setq l 841
- @% L Z& P( K9 _4 _: r
w 594
8 {/ m' \; R; A
a 25# ^. b# H8 h8 b$ t3 \3 c. u
c 10" Y1 r4 M; h* }1 P+ T2 S
)
# P4 c5 Z( ^. K3 {' Y
)
, B, {# O" g" X& S
((= n 0)
: W! l' D- H0 c& C* v; _3 o& H8 q- F
(setq l 1189
* \$ f& a% ?/ W! n7 P$ {2 x$ N5 i" W
w 841
1 z# D2 }$ L- H
a 25& r! Q$ Z& a& r: u/ U
c 10
4 T* c. U7 m. P$ \0 s
)# s" x# I+ i; P( {
)
9 H1 Q4 ^/ e0 H6 ]9 }# G5 r
) ;cond3 N& S8 F- d7 @3 i! N( p" H- D. I$ M
(setq pt0 (getpoint "\n基点："))
9 z' @9 A u* \( Q+ b3 y
(setq x (car pt0)
# A5 p3 ~% z9 x9 i! M1 i
y (cadr pt0)
' [1 a8 P1 d; r0 S2 ^1 a
)
* X5 J6 e, h- j2 [$ H& C& o
(command "rectang" (list x y) (list (+ x l) (+ y w)))2 k, \8 J9 h; l9 R
(command "rectang"
4 [1 P5 n6 E7 ^) ^5 M: m) ~& O# P
(list (+ x a) (+ y c))
* e3 P4 f3 \7 G. z& P; M
(list (- (+ x l) c) (- (+ y w) c))6 C8 g" P6 ^/ N: f7 Z5 _: D
)# y! [4 @7 q' V$ X X( y
(setvar "osmode" os);恢复用户对象捕捉设置$ z1 @; x% @/ }: V$ H7 [# t
) ;end

复制代码

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

woaishuijia 发表于 2013-1-28 06:13 static/image/common/back.gif9 f- Q! ^5 m U F
是对象捕捉在捣乱
+ Q) N5 d3 o3 w2 v2 OLSP程序中通常要临时关闭对象捕捉

谢谢

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

一看就是高手啊

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

真是高手，學習了

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

通知

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

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

浏览过的版块

通知

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

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

浏览过的版块

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