关于 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)' l% k" K( e) j6 R
(setq oldos (getvar "osmode"))9 G& Q W. I9 Y9 F4 k8 m# B a
(setvar "osmode" 0)
+ L) P5 y4 w9 N/ M
(setq p1 (getpoint "\n确定第一个点\n"))
7 m/ R3 T( e4 Y6 ~" H
(if (/= p1 nil): K& L$ n+ M( m: }6 e
(progn
; ]% `) s% B" ~$ U* v
(command "point" p1)
' Z8 B" Y) T' i5 J M2 p, K* u7 P
(setq p2 (getpoint p1 "\n 确定第二个点\n"))* e4 k4 d3 P+ L- Z+ I* q6 H N2 F2 m( l
(if (/= p2 nil)
i+ _! }! f+ P+ R- H8 b5 |
(progn7 B N1 I5 `4 r
(command "line" p1 p2 "")
0 D H0 [4 }) y" p
(setq p3 (getpoint p2 "\n 确定第三个点\n"))
8 h, P" e: x* y- S
(if (/= p3 nil)( |0 w- J+ @( N" W+ V8 o/ Y# l
(progn (command "line" p2 p3 ""); ?* c6 @% `$ L7 g3 U
(command "line" p1 p3 "")+ c+ f/ X8 d6 v+ s% q# N0 R
(command "circle" "3p" p1 p2 p3)
7 x0 l6 ~. K7 Y/ |
)
! N) x0 u6 O( R/ i! p0 o& X
)/ V' ~1 [5 q% I
)" e I6 ^5 L. w
)- I. k+ l9 ?1 q6 n9 [) C
). s; G% B) f- a5 L
)7 `- k# e( {/ [$ K6 R+ k1 \
(setvar "osmode" oldos)9 j. j2 S8 U) D( v8 P1 |
(princ)! _3 `( O! `9 O
)

复制代码

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

四楼的程序注释

(defun c:thenumber (/ mylayers mylayout)" a. p" P4 Q5 L2 Z
(vl-load-com) ;加载Visual LISP模块
9 c# x" n& F) H
(setq mylayers
) M9 K) `( X- u' E1 s7 N% C
(vla-get-count# g; W$ x. q% Y5 ]0 M- H( ]
(vla-get-layers
8 ^1 q7 o5 m S. E' p. S% z
(vla-get-ActiveDocument3 \: J k5 T; v% r; M; W
(vlax-get-Acad-Object) ;获取CAD进程对象
5 q6 }8 M& U( `" r6 A
) ;获取该CAD进程的活动文档对象
2 V5 D/ p0 u% K2 v
) ;获取该文档的图层集合对象
" d! _$ M2 r! N6 H9 ^8 x3 x0 P
) ;获取该集合的元素数量
) Y! }6 K G3 r+ ~7 }! ]6 [7 B
) ;把得到的当前CAD文档的图层数量赋值给局部变量; X' U, A+ d, _ B# Y* x
(print "the number of mylayers="); \7 E$ R$ }" h( }5 p+ N! r( D7 k
(prin1 mylayers) ;在命令行输出当前CAD文档的图层数量
_2 z/ Q" q# t5 e! G
(setq mylayout+ f( K) G q+ M6 [" \4 H- V- E9 O
(vla-get-count$ O4 U. ?" h3 A. i5 x
(vla-get-layouts+ p. s; V1 D4 A i7 D5 E
(vla-get-ActiveDocument" N$ \" H9 I5 p% i/ P9 w: F% k, ^4 o
(vlax-get-Acad-Object) ;获取CAD进程对象, n9 Q* K8 \. F' [ B( s7 d8 B2 ^
) ;获取该CAD进程的活动文档对象
' q3 ~- z; V6 Z7 M' c
) ;获取该文档的布局集合对象
! C, ~; q7 D$ L2 w# _# U
) ;获取该集合的元素数量7 X# _ P0 ~$ W4 X! j% A; j) k
) ;把得到的当前CAD文档的布局数量赋值给局部变量" ~* C3 f# A9 U. m! N! W
(print "the number of mylayout=")7 U* a. d2 p: h3 t
(prin1 mylayout) ;在命令行输出当前CAD文档的布局数量, }# y$ v- J7 x. Y$ ^8 p
(princ) ;空打印,用于清空本自定义函数的返回值,不让命令行产生多余的输出2 y; Y& f4 U& J
)

复制代码

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

楼上是高手。

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

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

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