关于 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% W( B4 N; }0 |8 a
(setq oldos (getvar "osmode"))* A4 W2 R9 d. f
(setvar "osmode" 0)
: H( X. t5 Y, k# t; M6 |
(setq p1 (getpoint "\n确定第一个点\n"))
; m$ J0 h8 b% _0 E0 h
(if (/= p1 nil)
; l* X# I. I, h7 {) |3 \1 R
(progn' q# A/ P. M1 p6 q3 y9 d
(command "point" p1)5 Q ^* ?6 \5 H
(setq p2 (getpoint p1 "\n 确定第二个点\n"))+ ^ @5 }+ `( a& A3 }1 s
(if (/= p2 nil)
4 ^5 _6 u% V+ H' H5 D; N
(progn
2 B/ v* @+ x/ v
(command "line" p1 p2 "")3 n! w+ V" h( Q ^; X
(setq p3 (getpoint p2 "\n 确定第三个点\n"))
) Z, f7 }0 s+ Y" D
(if (/= p3 nil)& s/ G$ P! C/ A' v- Y9 c
(progn (command "line" p2 p3 "")/ V' P2 p& M9 T8 B, r4 R) }& }
(command "line" p1 p3 "")/ k. l' Q% W& X0 H8 i: T
(command "circle" "3p" p1 p2 p3)
# v8 g, }- q J
)2 Z- ~' k, @3 h; G. A
)
, |7 i8 ]4 e+ ?: e
)
8 V* ?; o4 j: w/ S% u$ E
); T, G) G" n6 V7 H* n- m
)
5 ^$ K' Q: y1 Q6 O0 E2 v
)
6 W! x% R5 v% Q9 u9 p" g4 R
(setvar "osmode" oldos)! q e/ c7 V$ J. h+ Y& B
(princ)
# F' a4 ?0 l- i( [
)

复制代码

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

四楼的程序注释

(defun c:thenumber (/ mylayers mylayout)1 P6 Z. d* M% {9 v
(vl-load-com) ;加载Visual LISP模块 B/ G6 a, y2 ^/ R% J G7 h9 u5 S
(setq mylayers
# ~# B& ?+ u4 h7 q- ^- M
(vla-get-count8 G- M/ ?6 D+ `4 B% G: @
(vla-get-layers
9 L% X5 o4 u7 V8 A$ j0 j0 B- f# T
(vla-get-ActiveDocument
9 W4 p1 D" _8 P$ f4 x; k: B+ u
(vlax-get-Acad-Object) ;获取CAD进程对象
3 `( m- G# ~8 B& K, x. ]+ N
) ;获取该CAD进程的活动文档对象' w! c D" w- p5 ^- u! X/ _
) ;获取该文档的图层集合对象
" R# e- ~) ^, @: t
) ;获取该集合的元素数量
, t! j' Q$ a4 z
) ;把得到的当前CAD文档的图层数量赋值给局部变量" r% U% l) b! u% P8 Y$ v
(print "the number of mylayers=")- Y& M" Y7 P- B: @7 y! i
(prin1 mylayers) ;在命令行输出当前CAD文档的图层数量
9 G/ ^4 c/ @9 ^+ ]% N
(setq mylayout
! `8 F. s- k9 W/ ?3 A: s# x. S
(vla-get-count
: v7 Q `0 W, C, G
(vla-get-layouts3 M I8 R, E2 F+ g6 q+ |: G1 K
(vla-get-ActiveDocument3 y* I& s1 @4 t' _8 \8 m4 N J9 ]
(vlax-get-Acad-Object) ;获取CAD进程对象# ~9 i6 S1 {& M: N
) ;获取该CAD进程的活动文档对象
# O3 j5 l6 k# L0 U k
) ;获取该文档的布局集合对象- B6 X" w6 |- Z' W1 m6 j9 S
) ;获取该集合的元素数量8 Q& r8 S9 o* W& {8 Z
) ;把得到的当前CAD文档的布局数量赋值给局部变量3 S `4 v# |- Z: {3 u X
(print "the number of mylayout=")
1 b) }' z, ~1 q" M' @8 u* R! B5 [
(prin1 mylayout) ;在命令行输出当前CAD文档的布局数量
4 j# ^* ]# b/ e* F& P
(princ) ;空打印,用于清空本自定义函数的返回值,不让命令行产生多余的输出
4 W* ]( L- z: P- T0 b' n
)

复制代码

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

楼上是高手。

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

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

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