关于 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)( h' f7 W# i& M/ e
(setq oldos (getvar "osmode"))1 ]* n% r/ Q* @: R
(setvar "osmode" 0)3 N3 ?; g1 a3 P4 a7 K# @: {
(setq p1 (getpoint "\n确定第一个点\n"))
0 }! J/ O& p+ X, m( m
(if (/= p1 nil)- L8 p2 w) C+ ]( D7 z
(progn
/ j- ^: D7 Q- x, T
(command "point" p1), F: n. |! J& X, e3 `, n
(setq p2 (getpoint p1 "\n 确定第二个点\n")) {6 G, }# h R2 c8 y6 y
(if (/= p2 nil)+ F* _4 h, ]# |# G/ }
(progn
7 ?8 a% O6 S' d/ t
(command "line" p1 p2 "")& Q! W$ S: C+ m- g5 H4 r, W
(setq p3 (getpoint p2 "\n 确定第三个点\n"))
/ @' ^' l' L9 V' K7 Z* P
(if (/= p3 nil)
) G6 i+ o, y% ?4 K4 P( p9 ~+ z
(progn (command "line" p2 p3 ""), r0 V8 d. N% ?' U1 t
(command "line" p1 p3 "")
6 S) l' {7 [ L
(command "circle" "3p" p1 p2 p3)) v) w' [, ^4 C, O: w1 H
)
$ u& Z$ u8 r o) p* S2 n; P$ p
). _2 u9 }# x4 _6 f( E
): _7 n: }7 Z1 w5 X W0 l/ {
) ]$ y2 s; h7 t
)+ |" z$ k2 B/ G6 @$ H
), ]2 m2 U' z( z$ n2 Q
(setvar "osmode" oldos)
" M. ]- g' g9 l/ M; d
(princ)5 z' |. q. \9 [+ q5 j6 c
)

复制代码

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

四楼的程序注释

(defun c:thenumber (/ mylayers mylayout); E4 w! j' d/ M( E' Z% R, ^1 T
(vl-load-com) ;加载Visual LISP模块+ {/ A! Z- _) O. v- u& H S) _
(setq mylayers) N2 G" t6 J) B/ G% A
(vla-get-count3 Z H6 U, u# Q5 ~
(vla-get-layers
. u9 l# W! V9 e5 [: G+ h) D9 g* ?
(vla-get-ActiveDocument
: B* R2 I( u6 `
(vlax-get-Acad-Object) ;获取CAD进程对象
3 C5 d, [/ u; @1 _8 u5 g
) ;获取该CAD进程的活动文档对象
0 m0 ^- R$ {0 S
) ;获取该文档的图层集合对象, `) s1 A$ G. y5 K5 I1 J# Y
) ;获取该集合的元素数量1 V; D4 ]6 b# w% Y; B
) ;把得到的当前CAD文档的图层数量赋值给局部变量
8 k+ Y% U9 k8 X# Y3 |/ z
(print "the number of mylayers=")
1 h% i& C# X2 _* o
(prin1 mylayers) ;在命令行输出当前CAD文档的图层数量 _. p K% I1 _
(setq mylayout+ U7 H5 g( A$ v/ K; k
(vla-get-count
" h9 H( T- u4 T: \
(vla-get-layouts7 J; r2 L; G( Q) \
(vla-get-ActiveDocument& d. m( Z+ V2 p3 _
(vlax-get-Acad-Object) ;获取CAD进程对象 n4 Q: V% T- p, z- X: E7 E$ E
) ;获取该CAD进程的活动文档对象! B `- P5 s8 N( G! B8 S
) ;获取该文档的布局集合对象2 S- L1 c# S8 h: b
) ;获取该集合的元素数量; h, n- E+ s' d% k6 v9 \2 V: n
) ;把得到的当前CAD文档的布局数量赋值给局部变量
$ X4 ^( x) N7 `. s! A2 Z2 x
(print "the number of mylayout=")
9 t* Q' E, H, ^) [ }( `
(prin1 mylayout) ;在命令行输出当前CAD文档的布局数量6 a2 h9 K0 m$ X2 b
(princ) ;空打印,用于清空本自定义函数的返回值,不让命令行产生多余的输出
; k9 H7 M! ]& V
)

复制代码

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

楼上是高手。

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

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

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