关于 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)4 B7 [% T8 C1 C! j
(setq oldos (getvar "osmode")); q5 z4 s e. b( d& B/ b( k
(setvar "osmode" 0)
- f, n5 Y& L: J0 r% k
(setq p1 (getpoint "\n确定第一个点\n"))- E! ~ s3 E, t6 Z% z
(if (/= p1 nil)9 b1 I/ V9 [1 I$ G
(progn! E {) v7 P- e1 Y7 c' E0 ]
(command "point" p1)% r; {# G; Y: a
(setq p2 (getpoint p1 "\n 确定第二个点\n"))
- u; F8 m* ^! r8 B. T) |
(if (/= p2 nil) q6 }. k8 J+ _2 S9 x
(progn
- V' T( U% u3 b1 Z; M
(command "line" p1 p2 "")( M' r: a% Z5 X F, y2 t
(setq p3 (getpoint p2 "\n 确定第三个点\n"))
7 Y2 g1 D9 j6 I* l4 Z$ @4 d% r3 |; q
(if (/= p3 nil)
9 X# |9 ~ v _, m, b3 ]
(progn (command "line" p2 p3 "")0 _4 l" U2 V2 s3 E$ ?# S: e
(command "line" p1 p3 "")
# o J! V7 `1 s" u- w! |8 K
(command "circle" "3p" p1 p2 p3)- k7 r$ ~9 _# N# X6 o5 L$ P
)9 F( F" @5 n# E
)8 \- }' J$ }2 p9 k5 j+ F
)
M! d* F" I0 N$ Y; j
)
& S/ Q; v. n1 W1 J# b) c
)
( a2 L2 y+ I) t" I- j" I# X
)
* ` _6 p( T+ ] I: h7 |' }
(setvar "osmode" oldos)
" E, u( F6 B8 [, F) I
(princ)4 f: }8 E" M- c* U
)

复制代码

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

四楼的程序注释

(defun c:thenumber (/ mylayers mylayout)
2 U' W7 Q1 ], c' _
(vl-load-com) ;加载Visual LISP模块
! x/ P. J1 j+ C" I8 M
(setq mylayers
4 S: y# `" x+ r: i% J9 i& \ O& C
(vla-get-count
2 R' O8 P6 K) b- M/ I. v) t
(vla-get-layers) o9 n+ o0 z2 h9 P
(vla-get-ActiveDocument
+ i& C/ h. L( ?
(vlax-get-Acad-Object) ;获取CAD进程对象7 P. {: C1 [: h4 L/ }, z1 r/ o9 t
) ;获取该CAD进程的活动文档对象5 I0 j: w4 H! S+ v& k
) ;获取该文档的图层集合对象
: B1 G! j8 T2 H1 B) m
) ;获取该集合的元素数量
# u% F5 o6 R J. Y& v% R9 [
) ;把得到的当前CAD文档的图层数量赋值给局部变量
0 x: G9 P6 w2 u3 x
(print "the number of mylayers=") a( z/ |' q" K
(prin1 mylayers) ;在命令行输出当前CAD文档的图层数量8 ?9 L: Y' l' N7 S
(setq mylayout
: E2 ^1 @$ P1 x7 D, J! _
(vla-get-count
6 W3 L0 f2 p! o
(vla-get-layouts8 n2 C; z$ b( `* I8 k6 L2 g1 Q, g0 f$ r2 ?3 S
(vla-get-ActiveDocument
( y# Y/ Z* c0 Y2 X5 G* n) ]
(vlax-get-Acad-Object) ;获取CAD进程对象
9 z* F5 l$ b3 D( D
) ;获取该CAD进程的活动文档对象
1 O8 T" g7 n& [$ U! p, _7 U
) ;获取该文档的布局集合对象5 [6 s, R! G. l' J9 U
) ;获取该集合的元素数量; \9 z2 @( @1 ]" O+ ?. h
) ;把得到的当前CAD文档的布局数量赋值给局部变量
# M$ K W+ x4 H$ Z! B% M$ D
(print "the number of mylayout="): F# b2 |* O3 V2 F
(prin1 mylayout) ;在命令行输出当前CAD文档的布局数量2 V9 c8 p' E% B; W# x/ Z
(princ) ;空打印,用于清空本自定义函数的返回值,不让命令行产生多余的输出 o# N& d" u5 B0 R& `4 q: p
)

复制代码

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

楼上是高手。

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

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

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