关于 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)
}+ A# t: g+ {* U1 Z" Y3 S
(setq oldos (getvar "osmode"))4 h3 i! V0 O+ r3 z$ M* q8 B
(setvar "osmode" 0)
; M% L! s, @: [, `% a
(setq p1 (getpoint "\n确定第一个点\n"))- b; W/ U( b% |- @2 w% \
(if (/= p1 nil)0 q3 m) U' B' v% ^
(progn, F, l0 ]9 L) m m- `! g8 u
(command "point" p1)
+ S0 Z& {' V/ W, _
(setq p2 (getpoint p1 "\n 确定第二个点\n"))
3 M" ?+ B" i- {* p$ K4 P2 D6 q
(if (/= p2 nil). C# `7 z& ]; [5 [4 `1 ~
(progn8 ^8 f# N$ C0 @/ }" G
(command "line" p1 p2 "")
& |: r" k7 v6 |9 f3 P
(setq p3 (getpoint p2 "\n 确定第三个点\n"))! V& B% _6 n$ Y
(if (/= p3 nil)
% F( Y B+ |' P7 y5 y( H
(progn (command "line" p2 p3 "")+ [8 t; e5 o: Z! B9 W. J5 K/ N
(command "line" p1 p3 "")
$ i; ?( \- y( Q" G9 v8 {% S
(command "circle" "3p" p1 p2 p3)
. E% F. U5 `; [
)
- [' l2 D1 q* K$ s
), d3 K: P9 ]6 S+ M) `( v/ b
)$ {6 e9 z5 k# Q$ Z+ Q- Q7 ]
)# u. i8 }6 o' R; t# K) n3 R2 ]7 U- K
)
/ a; F, N" T- U0 P, M- _7 I
)
, d0 v: m) E( w+ m# o( m4 T
(setvar "osmode" oldos)
9 C0 U7 D: }; G% o
(princ)' U0 D O5 j( S: h6 ^! T' ~
)

复制代码

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

四楼的程序注释

(defun c:thenumber (/ mylayers mylayout); X1 _ \. S5 U6 r% R3 T1 k
(vl-load-com) ;加载Visual LISP模块3 |) b: e3 X0 q2 w, b
(setq mylayers6 l8 T* P1 l2 ?- x/ Q% f
(vla-get-count( H) S! Z/ e$ u% P( M6 Y
(vla-get-layers
7 L0 Z! M+ {7 \
(vla-get-ActiveDocument( o9 q: @# @4 a$ c* Y2 o
(vlax-get-Acad-Object) ;获取CAD进程对象! ?1 l$ X4 P4 M% N( V
) ;获取该CAD进程的活动文档对象
7 g. S) [2 V7 e( u& |; o6 W
) ;获取该文档的图层集合对象
" T5 g) l: V: i1 D* T3 O/ p
) ;获取该集合的元素数量! @; f. ]2 }% i3 u; b+ V+ F$ z+ i
) ;把得到的当前CAD文档的图层数量赋值给局部变量- [( N6 f8 `% z+ R
(print "the number of mylayers=")3 e }1 `- c1 n Z6 _; m
(prin1 mylayers) ;在命令行输出当前CAD文档的图层数量
, b9 x) B" |0 f8 z N" T& I0 L/ \
(setq mylayout
+ U* F; ^0 e# m9 ]4 d; E
(vla-get-count
, h7 j ^! l$ z+ l% a1 E$ g* t
(vla-get-layouts
7 b0 J: K; M4 \; N; y! R7 I' y
(vla-get-ActiveDocument% g/ [ k% h; s0 n' P
(vlax-get-Acad-Object) ;获取CAD进程对象9 [) M9 e9 |9 ?& y6 h
) ;获取该CAD进程的活动文档对象& l) J; ~4 X: j! L9 v& z: b
) ;获取该文档的布局集合对象4 I6 \9 O! O1 T
) ;获取该集合的元素数量6 a: X* N7 L! S
) ;把得到的当前CAD文档的布局数量赋值给局部变量$ d4 z7 W6 t$ n: ~4 Z- B. x
(print "the number of mylayout=")
& R; \* P, f5 E* O+ w! H+ r
(prin1 mylayout) ;在命令行输出当前CAD文档的布局数量
0 C9 `/ \ [2 C& T5 @, S0 F
(princ) ;空打印,用于清空本自定义函数的返回值,不让命令行产生多余的输出; B% S; r) \; c* Z0 @% m' _
)

复制代码

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

楼上是高手。

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

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

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