关于 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)/ J* Z& ^9 Q% p6 f. X
(setq oldos (getvar "osmode"))9 G& f- v, c( `! A
(setvar "osmode" 0)
2 ?4 e0 j: `0 X% n
(setq p1 (getpoint "\n确定第一个点\n"))! ?6 ?$ G$ {" ]3 g* F6 Z# G0 }
(if (/= p1 nil)
" ^" o6 Z& y# M3 k1 S- |
(progn% J5 r: Z! y% B- F7 ^ P
(command "point" p1); Z9 v m7 u* s% {/ f6 F3 m0 d0 ]! Z
(setq p2 (getpoint p1 "\n 确定第二个点\n"))
! L) i1 h+ ]' K! _& Q
(if (/= p2 nil)2 ~: ?+ ^( k: o, S; t: t
(progn* s- U% D0 }8 t# x5 v. t4 ~
(command "line" p1 p2 "")$ m2 p( K) [" Y/ k, P) G: ?& q
(setq p3 (getpoint p2 "\n 确定第三个点\n"))' ?6 n8 m8 \% Z1 r% i7 p# l& v
(if (/= p3 nil)
9 a1 Y& v! z9 O* ~1 g$ B4 w! B* F
(progn (command "line" p2 p3 "")
3 ]; H* U; y ]6 N7 {2 V, G
(command "line" p1 p3 "")
- f0 v+ H0 J, E! B6 P0 b
(command "circle" "3p" p1 p2 p3): I+ u) L; t4 x7 B
), c0 f& Q& e: L! @' y
)
& c# F" Q; _3 R; j
)$ p5 B" f! C3 e/ a$ |
)
4 ^# y, [5 ^% Z" A8 h$ {
)
3 V7 G% t$ I% x7 Y7 _, Y" V) \" [$ ~0 q
)% d$ m* [. J5 _9 P7 {- C1 l) @! m
(setvar "osmode" oldos)
. \- B# k5 U7 ]) e7 y* s
(princ)
9 ~( q" v3 }6 T* Y* U& I
)

复制代码

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

四楼的程序注释

(defun c:thenumber (/ mylayers mylayout)" S% {9 P3 A# u9 E) D. H
(vl-load-com) ;加载Visual LISP模块' b7 b( a% \6 f* z! \- c
(setq mylayers* h; t* X- D, F1 @! F$ C
(vla-get-count
7 f8 x8 M5 F* @% }( h( M) N
(vla-get-layers
+ [+ H2 E; ^! C* N3 P8 z0 i7 i7 Y
(vla-get-ActiveDocument
- r! l9 m5 {: Z$ Q4 X1 g/ U
(vlax-get-Acad-Object) ;获取CAD进程对象
, v- H* P) R7 `( ?% s" i1 ~
) ;获取该CAD进程的活动文档对象% R5 K& n2 U. R Z8 a. A
) ;获取该文档的图层集合对象
6 p9 i5 K9 N) J8 H8 D
) ;获取该集合的元素数量
2 T: G/ |' o8 r d Z9 x# v
) ;把得到的当前CAD文档的图层数量赋值给局部变量& l, ]$ E- @. }# Z2 h
(print "the number of mylayers=")
7 ]' K) o- Y, \% a4 ?" }0 R4 r0 h
(prin1 mylayers) ;在命令行输出当前CAD文档的图层数量( H* I' j6 }( [/ U, ^2 D9 B
(setq mylayout
% L2 o5 F- x6 A, A/ Q8 F% @; b
(vla-get-count
, a! E+ n' R3 J* G/ O J
(vla-get-layouts R2 L7 G- R& v0 N n
(vla-get-ActiveDocument$ ]/ e& M* V* Z' @8 m
(vlax-get-Acad-Object) ;获取CAD进程对象7 n7 E6 }) t! Q& D: t8 X0 Y
) ;获取该CAD进程的活动文档对象1 G* c+ W. d# h1 M! C
) ;获取该文档的布局集合对象5 f0 N4 v$ R4 w/ l' j1 I* H# g4 v! n
) ;获取该集合的元素数量
* \0 E8 _" w/ ?; C
) ;把得到的当前CAD文档的布局数量赋值给局部变量
2 F- R0 v4 L. E9 k* q
(print "the number of mylayout=")
) k- p5 s2 l# l2 }) w* r8 j! v- c
(prin1 mylayout) ;在命令行输出当前CAD文档的布局数量
4 Q1 q. R* z( H8 b- p, o( u
(princ) ;空打印,用于清空本自定义函数的返回值,不让命令行产生多余的输出2 v% c# f3 Y8 O
)

复制代码

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

楼上是高手。

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

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

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