关于 lisp 的编程 问题 谢谢

45448767

（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 "" )
3 s; i/ V; a, s+ }8 ^(setq p3 (getpoint p2 "\n 确定第三个点,\n")) (command  "line" p2 p3 "")
(command  "line" p1 p3 "")
(command  "circle""3p" p1,p2,p3) )
- n6 p9 x/ K( I6 o
! G3 t+ ]4 I( B. V7 t, l& w
请问下这个程序能否 根据 3个点 画出一个圆 ，如果不能可否帮忙改下？还有加载后怎么运行？？谢谢

45448767

在线等。。。

qdlyq

编程比较难

45448767

还有，能否在下面的程序旁注释每一步说明？谢谢
(defun c:thenumber(/ mylayers mylayout)
- N( D- c4 d+ @8 K1 }1 A# Y) a% s  (vl-load-com)
9 E: c* l) j* O& e% u(setq mylayers (vla-get-count(vla-get-layers(vla-get-ActiveDocument (vlax-get-Acad-Object)))))
1 A$ Y2 A( [, `; ?& b% A9 ^6 k(print "the number of mylayers=")(prin1 mylayers)
(setq mylayout (vla-get-count(vla-get-layouts(vla-get-ActiveDocument (vlax-get-Acad-Object)))))
, U$ S& V$ r  Z- q2 a0 n. c(print "the number of mylayout=")(prin1 mylayout)
; z8 R1 u: q4 ~9 E6 e- S, G& G3 ?(princ))；

woaishuijia

  n, H/ P" t/ H& }6 Z# U4 e- A6 A
一楼的程序不能用,因为它存在几处致命的错误.
' d1 n2 ^# [5 w一.括号必须是半角字符,而现在第一个左括号是全角
二.函数"defun"你写成了"define"
' I9 j$ I3 U) W- W* C三.条件判断语句中"/="函数与变量"p1"之间缺少一个半角空格
! M& P4 k* ]* ]2 j/ x5 Z$ ?四.空值"nil"你写成了"null",这是一个函数
2 j. p" \6 Z0 u2 k% h1 e五.用单点命令画p1点时,不应该有那两组双引号,应该是(command "point" p1)
六.用三点画圆命令时三个点参数之间不应该是逗号,必须是半角空格
8 V8 m! X* k7 V7 H, X6 [* T
- b/ S1 m) W' y4 I9 s另外还有一些不合理的地方,需要加以改进.比如
8 f  N/ `8 o3 X% l; n- n  ?一.应尽可能使用局部变量,不要偷懒.等你真正学会了编程,开始写大一点的程序时会明白局部变量有多么重要.
# B1 k, m% J* ?/ Y二.程序中取消了对象捕捉,在程序运行结束时要给用户改回去,否则人家辛辛苦苦设置的对象捕捉模式被你轻而易举地消灭了.
还有几处就不细说了.

, \4 e2 w6 ]; |  |9 j下面是修改后的程序

1. (defun c:ABC (/ oldos p1 p2 p3)
   
2.   (setq oldos (getvar "osmode"))
   # x8 \: {* g" M& t, G& M
3.   (setvar "osmode" 0)
   6 ^# L3 j/ m; m. X. |) X* f
4.   (setq p1 (getpoint "\n确定第一个点\n"))
   / C  R( I1 S# P" |! N
5.   (if (/= p1 nil)
   / ]! [4 J+ v0 v
6.     (progn
   
7.       (command "point" p1)
   1 ?4 r# [9 X9 V2 _; o6 D
8.       (setq p2 (getpoint p1 "\n 确定第二个点\n"))
   5 a3 h0 P6 W8 j* w
9.       (if (/= p2 nil)
   ; c! L( d+ M* h# n
10.         (progn
    
11.           (command "line" p1 p2 "")
    1 C3 l7 V6 Y& \" {$ F
12.           (setq p3 (getpoint p2 "\n 确定第三个点\n"))
    
13.           (if (/= p3 nil)
    
14.             (progn (command "line" p2 p3 "")
    
15.                    (command "line" p1 p3 "")
    
16.                    (command "circle" "3p" p1 p2 p3)
    " v$ a2 _3 w/ }
17.             )
    2 k) ^7 I: \/ r3 [: J3 q, v: h
18.           )
    # Y. P3 C8 t/ @; m- t
19.         )
    & k4 {& F& H8 w. n% f
20.       )
    
21.     )
    7 h" ?8 ?0 N4 _4 [1 p
22.   )
    
23.   (setvar "osmode" oldos)
    $ X9 p$ n1 {! b' f7 G0 [* c
24.   (princ)
    ' r3 ~, C; \# e2 D. O9 n& c
25. )

复制代码

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

四楼的程序注释

1. (defun c:thenumber (/ mylayers mylayout)
   ( r" X+ _5 r' R0 q# L8 z
2.   (vl-load-com)                                ;加载Visual LISP模块
   2 g" N/ }7 \! ^& L+ q
3.   (setq        mylayers
     q. V- X% }5 `: D7 f" E
4.          (vla-get-count
   2 S! A& K7 N: h
5.            (vla-get-layers
   0 r. `6 `2 v4 J  k& t6 D
6.              (vla-get-ActiveDocument
   
7.                (vlax-get-Acad-Object)        ;获取CAD进程对象
     R1 q  ~. F% K8 M/ G/ P+ @! J, y
8.              )                                ;获取该CAD进程的活动文档对象
   
9.            )                                ;获取该文档的图层集合对象
   , y' \; V  ]' ^3 G& a
10.          )                                ;获取该集合的元素数量
    - n' N" K# I* a/ @& d
11.   )                                        ;把得到的当前CAD文档的图层数量赋值给局部变量
    
12.   (print "the number of mylayers=")
    
13.   (prin1 mylayers)                        ;在命令行输出当前CAD文档的图层数量
    ' [' `, F/ t# R$ t6 Z) b
14.   (setq        mylayout
    
15.          (vla-get-count
    , u; o" q0 ~6 P7 R* Z8 n
16.            (vla-get-layouts
    
17.              (vla-get-ActiveDocument
    
18.                (vlax-get-Acad-Object)        ;获取CAD进程对象
    1 ]# `; ]: s- V8 W' D9 @8 m
19.              )                                ;获取该CAD进程的活动文档对象
    0 y; @1 c8 r: n! l: Y$ y
20.            )                                ;获取该文档的布局集合对象
    
21.          )                                ;获取该集合的元素数量
    5 x% F8 c$ W+ h/ T2 |. B
22.   )                                        ;把得到的当前CAD文档的布局数量赋值给局部变量
    0 M; j* w7 J( _( K; t" I4 x' }
23.   (print "the number of mylayout=")
    6 P, b+ S. _5 Z, m' ^
24.   (prin1 mylayout)                        ;在命令行输出当前CAD文档的布局数量
    
25.   (princ)                                ;空打印,用于清空本自定义函数的返回值,不让命令行产生多余的输出
    
26. )

复制代码

五面怪

楼上是高手。