关于 lisp 的编程 问题 谢谢

45448767

（define c:ABC() (vl-load-com) (command "setvar""osmode""0")
(setq p1 (getpoint "\n确定第一个点,\n")) (if(/=p1 null)(command "point" """" p1))
8 \  K! z" S# n3 P# `(setq p2 (getpoint p1 "\n 确定第二个点,\n"))
* {0 I6 ]6 ?& R& y  j( t5 r(command "line" p1 p2 "" )
(setq p3 (getpoint p2 "\n 确定第三个点,\n")) (command  "line" p2 p3 "")
- w: {1 K5 @* x+ F" p* |(command  "line" p1 p3 "")
- @; h4 N+ F5 d5 t* F- ~8 j(command  "circle""3p" p1,p2,p3) )

% z1 F8 ?' P8 Z6 S  B+ P" _3 J
请问下这个程序能否 根据 3个点 画出一个圆 ，如果不能可否帮忙改下？还有加载后怎么运行？？谢谢

45448767

在线等。。。

qdlyq

编程比较难

45448767

还有，能否在下面的程序旁注释每一步说明？谢谢
4 P+ G8 Z/ ?9 G8 [7 G(defun c:thenumber(/ mylayers mylayout)
" g$ t" ?. c  }+ G( o. u$ M  (vl-load-com)
(setq mylayers (vla-get-count(vla-get-layers(vla-get-ActiveDocument (vlax-get-Acad-Object)))))
* ~- E+ p) n$ k" F! _(print "the number of mylayers=")(prin1 mylayers)
, P. X/ x  [* r2 ?4 v(setq mylayout (vla-get-count(vla-get-layouts(vla-get-ActiveDocument (vlax-get-Acad-Object)))))
(print "the number of mylayout=")(prin1 mylayout)
(princ))；

woaishuijia

- @7 N" ~9 m  Z; z
一楼的程序不能用,因为它存在几处致命的错误.
: e2 y' k7 h" ^1 H, v' p一.括号必须是半角字符,而现在第一个左括号是全角
二.函数"defun"你写成了"define"
+ G' V8 e7 X. K三.条件判断语句中"/="函数与变量"p1"之间缺少一个半角空格
四.空值"nil"你写成了"null",这是一个函数
' j( n( @% q' E$ T. O五.用单点命令画p1点时,不应该有那两组双引号,应该是(command "point" p1)
2 q. B6 J! c$ }# a六.用三点画圆命令时三个点参数之间不应该是逗号,必须是半角空格
! h( [6 R' l+ u
& r% @, k3 ^6 S  _; Y! ?* {另外还有一些不合理的地方,需要加以改进.比如
3 g/ [6 W, E/ P! ^一.应尽可能使用局部变量,不要偷懒.等你真正学会了编程,开始写大一点的程序时会明白局部变量有多么重要.
  d3 ~7 T! M& _: S$ a二.程序中取消了对象捕捉,在程序运行结束时要给用户改回去,否则人家辛辛苦苦设置的对象捕捉模式被你轻而易举地消灭了.
还有几处就不细说了.

1 G' R- ^/ l+ |# ~1 o下面是修改后的程序

1. (defun c:ABC (/ oldos p1 p2 p3)
   , B/ E, x6 \' Y2 C/ E
2.   (setq oldos (getvar "osmode"))
   
3.   (setvar "osmode" 0)
   8 y. ~& T6 f5 s6 m) B! A
4.   (setq p1 (getpoint "\n确定第一个点\n"))
   
5.   (if (/= p1 nil)
   
6.     (progn
   - {$ S; O2 v1 O; ~3 h
7.       (command "point" p1)
   9 A6 N' [' b9 A% Y$ y: D
8.       (setq p2 (getpoint p1 "\n 确定第二个点\n"))
     l6 H) c: D' B. ~9 E! y* x) b
9.       (if (/= p2 nil)
   ) `) h' O$ @' D* `
10.         (progn
    7 _2 m' u! r& X" J
11.           (command "line" p1 p2 "")
      {( r: s* T! U9 f4 y7 \* H3 I
12.           (setq p3 (getpoint p2 "\n 确定第三个点\n"))
    
13.           (if (/= p3 nil)
    / R4 ]* c6 h' b* R* I
14.             (progn (command "line" p2 p3 "")
    
15.                    (command "line" p1 p3 "")
    4 l  T5 L6 K% }. l) d2 T
16.                    (command "circle" "3p" p1 p2 p3)
    6 h" Z6 S* {4 Z* x- f- U
17.             )
    
18.           )
    : k7 r8 C; w, ]% y
19.         )
    2 j! U4 P: {, b% t: u  c
20.       )
    0 p$ z; r% J3 K* [" I9 M
21.     )
    
22.   )
    
23.   (setvar "osmode" oldos)
    # m7 i4 H2 r: p8 m4 n
24.   (princ)
    : t& W. b3 t) \
25. )

复制代码

加载后在命令行键入函数名称(对本程序是ABC)就可以运行程序了
; G6 Y6 s( Q: h' f7 h+ k
四楼的程序注释

1. (defun c:thenumber (/ mylayers mylayout)
   . v8 d# V# ]- r! q3 C1 c) o
2.   (vl-load-com)                                ;加载Visual LISP模块
   1 T/ a! ?- w2 \8 R& |: X' L
3.   (setq        mylayers
   + r; |; L! x. c3 l# n  g
4.          (vla-get-count
   $ D. M) M, H. [# X9 n2 H
5.            (vla-get-layers
   
6.              (vla-get-ActiveDocument
   
7.                (vlax-get-Acad-Object)        ;获取CAD进程对象
   . M0 R' b- `3 U
8.              )                                ;获取该CAD进程的活动文档对象
   . H! \3 ~  z; G- ~
9.            )                                ;获取该文档的图层集合对象
   6 e5 c& R7 q2 Y+ i9 E2 O
10.          )                                ;获取该集合的元素数量
    5 P% n& m% L9 [' W
11.   )                                        ;把得到的当前CAD文档的图层数量赋值给局部变量
    8 D- B! ~9 J0 V% g5 v1 h! B& L
12.   (print "the number of mylayers=")
    
13.   (prin1 mylayers)                        ;在命令行输出当前CAD文档的图层数量
    + Y, Y2 ~4 z1 g: E# }7 o6 R: z( O& D
14.   (setq        mylayout
    ( \( L, z) t1 V, Z; U# o: X
15.          (vla-get-count
    1 c# n$ o! `$ x* E5 I# \
16.            (vla-get-layouts
    : s! p( l. n( O( E2 r% w
17.              (vla-get-ActiveDocument
    * z5 _/ q5 d( }* i% X2 ?4 V6 w1 I8 C/ U
18.                (vlax-get-Acad-Object)        ;获取CAD进程对象
    , Q/ U! d" W2 l4 f, ]
19.              )                                ;获取该CAD进程的活动文档对象
    & N. y  c" z! m/ q$ a. I
20.            )                                ;获取该文档的布局集合对象
    
21.          )                                ;获取该集合的元素数量
    % _- X" V4 J& l6 n5 d- H
22.   )                                        ;把得到的当前CAD文档的布局数量赋值给局部变量
    
23.   (print "the number of mylayout=")
    / t6 Z! P( a( x! h3 U
24.   (prin1 mylayout)                        ;在命令行输出当前CAD文档的布局数量
    # ~) z: w' k8 R3 D1 B
25.   (princ)                                ;空打印,用于清空本自定义函数的返回值,不让命令行产生多余的输出
    . u& X0 h2 r* r2 u% `
26. )

复制代码

五面怪

楼上是高手。