关于 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)7 k- a3 B0 B' z4 r& \* y
(setq oldos (getvar "osmode"))" z/ K; f/ o% a |$ j/ n( l9 P
(setvar "osmode" 0)) z2 m: \* G, h C& G
(setq p1 (getpoint "\n确定第一个点\n")), q; h2 h* [; ?- m" \+ o
(if (/= p1 nil) ]# \6 o& M6 R; Z! {- T& ^' X
(progn
& a3 W* w; W" W' A" U+ W! w/ a) s
(command "point" p1)
J4 G6 S+ t: G9 O; W+ Y$ @ x
(setq p2 (getpoint p1 "\n 确定第二个点\n"))8 i8 Q5 E* z( h6 A0 p6 x2 E; [$ c) N$ v
(if (/= p2 nil)
/ h3 C v5 U2 D! v' U N
(progn% c, q4 q! E( o' \' H& G
(command "line" p1 p2 "")" v( }4 {2 d% p% ?, o
(setq p3 (getpoint p2 "\n 确定第三个点\n")): m! c" B' ~' B! \
(if (/= p3 nil)& l, H* L5 R) x/ i# Q1 s' d0 q4 E
(progn (command "line" p2 p3 "")
5 p Z+ \/ M8 ~5 a7 H
(command "line" p1 p3 "")
7 P4 G9 R# x8 J9 u
(command "circle" "3p" p1 p2 p3)
8 \, [+ X8 H2 p) d1 f1 E1 E4 ]$ G
)4 d5 P' E6 I2 O. L- T
): @; P, o9 E/ f0 X; v/ g
)8 b: z, J! K" g/ p2 L8 y! ]! u/ h
) L2 q0 R; p2 J' f7 {4 c% A
)
& P7 ]# V5 U2 d1 V7 ~0 R
)% t) x8 H) [& [, f
(setvar "osmode" oldos)1 Y! K; x3 r* E# q5 t( a: r% c
(princ)0 M6 z* C9 b. G* e( k, U
)

复制代码

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

四楼的程序注释

(defun c:thenumber (/ mylayers mylayout)
1 w. s1 t* C9 L1 }9 k
(vl-load-com) ;加载Visual LISP模块+ \$ a% B, U8 S/ J0 T1 r3 L
(setq mylayers
0 Q3 d1 L0 S) |% v) N$ T- @
(vla-get-count& \% q% p; I$ M5 l$ s; L
(vla-get-layers
) m7 M/ y$ E5 H# |5 L
(vla-get-ActiveDocument# ?8 |0 h, J% C! Y
(vlax-get-Acad-Object) ;获取CAD进程对象/ x* q3 j6 m5 g% I) z, V! q# M9 n
) ;获取该CAD进程的活动文档对象+ n% n0 ~; P7 i* L0 ?% {
) ;获取该文档的图层集合对象
9 H% c/ Z% D' o( }) |0 G9 ^
) ;获取该集合的元素数量
R# D$ w I5 O
) ;把得到的当前CAD文档的图层数量赋值给局部变量' N y z& G" _5 h
(print "the number of mylayers=")
6 a* a$ r# U5 k# o( H
(prin1 mylayers) ;在命令行输出当前CAD文档的图层数量
+ _# K* T7 d1 C0 J/ V
(setq mylayout! d5 \, P# C% k% G0 ]5 P/ g& @$ Q: x
(vla-get-count5 `9 `+ A2 r( L* r6 B- H
(vla-get-layouts& R% ~) Y' A: b; U$ { e$ ~
(vla-get-ActiveDocument3 [# {0 O% K! s6 F& x0 j
(vlax-get-Acad-Object) ;获取CAD进程对象& \. z" D! q0 K8 c+ u
) ;获取该CAD进程的活动文档对象5 p2 Y8 t1 }+ A5 o
) ;获取该文档的布局集合对象
+ V. T5 z4 _2 O% x( g
) ;获取该集合的元素数量
1 Q9 H& e+ I3 R a$ c5 L
) ;把得到的当前CAD文档的布局数量赋值给局部变量
* \' t! Y: N& t" d4 X' r
(print "the number of mylayout=")
# s8 U4 R. ^* l2 u$ z) ^! [
(prin1 mylayout) ;在命令行输出当前CAD文档的布局数量0 ^5 A( }% `5 P
(princ) ;空打印,用于清空本自定义函数的返回值,不让命令行产生多余的输出. K; v( q8 U! E
)

复制代码

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

楼上是高手。

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

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

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