关于 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)3 E N% V0 R( i6 B/ V
(setq oldos (getvar "osmode"))" W0 C; a6 a1 L% S! P: i0 a
(setvar "osmode" 0)# \: s1 P# M2 m
(setq p1 (getpoint "\n确定第一个点\n"))
7 n* Y7 a$ x2 {
(if (/= p1 nil)" |( o9 c+ r( ]) i+ @/ V
(progn9 E9 y. H! _& X' v) q! e) R: y
(command "point" p1)
8 H- B0 T2 d+ r, ~
(setq p2 (getpoint p1 "\n 确定第二个点\n"))
5 `% }1 w! @9 |. X; U4 U
(if (/= p2 nil)
* w3 J* D5 [: H
(progn
% f2 ^) S3 P6 w0 _
(command "line" p1 p2 "")
$ o5 G0 z- P7 H/ F
(setq p3 (getpoint p2 "\n 确定第三个点\n"))" F' @/ n1 f! E; w+ L* D u
(if (/= p3 nil)) y% z6 Q) U5 \. A7 K) |
(progn (command "line" p2 p3 "")5 F5 C* D- a4 B" `5 }% \, [: i
(command "line" p1 p3 "")
) T2 q/ V0 \$ J9 @, r! s. ?
(command "circle" "3p" p1 p2 p3)7 ^( W$ M) F; w7 M
)
) j3 F/ q9 N5 ~9 F
)
" k/ g9 k& L' `5 Y% [. p U
)
- }4 {9 R2 A9 }7 J
)& L3 r7 v, W3 l' b9 y ?# ]" @
)
, n' g& F; l! W2 g" [* R
)2 \0 F$ m- I4 p2 h* @( S
(setvar "osmode" oldos)6 i+ d6 @$ J6 H6 i
(princ)
% ^+ U) f0 `' C) p& H" f5 [
)

复制代码

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

四楼的程序注释

(defun c:thenumber (/ mylayers mylayout)
/ T0 ~9 D+ e8 X0 A5 V; N' F
(vl-load-com) ;加载Visual LISP模块
$ ^4 A1 b" R2 @. s' G
(setq mylayers& V2 @1 k+ ~& g, K- L
(vla-get-count5 E! ]; d7 q# e
(vla-get-layers. r1 e8 V% k2 j# P% }5 @
(vla-get-ActiveDocument
" _0 [9 t7 Y% w* x8 [6 w- p
(vlax-get-Acad-Object) ;获取CAD进程对象. N) V2 r6 _! B% B/ G; U9 G8 S
) ;获取该CAD进程的活动文档对象
$ S, U! V. I, K8 y+ O5 s
) ;获取该文档的图层集合对象4 F; B- B( w( ]% A8 }- J' E' v
) ;获取该集合的元素数量
$ I e# O8 J% [1 \
) ;把得到的当前CAD文档的图层数量赋值给局部变量: g8 y3 J: R+ m1 A
(print "the number of mylayers=")
3 J* M; R) S c0 \& d: h1 Y' j& \. }
(prin1 mylayers) ;在命令行输出当前CAD文档的图层数量
- b V$ U4 p e
(setq mylayout
3 q; ^$ _" L5 \$ |" F E
(vla-get-count0 w) }4 b1 Q+ o p1 }
(vla-get-layouts5 }6 k4 |! o, N0 n% m
(vla-get-ActiveDocument( N0 |: ^% R! M \3 k! G- r- v% N
(vlax-get-Acad-Object) ;获取CAD进程对象6 ~" W+ v. p i
) ;获取该CAD进程的活动文档对象
0 Z9 C* G, s; f* O4 s, j
) ;获取该文档的布局集合对象) a3 @/ K' R1 m$ H, y7 k% g
) ;获取该集合的元素数量# T0 y# M3 C7 [1 J! A/ R/ a/ `
) ;把得到的当前CAD文档的布局数量赋值给局部变量
3 M: ~ G2 P2 t
(print "the number of mylayout=")2 T: Q, Y0 b- j9 {" K4 s
(prin1 mylayout) ;在命令行输出当前CAD文档的布局数量
+ @. w1 Q* t) r) J
(princ) ;空打印,用于清空本自定义函数的返回值,不让命令行产生多余的输出
9 ^4 h% G/ p, A. ^0 F N
)

复制代码

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

楼上是高手。

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

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

浏览过的版块

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

浏览过的版块

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