关于 lisp 的编程 问题 谢谢

45448767

（define c:ABC() (vl-load-com) (command "setvar""osmode""0")
# E8 ?) Q& W& @/ b(setq p1 (getpoint "\n确定第一个点,\n")) (if(/=p1 null)(command "point" """" p1))
  M6 x! q! C& x9 |. c4 g4 d(setq p2 (getpoint p1 "\n 确定第二个点,\n"))
* \4 t9 K6 J' a' K(command "line" p1 p2 "" )
(setq p3 (getpoint p2 "\n 确定第三个点,\n")) (command  "line" p2 p3 "")
(command  "line" p1 p3 "")
4 i5 g6 i! y9 i, I(command  "circle""3p" p1,p2,p3) )


请问下这个程序能否 根据 3个点 画出一个圆 ，如果不能可否帮忙改下？还有加载后怎么运行？？谢谢

45448767

在线等。。。

qdlyq

编程比较难

45448767

还有，能否在下面的程序旁注释每一步说明？谢谢
) _( H( L0 B3 k/ D, L/ y6 I(defun c:thenumber(/ mylayers mylayout)
# ~  T, @7 ^7 F) C# }" x  (vl-load-com)
(setq mylayers (vla-get-count(vla-get-layers(vla-get-ActiveDocument (vlax-get-Acad-Object)))))
4 \+ b% z- b% l( z! y. j3 i' l(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

4 A' C) M; d( E( b! F2 n
* x9 h9 d) {7 k4 p' }( h3 l+ Z一楼的程序不能用,因为它存在几处致命的错误.
" r, _. J9 {% }& h一.括号必须是半角字符,而现在第一个左括号是全角
二.函数"defun"你写成了"define"
三.条件判断语句中"/="函数与变量"p1"之间缺少一个半角空格
四.空值"nil"你写成了"null",这是一个函数
五.用单点命令画p1点时,不应该有那两组双引号,应该是(command "point" p1)
# B) E, V& V- I六.用三点画圆命令时三个点参数之间不应该是逗号,必须是半角空格
3 u6 a. L7 F, \, [3 h7 X
另外还有一些不合理的地方,需要加以改进.比如
一.应尽可能使用局部变量,不要偷懒.等你真正学会了编程,开始写大一点的程序时会明白局部变量有多么重要.
二.程序中取消了对象捕捉,在程序运行结束时要给用户改回去,否则人家辛辛苦苦设置的对象捕捉模式被你轻而易举地消灭了.
: P' T4 l% I0 G" w/ S5 p" j还有几处就不细说了.
& h# S9 u6 u: S/ Z; U
* ?# j% q7 ?3 Q; W+ ]# y( ]下面是修改后的程序

1. (defun c:ABC (/ oldos p1 p2 p3)
   4 {( g; [# g4 K, f4 N
2.   (setq oldos (getvar "osmode"))
   
3.   (setvar "osmode" 0)
   
4.   (setq p1 (getpoint "\n确定第一个点\n"))
   
5.   (if (/= p1 nil)
   * _0 L8 W0 g* u- N, f7 `6 p9 S
6.     (progn
   
7.       (command "point" p1)
   ) E/ O. R8 o1 M
8.       (setq p2 (getpoint p1 "\n 确定第二个点\n"))
   
9.       (if (/= p2 nil)
   
10.         (progn
    3 z3 |# j1 f6 @! i
11.           (command "line" p1 p2 "")
      U* n# R" I' ~; B0 D
12.           (setq p3 (getpoint p2 "\n 确定第三个点\n"))
    
13.           (if (/= p3 nil)
    4 F( T* }) _. B8 Z
14.             (progn (command "line" p2 p3 "")
    % R1 d$ m+ d0 Q: H6 F3 I
15.                    (command "line" p1 p3 "")
    3 X2 j3 z' O) I  C0 [2 N8 V
16.                    (command "circle" "3p" p1 p2 p3)
    & _% n$ W+ B1 y+ s2 I
17.             )
    ( u( _  _3 W  U4 L% q
18.           )
    9 O$ \8 J* E6 F, e6 \9 H
19.         )
    5 p6 \7 ?" {2 R3 Y
20.       )
    
21.     )
    
22.   )
    - a: L* q, A. G3 p& }
23.   (setvar "osmode" oldos)
    
24.   (princ)
    6 t* t! m- o- w% G7 ]6 K
25. )

复制代码

加载后在命令行键入函数名称(对本程序是ABC)就可以运行程序了
/ @# n4 k/ Y+ S7 `2 W% F- r
1 d! [4 C, s# L& r7 O+ R- u9 i# n- x( r四楼的程序注释

1. (defun c:thenumber (/ mylayers mylayout)
   9 `* l5 T: F* S8 f0 u, a
2.   (vl-load-com)                                ;加载Visual LISP模块
   
3.   (setq        mylayers
   ; F, `/ m6 M2 D' j+ `, h# o. }6 e
4.          (vla-get-count
   
5.            (vla-get-layers
   1 G; _' e; w! Y2 X6 k1 r& L. Y. o
6.              (vla-get-ActiveDocument
   
7.                (vlax-get-Acad-Object)        ;获取CAD进程对象
   9 `  l9 p$ e: @) I* s4 ~) n
8.              )                                ;获取该CAD进程的活动文档对象
   
9.            )                                ;获取该文档的图层集合对象
   5 R9 U- A/ n5 v8 I; x" y
10.          )                                ;获取该集合的元素数量
    - c& V* f' s, ~& U  _; Y
11.   )                                        ;把得到的当前CAD文档的图层数量赋值给局部变量
    
12.   (print "the number of mylayers=")
    
13.   (prin1 mylayers)                        ;在命令行输出当前CAD文档的图层数量
    ! ]5 }2 w! k: y. ]; @
14.   (setq        mylayout
    ! @- }# l8 ^2 l
15.          (vla-get-count
    
16.            (vla-get-layouts
    % z/ l  Y: x1 X+ Q/ N
17.              (vla-get-ActiveDocument
    : T2 O8 @: H7 t  N  u
18.                (vlax-get-Acad-Object)        ;获取CAD进程对象
    
19.              )                                ;获取该CAD进程的活动文档对象
    % x  ?' n4 G2 b# D
20.            )                                ;获取该文档的布局集合对象
    
21.          )                                ;获取该集合的元素数量
    : n; e& I8 E3 Z/ y0 A
22.   )                                        ;把得到的当前CAD文档的布局数量赋值给局部变量
    8 d( q) y( s5 s! i
23.   (print "the number of mylayout=")
    % h) q/ B( o- k) Z6 }% }
24.   (prin1 mylayout)                        ;在命令行输出当前CAD文档的布局数量
    
25.   (princ)                                ;空打印,用于清空本自定义函数的返回值,不让命令行产生多余的输出
    
26. )

复制代码

五面怪

楼上是高手。