关于 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)* r) S4 f/ h, d! b: m5 U* ~
(setq oldos (getvar "osmode"))
$ B" E1 }, P1 W' z
(setvar "osmode" 0)8 I' P; N v; g! p& _
(setq p1 (getpoint "\n确定第一个点\n"))( N& T5 L3 @& Y
(if (/= p1 nil). F9 n* k8 i1 k4 C4 @1 o1 z
(progn
. w9 d) w; F6 A& z" F! F
(command "point" p1): _0 M& O+ j* k# C
(setq p2 (getpoint p1 "\n 确定第二个点\n"))+ k2 U2 e' I4 z" ?0 d4 Q d6 q
(if (/= p2 nil)
* F a4 E, l" l8 p( X/ J
(progn
! }& D @. I. X. t( W8 Y3 b0 t8 T! `
(command "line" p1 p2 "")
! I4 S) ^# ~- _7 Z
(setq p3 (getpoint p2 "\n 确定第三个点\n"))
6 a+ b" D' o( z2 p; F; ^) c5 ~8 p
(if (/= p3 nil)
) o. V4 h2 E$ k. g
(progn (command "line" p2 p3 "")
0 V1 c& C& t, ^7 ~
(command "line" p1 p3 "")
$ J# x: I& D: |( J; ~* k% w) E' x/ `
(command "circle" "3p" p1 p2 p3)
: M4 r/ ` D& ~+ ?" T! ^
)3 V. \: c/ s9 L, l! n
)' ?! j, g( R, m( J6 Q0 W
)
8 R% x# [" G, W9 a( ~. i8 E! m$ j
)6 b1 U. H: T; i- L
)! G8 Q) ^+ l1 x* T( T$ B) F
), s3 p5 C- U7 R. G) F4 M
(setvar "osmode" oldos)
' J% L A9 } O- N) S/ S0 I
(princ)4 [. Y' a; I: y* @& r6 k: h
)

复制代码

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

四楼的程序注释

(defun c:thenumber (/ mylayers mylayout) \: }6 f) |& o7 p' _
(vl-load-com) ;加载Visual LISP模块
a, F0 W* f% k; ~1 D- {
(setq mylayers) r, a* E$ N; M5 q; ?
(vla-get-count
: P8 a( e$ q ]% F$ K. I
(vla-get-layers
) H* [1 f/ I- W
(vla-get-ActiveDocument
+ K5 ^6 d3 ?: o0 A! a" W
(vlax-get-Acad-Object) ;获取CAD进程对象
* R( F D; ?: z' e& g3 G- o" A0 W8 U
) ;获取该CAD进程的活动文档对象7 J4 E* d8 u A
) ;获取该文档的图层集合对象0 S' U, r2 j. \ z4 R& F
) ;获取该集合的元素数量: J4 \/ s! }; f% G. P
) ;把得到的当前CAD文档的图层数量赋值给局部变量
; Q4 }9 L: ~/ ~
(print "the number of mylayers=")
2 L9 [# |" ]2 t
(prin1 mylayers) ;在命令行输出当前CAD文档的图层数量& \: V6 N" r# `( ~5 |6 e o% u1 Q
(setq mylayout3 \7 e/ B* I3 v& y
(vla-get-count$ G- Y' {9 t' y, D
(vla-get-layouts
% }7 p$ {! x4 g' J: z
(vla-get-ActiveDocument e; c+ }& s4 a! w# R! a2 Q7 ~0 r
(vlax-get-Acad-Object) ;获取CAD进程对象: w( c* M. F: H) _6 e) H; E& U! l
) ;获取该CAD进程的活动文档对象% o4 H( A4 A5 b i' o; l' @5 G/ H' K
) ;获取该文档的布局集合对象
9 C1 p8 u0 X: N& i& f) q
) ;获取该集合的元素数量- S( ?6 W9 s! e0 {9 m
) ;把得到的当前CAD文档的布局数量赋值给局部变量
1 ^- A- V3 R4 _( K- G
(print "the number of mylayout=")
6 U; g) E7 y( y4 y
(prin1 mylayout) ;在命令行输出当前CAD文档的布局数量
! S& [5 p! q; ?# o
(princ) ;空打印,用于清空本自定义函数的返回值,不让命令行产生多余的输出- }. v% S% J3 u1 |8 [1 v
)

复制代码

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

楼上是高手。

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

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

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