设为首页 |收藏本站 |帮助 |加入VIP |积分充值

QQ登录

只需一步，快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步，快速开始

返回
发新贴
展开

通知     

全站
8天前
查看: 3057|回复: 8
收起左侧

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

[复制链接]
dreamMore10
发表于 2013-1-26 20:38:45 | 显示全部楼层 |阅读模式 来自： 中国江苏无锡

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

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

x
(defun tk (n  /  l  w  a  c)# K5 ^7 k" d1 s7 g
  (cond ((= n 5) (setq l 210 w 148 a 25 c 5))
: D, c( A2 ^, H: a        ((= n 4) (setq l 297 w 210 a 25 c 5))2 a! f( |, [1 c& k3 Y: d8 |
        ((= n 3) (setq l 420 w 297 a 25 c 5))
, |- u# i6 q# h0 N  `+ h        ((= n 2) (setq l 594 w 420 a 25 c 10))
( V) }+ U! i" R9 \        ((= n 1) (setq l 841 w 594 a 25 c 10))
6 o7 x0 G3 p* N% ~, X        ((= n 0) (setq l 1189 w 841 a 25 c 10))
7 _4 f% g% p* E        );cond
) J$ \5 y2 G* o" S5 m  (command "rectangle" "0,0" (list l w))! w! @8 M- i! N& R; }9 S0 G; y8 i
  (command "rectangle" (list a c) (list (- l c) (- w c)))
/ j; u7 r# K: G3 F9 k);end
$ q3 r; ]0 s! u$ j6 G
+ V/ d" o8 M. K7 l为什么在控制台里运行的时候老是说no function definition？再简单的程序也是. v9 }0 l+ J" W, x4 n' k8 Q
回复

举报

woaishuijia
发表于 2013-1-26 23:41:07 | 显示全部楼层 来自： 中国辽宁
本帖最后由 woaishuijia 于 2013-1-26 23:48 编辑
9 L- i% L1 ~9 u
) y( |8 ^+ L! S, n) |2 n; R- ~- r运行自定义函数之前必须保证该函数已被加载
$ T) F* J3 q6 U8 c( ^' r+ k- b1 H% k如果在"Visual LISP 编辑器"的代码窗口中加载,到"Visual LISP 编辑器"的"工具"菜单下面点击"加载选定代码"或"加载编辑器中的文字"
8 F/ M, o8 U5 J2 P3 B  C' z如果从现有的LSP文件中加载,在CAD命令行键入"appload"命令或到图形界面的"工具"菜单下面点击"加载应用程序"
回复 支持 反对

举报

dreamMore10
 楼主| 发表于 2013-1-27 20:07:54 | 显示全部楼层 来自： 中国天津
woaishuijia 发表于 2013-1-26 23:41 static/image/common/back.gif0 W3 }( B% e8 @
运行自定义函数之前必须保证该函数已被加载+ m8 G6 m+ t. V0 ~; \% D) M
如果在"Visual LISP 编辑器"的代码窗口中加载,到"Visual LISP  ...
; V9 U" |4 M% A; n9 L7 Q
感谢版主
回复 支持 反对

举报

dreamMore10
 楼主| 发表于 2013-1-27 21:58:59 | 显示全部楼层 来自： 中国浙江宁波
本帖最后由 woaishuijia 于 2013-1-28 06:00 编辑
1 f2 k6 ~6 [! |0 j. Z# w
woaishuijia 发表于 2013-1-26 23:41 http://www.3dportal.cn/discuz/static/image/common/back.gif& C# \3 Z- D" G
运行自定义函数之前必须保证该函数已被加载0 I& q0 |, s6 n, T1 P, ?
如果在"Visual LISP 编辑器"的代码窗口中加载,到"Visual LISP  ...
  T! }2 j; B6 c; d* T# [
' e& s3 y  G; k; c
(defun tk()# r; K1 i8 ^/ q* d
(setq n(getreal"图号：" ))
8 w, U) n  E! q3 y$ q; e(cond ((= n 4) (setq l 297 w 210 a 25 c 5)); a) n- e6 V$ k+ a4 \# \4 z
      ((= n 3) (setq l 420 w 297 a 25 c 5))
