关于 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)
9 i4 J$ z5 n5 N( [2 G# _
(setq oldos (getvar "osmode"))4 [# M" q9 c4 w$ P4 z& m F
(setvar "osmode" 0)4 m/ s5 D& p& Y- X7 N- ~
(setq p1 (getpoint "\n确定第一个点\n")); _6 G0 \9 m% K. j$ @
(if (/= p1 nil)
; q, A. h# @3 r* L1 U
(progn# P0 s; b# P% u( i1 K" U9 u" v: y. X
(command "point" p1)
. }/ ~3 `0 d# n- B7 _! y
(setq p2 (getpoint p1 "\n 确定第二个点\n"))
# a+ R$ _( v( ]/ B5 z9 P& V
(if (/= p2 nil): X) T; }5 E' p- K( N
(progn
$ ]: t' t7 `, z, _
(command "line" p1 p2 "")
$ V7 s1 q/ p2 t
(setq p3 (getpoint p2 "\n 确定第三个点\n"))
: o* r4 q% R+ t9 i5 N5 e
(if (/= p3 nil)
$ Q; J/ e. p2 D1 d5 d
(progn (command "line" p2 p3 "")) B/ A4 z8 i) S
(command "line" p1 p3 ""); @* c4 s9 o* c% H6 Y4 U
(command "circle" "3p" p1 p2 p3)
)
# y6 f- c* N4 I/ l9 L( l
)& F$ r2 K6 y7 w6 B( }
)1 |" b2 v' |; J/ ^2 v* w( x
), @0 j* p' \; e& T6 z% r) d
)/ N/ t+ W% P# a+ R: a
)
/ i1 ]) m% i# ~0 ? n
(setvar "osmode" oldos)7 `2 b& q. k/ ^2 C7 t6 Q. N
(princ)
% F4 }0 ?/ u7 G7 G4 |
)

复制代码

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

四楼的程序注释

(defun c:thenumber (/ mylayers mylayout)
% N* f% a! D6 S8 K9 Y
(vl-load-com) ;加载Visual LISP模块2 u1 `: D0 x2 A: x4 l @. v9 j
(setq mylayers
5 Y% f" M: G1 q7 A }! s
(vla-get-count
0 F; S& } \6 T: N* L1 l
(vla-get-layers
R# G9 f" H; s, p
(vla-get-ActiveDocument. E0 A. D; M7 Y
(vlax-get-Acad-Object) ;获取CAD进程对象. r$ l6 T n; h$ F5 h
) ;获取该CAD进程的活动文档对象- l/ z- e6 {% m! T( Y$ s+ \% w" S t
) ;获取该文档的图层集合对象
$ K* V; i! [! T9 y
) ;获取该集合的元素数量
7 k. f. v! @: U7 G0 C
) ;把得到的当前CAD文档的图层数量赋值给局部变量
0 V0 B, i! Q& E0 z
(print "the number of mylayers=") C# F9 o7 @& G: |: @5 C
(prin1 mylayers) ;在命令行输出当前CAD文档的图层数量. i2 B C$ {: D- x: S1 Z
(setq mylayout7 x& [' Z* K0 X" C9 { h9 Z
(vla-get-count
) U2 [0 Y( Y# I0 p
(vla-get-layouts
% F$ [6 q w% \0 \
(vla-get-ActiveDocument8 O* l D% @4 z2 ?( @ a1 a
(vlax-get-Acad-Object) ;获取CAD进程对象
( b! I8 f/ a- }2 d5 h- o
) ;获取该CAD进程的活动文档对象! ]4 I6 e! i/ E* _
) ;获取该文档的布局集合对象
/ s) C+ |: ^2 |) S1 [) w
) ;获取该集合的元素数量
! Q1 i0 [' L0 a b9 K/ }
) ;把得到的当前CAD文档的布局数量赋值给局部变量
! s. o% y4 m I, G5 b' ]& q- o
(print "the number of mylayout=")
. \( w8 J! |4 M, E* G" E
(prin1 mylayout) ;在命令行输出当前CAD文档的布局数量; s% O) a; c( M2 h& l
(princ) ;空打印,用于清空本自定义函数的返回值,不让命令行产生多余的输出
- S' L! c% N" X
)

复制代码

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

楼上是高手。

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

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

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