关于 lisp 的编程 问题 谢谢

45448767

（define c:ABC() (vl-load-com) (command "setvar""osmode""0")
- a( \/ K& n8 m+ S9 R$ _(setq p1 (getpoint "\n确定第一个点,\n")) (if(/=p1 null)(command "point" """" p1))
/ C/ L- O  k. j' Z: q6 @& p, \(setq p2 (getpoint p1 "\n 确定第二个点,\n"))
' l3 v9 Q* ~) J+ _2 s* O(command "line" p1 p2 "" )
, W6 c0 ^+ n! y(setq p3 (getpoint p2 "\n 确定第三个点,\n")) (command  "line" p2 p3 "")
) E9 E) G+ ?- E- J3 G(command  "line" p1 p3 "")
( x8 J. }8 B+ b2 K# u  b# h(command  "circle""3p" p1,p2,p3) )


7 D3 U8 a; J8 @% ~4 q请问下这个程序能否 根据 3个点 画出一个圆 ，如果不能可否帮忙改下？还有加载后怎么运行？？谢谢

45448767

在线等。。。

qdlyq

编程比较难

45448767

还有，能否在下面的程序旁注释每一步说明？谢谢
& z8 R1 O3 U5 I; R(defun c:thenumber(/ mylayers mylayout)
6 q( Q6 w$ ~; _2 \3 v  (vl-load-com)
1 V9 z4 u4 n3 ](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)))))
* _2 L/ Y0 Q5 I5 N" k2 ^0 Z(print "the number of mylayout=")(prin1 mylayout)
' Y8 E0 V) X: t& o(princ))；

woaishuijia

7 ?9 [3 z8 b2 Z4 S- ^一楼的程序不能用,因为它存在几处致命的错误.
一.括号必须是半角字符,而现在第一个左括号是全角
8 L8 B, \5 Y4 K. J二.函数"defun"你写成了"define"
7 U+ o( _+ t5 e8 x三.条件判断语句中"/="函数与变量"p1"之间缺少一个半角空格
四.空值"nil"你写成了"null",这是一个函数
7 B% u# x: g. @7 E* z# b8 y6 I3 P五.用单点命令画p1点时,不应该有那两组双引号,应该是(command "point" p1)
4 s- |1 j4 h$ y  d! `六.用三点画圆命令时三个点参数之间不应该是逗号,必须是半角空格

另外还有一些不合理的地方,需要加以改进.比如
$ ^( Z+ q9 ~1 ?5 z3 d5 u" h一.应尽可能使用局部变量,不要偷懒.等你真正学会了编程,开始写大一点的程序时会明白局部变量有多么重要.
' X) y$ W% V& \( j- M" C二.程序中取消了对象捕捉,在程序运行结束时要给用户改回去,否则人家辛辛苦苦设置的对象捕捉模式被你轻而易举地消灭了.
还有几处就不细说了.
3 n8 S5 r  S3 x( Z4 a2 f' O- a6 V
下面是修改后的程序

1. (defun c:ABC (/ oldos p1 p2 p3)
   
2.   (setq oldos (getvar "osmode"))
   
3.   (setvar "osmode" 0)
   & N1 C5 e5 C* A; s) a2 J9 h1 [$ _
4.   (setq p1 (getpoint "\n确定第一个点\n"))
   
5.   (if (/= p1 nil)
   4 m$ h* l6 n) c  c, N1 h0 g
6.     (progn
   * T  x+ [% M$ A
7.       (command "point" p1)
   3 F& ~, v6 z; E6 T( o
8.       (setq p2 (getpoint p1 "\n 确定第二个点\n"))
   ' Y6 I' K# \0 Y7 D# c6 N3 j: T
9.       (if (/= p2 nil)
   
10.         (progn
    6 h5 S5 _6 i/ t/ M) t9 ^5 R
11.           (command "line" p1 p2 "")
    
12.           (setq p3 (getpoint p2 "\n 确定第三个点\n"))
    
13.           (if (/= p3 nil)
    9 O2 c7 D: U3 q
14.             (progn (command "line" p2 p3 "")
    % E4 f' b# \% W" M1 e
15.                    (command "line" p1 p3 "")
    
16.                    (command "circle" "3p" p1 p2 p3)
    
17.             )
    . d/ o2 ^* |: o! T
18.           )
    
19.         )
    
20.       )
    
21.     )
    
22.   )
    
23.   (setvar "osmode" oldos)
    
24.   (princ)
    & `1 y, |, L) Z6 g8 G* ^/ ~: k
25. )

复制代码

加载后在命令行键入函数名称(对本程序是ABC)就可以运行程序了
( x  m$ i/ R) }
! }# q2 B* L/ Z2 ^" f2 {, {四楼的程序注释

1. (defun c:thenumber (/ mylayers mylayout)
   
2.   (vl-load-com)                                ;加载Visual LISP模块
   
3.   (setq        mylayers
   
4.          (vla-get-count
   , \0 Z% d! h2 Z% I- z  |
5.            (vla-get-layers
   
6.              (vla-get-ActiveDocument
   # S2 o& ^3 @) l
7.                (vlax-get-Acad-Object)        ;获取CAD进程对象
   9 c6 d& V9 I' b% ^7 y4 @
8.              )                                ;获取该CAD进程的活动文档对象
   & A( j: Z& A* y( \2 F8 A/ ?
9.            )                                ;获取该文档的图层集合对象
   
10.          )                                ;获取该集合的元素数量
    
11.   )                                        ;把得到的当前CAD文档的图层数量赋值给局部变量
    ) F( D; U* I, U+ q, X' O1 e5 e
12.   (print "the number of mylayers=")
    
13.   (prin1 mylayers)                        ;在命令行输出当前CAD文档的图层数量
    9 F) E6 r: N% a. p2 F; k$ l) |+ n
14.   (setq        mylayout
    
15.          (vla-get-count
    
16.            (vla-get-layouts
    
17.              (vla-get-ActiveDocument
    
18.                (vlax-get-Acad-Object)        ;获取CAD进程对象
    3 U  A3 k$ P+ B* Z4 V" i
19.              )                                ;获取该CAD进程的活动文档对象
    - J  h# f  a) j5 f. b
20.            )                                ;获取该文档的布局集合对象
    
21.          )                                ;获取该集合的元素数量
    9 [3 Q' U$ {" |& j, K$ w# H
22.   )                                        ;把得到的当前CAD文档的布局数量赋值给局部变量
    
23.   (print "the number of mylayout=")
    
24.   (prin1 mylayout)                        ;在命令行输出当前CAD文档的布局数量
    
25.   (princ)                                ;空打印,用于清空本自定义函数的返回值,不让命令行产生多余的输出
    : }# w% P7 w5 t; P; d" ~
26. )

复制代码

五面怪

楼上是高手。