6 v! M1 d( C( m' j8 n0 ]      ((= n 2) (setq l 594 w 420 a 25 c 10))
7 C* z1 ^7 k% T" T      ((= n 1) (setq l 841 w 594 a 25 c 10))
8 X. T/ u' d% M5 K/ I: R# x4 G( p; k      ((= n 0) (setq l 1189 w 841 a 25 c 10))+ C6 O& a" V) G5 X
);cond* Z, Q7 @5 ~. _3 _$ [$ `; J
(setq pt0(getpoint"\n基点：" ))4 q6 V: R- A% [& X
(setq x(car pt0) y (cadr pt0))$ A* ~; V* l$ C7 M7 q# v
(command "rectang" (list x y) (list (+ x l) (+ y w)))" @, u6 R* W2 E
(command "rectang" (list (+ x a) (+ y c)) (list (-(+ x l) c) (-(+ y w) c)))
1 b  R1 Q; _* i, e);end
* K# k! Z, _+ C) R8 N( V版主再帮我看一下这个程序为什么画出来是两个重合的图框？谢谢了
回复 支持 反对

举报

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
# }  o$ f" b# O2 x' _$ q(defun tk()/ t$ j9 o9 }9 Z
(setq n(getreal"图号：" ))9 t9 d( L# d) ]* s% ~+ [$ s
(cond ((= n 4) (setq l 297 w 210 a 25 c 5))
5 z" ?) ?. t- d
是对象捕捉在捣乱6 b) u1 C7 G0 N' ]4 u. S
LSP程序中通常要临时关闭对象捕捉
  1. (defun tk (/ n l w a c os)
    9 W& X% U0 g: _1 O; _
  2.   (setq        os (getvar "osmode");记住用户对象捕捉设置1 y1 b! L1 n. l* |& s8 Q# i
  3.         n  (getreal "图号：")
    6 z8 I9 S: G1 a9 h) Z. e+ a" X
  4.   )2 _1 v  x) x+ |  F1 p. A
  5.   (setvar "osmode" 0);关闭对象捕捉& M# N  D$ ^0 @
  6.   (cond        ((= n 4)
    : l9 |! b: }+ ~" M6 n) b
  7.          (setq l 297
    ) o, X4 n( F4 L, w
  8.                w 2107 m# C- k! _% v) Q; S
  9.                a 25
    0 s! h  x8 |$ a, ^. ~6 f
  10.                c 5
    ' }! E3 c8 ?  _( H- D- K! N
  11.          )
    / N( w3 ~2 Z. h7 v# [5 G* n
  12.         )
    2 R7 `8 \& f6 S/ Z
  13.         ((= n 3)' q& }3 ^: o. R8 q. N  o% I  E6 N
  14.          (setq l 420$ ~" u0 I; |5 R) m
  15.                w 297% Z* v3 }& ]) o
  16.                a 25
    & Z+ a9 A( F$ y
  17.                c 5& `7 @$ w; S1 t  }6 t5 I
  18.          )
    * j! U% i) d: i: c
  19.         )" r4 c1 C( P  A- r) t* h
  20.         ((= n 2). F- w: c- x, l1 x. E
  21.          (setq l 594
    2 ~9 p! p  N" y8 R0 `& n; K6 @
  22.                w 420
    $ k9 o) e, Z' k2 M3 l$ {$ i
  23.                a 25
    + s7 q$ ^/ `4 B3 u; X% t0 R0 f8 p* W
  24.                c 10! b- B3 Y; }1 w- [: t
  25.          )
      o' \; ?0 h1 s' R: c0 Q$ R3 P+ {( i
  26.         )
    1 `0 Y$ V. r: O/ l3 }
  27.         ((= n 1)9 v0 L7 @, ?4 b2 [4 n; i
  28.          (setq l 841: r1 j- P9 ?" y# Q. o  q
  29.                w 594  o' z0 W! e4 j$ c, q$ N8 N! \' i1 B
  30.                a 25
    - h; q$ G- o' N4 Q0 e
  31.                c 10
    - G3 P$ @" S; N4 l% P
  32.          )/ x$ }0 G  ^" Q5 N, N
  33.         )2 u0 d. o& u! S* u9 S' @
  34.         ((= n 0)& n# X& K: r* \( J& r
  35.          (setq l 1189- W4 ]2 T" B) v* P3 e1 A
  36.                w 841
      G/ W* ~. c( t" Q1 M3 j/ u
  37.                a 259 |; A- ~$ M7 L" |
  38.                c 10
    * z8 s9 b! {$ {8 u5 V7 L1 c
  39.          )5 t! `1 H' T3 y$ i4 O# f
  40.         )- f3 r0 l( L' T' i) H1 Z
  41.   )                                        ;cond
    1 u1 M; a! @$ J
  42.   (setq pt0 (getpoint "\n基点：")). K1 t6 s6 ?" T, F* o
  43.   (setq        x (car pt0)
    * ~2 \4 R# ^% b: R  J
  44.         y (cadr pt0)- B" b1 Q6 s6 }9 w% {" |
  45.   )
    $ {& s* K) V1 {5 g0 y
  46.   (command "rectang" (list x y) (list (+ x l) (+ y w)))- z( ^2 m" B4 E" a
  47.   (command "rectang"
    2 x6 t6 N! ]- c& b, Z7 L
  48.            (list (+ x a) (+ y c))
    , s) k1 W6 v6 L9 `  X6 T
  49.            (list (- (+ x l) c) (- (+ y w) c))7 K* B, K& {7 K7 {
  50.   )# @" d/ X- \1 `6 c
  51.   (setvar "osmode" os);恢复用户对象捕捉设置0 }5 g9 L" E- ~. V: H
  52. )                                        ;end
复制代码
回复 支持 反对

举报

dreamMore10
 楼主| 发表于 2013-1-28 12:01:45 | 显示全部楼层 来自： 中国上海
woaishuijia 发表于 2013-1-28 06:13 static/image/common/back.gif7 V' u0 |2 v' o& f, I
是对象捕捉在捣乱3 C% }9 H$ s0 s' T
LSP程序中通常要临时关闭对象捕捉
0 m+ \0 `% w0 A- k3 [  e
谢谢
回复 支持 反对

举报

wlchsd
发表于 2013-7-23 17:20:35 | 显示全部楼层 来自： 中国湖北武汉
一看就是高手啊
回复 支持 反对

举报

djh1006
发表于 2013-10-9 12:32:39 | 显示全部楼层 来自： 中国台湾
真是高手，學習了
回复 支持 反对

举报

发表回复
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则


Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表