关于 lisp 的编程问题谢谢

45448767 · 发表于 2011-6-17 23:12

（define c:ABC() (vl-load-com) (command "setvar""osmode""0")
(setq p1 (getpoint "\n确定第一个点,\n")) (if(/=p1 null)(command "point" """" p1))
(setq p2 (getpoint p1 "\n 确定第二个点,\n"))
(command "line" p1 p2 "" )
(setq p3 (getpoint p2 "\n 确定第三个点,\n")) (command  "line" p2 p3 "")
(command  "line" p1 p3 "")
(command  "circle""3p" p1,p2,p3) )

请问下这个程序能否根据 3个点画出一个圆，如果不能可否帮忙改下？还有加载后怎么运行？？谢谢

45448767 · 发表于 2011-6-17 23:14

在线等。。。

qdlyq · 发表于 2011-6-18 00:24

编程比较难

45448767 · 发表于 2011-6-18 02:10

还有，能否在下面的程序旁注释每一步说明？谢谢
(defun c:thenumber(/ mylayers mylayout)
(vl-load-com)
(setq mylayers (vla-get-count(vla-get-layers(vla-get-ActiveDocument (vlax-get-Acad-Object)))))
(print "the number of mylayers=")(prin1 mylayers)
(setq mylayout (vla-get-count(vla-get-layouts(vla-get-ActiveDocument (vlax-get-Acad-Object)))))
(print "the number of mylayout=")(prin1 mylayout)
(princ))；

woaishuijia · 发表于 2011-6-18 08:02

本帖最后由 woaishuijia 于 2011-6-18 08:06 编辑

一楼的程序不能用,因为它存在几处致命的错误.
一.括号必须是半角字符,而现在第一个左括号是全角
二.函数"defun"你写成了"define"
三.条件判断语句中"/="函数与变量"p1"之间缺少一个半角空格
四.空值"nil"你写成了"null",这是一个函数
五.用单点命令画p1点时,不应该有那两组双引号,应该是(command "point" p1)
六.用三点画圆命令时三个点参数之间不应该是逗号,必须是半角空格

另外还有一些不合理的地方,需要加以改进.比如
一.应尽可能使用局部变量,不要偷懒.等你真正学会了编程,开始写大一点的程序时会明白局部变量有多么重要.
二.程序中取消了对象捕捉,在程序运行结束时要给用户改回去,否则人家辛辛苦苦设置的对象捕捉模式被你轻而易举地消灭了.
还有几处就不细说了.

下面是修改后的程序

(defun c:ABC (/ oldos p1 p2 p3)
# |2 v4 Y+ x6 h0 @1 m
(setq oldos (getvar "osmode"))
6 M }- }9 B. Y4 F, w' E
(setvar "osmode" 0)! k( ?( X8 o* Q4 b4 ~: v8 k
(setq p1 (getpoint "\n确定第一个点\n"))# l _+ P0 q3 l4 w! J7 ~4 K" A! c
(if (/= p1 nil)
( @! M) I# g* r( z" \1 W
(progn( p" t4 G+ ^/ r5 _
(command "point" p1)
4 l: g! e5 y7 w
(setq p2 (getpoint p1 "\n 确定第二个点\n"))
1 @/ j; Y% D9 D; Z
(if (/= p2 nil)
$ V0 Z! v6 N" X; G* V- w" K
(progn
f3 S$ ~9 Q# ^7 Q4 R
(command "line" p1 p2 "")
* f$ h; U, \# I: C' C) B
(setq p3 (getpoint p2 "\n 确定第三个点\n"))
/ C7 o% u$ T5 l
(if (/= p3 nil)( [! a: v1 }( D
(progn (command "line" p2 p3 ""): M! h: K9 O. o Z, B3 a9 j
(command "line" p1 p3 "")9 p4 x( R+ | d3 ~+ H; @9 n- p
(command "circle" "3p" p1 p2 p3)+ a4 i# \) X# T2 s" E0 n+ M( {
)3 s' [+ P" \: b1 r- v( I. X
) t# |1 R! E& F* I4 |7 Z
)
5 D4 A/ \5 v0 _( ]/ ~& ~4 ]- z
). L; a3 ~+ B/ y6 C8 m7 L' h
)
3 `" C7 r' F ?
)% q( E$ r0 i5 v- Y# N* ~+ m: Q( F
(setvar "osmode" oldos)
7 Y% B) J: ?8 s+ M8 _
(princ)! ]) | B% d' s$ D
)

复制代码

加载后在命令行键入函数名称(对本程序是ABC)就可以运行程序了

四楼的程序注释

(defun c:thenumber (/ mylayers mylayout)! a) R- f6 h+ c1 }( c8 Y
(vl-load-com) ;加载Visual LISP模块
# @: O1 {% h- {, X* y
(setq mylayers
[& L4 |5 ]2 E* e+ C: V
(vla-get-count
$ C) x" q" G# k2 A$ p. R8 Y) [+ v) Z
(vla-get-layers5 t4 Z3 k. o9 Q8 {* K) V
(vla-get-ActiveDocument
: c% g6 l5 @# h
(vlax-get-Acad-Object) ;获取CAD进程对象( V. r1 V5 X0 p% {% b7 a6 |9 ~
) ;获取该CAD进程的活动文档对象4 V. L$ o( t' J- L* {- e) |
) ;获取该文档的图层集合对象0 _3 Q0 H; o7 C' w2 f. B9 C
) ;获取该集合的元素数量# M% S- ?2 |6 B
) ;把得到的当前CAD文档的图层数量赋值给局部变量: x& m) n' q; J9 F2 A9 e1 [4 R
(print "the number of mylayers=")
9 h- g8 f- w# X' w! s; Q
(prin1 mylayers) ;在命令行输出当前CAD文档的图层数量' U% y: d1 T# Z( y
(setq mylayout
. Z. s. c. `" E9 M
(vla-get-count$ a0 [7 @$ s+ m
(vla-get-layouts( i: h0 b6 A! i0 M1 ?7 S
(vla-get-ActiveDocument d7 x& I1 k n5 B4 p
(vlax-get-Acad-Object) ;获取CAD进程对象
* I6 T. f( [. D k; [8 _5 J
) ;获取该CAD进程的活动文档对象
: X% Z/ {2 }7 ~& t) A9 D
) ;获取该文档的布局集合对象. K { _+ u! c
) ;获取该集合的元素数量3 E/ a! _; |1 n
) ;把得到的当前CAD文档的布局数量赋值给局部变量
5 D, n; Q3 X( n; @( T
(print "the number of mylayout=")5 r2 w1 R: q9 y0 t9 m' G
(prin1 mylayout) ;在命令行输出当前CAD文档的布局数量
# j: I3 w& z1 U4 Y* b A. O
(princ) ;空打印,用于清空本自定义函数的返回值,不让命令行产生多余的输出" g3 |9 U7 |$ P6 R: O& |
)

复制代码

五面怪 · 发表于 2011-6-30 10:34

楼上是高手。

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

[求助] 关于 lisp 的编程 问题 谢谢

[求助] 关于 lisp 的编程问题谢谢