关于 lisp 的编程 问题 谢谢

45448767

（define c:ABC() (vl-load-com) (command "setvar""osmode""0")
6 V' N7 ^; c- N& {  h: J& D(setq p1 (getpoint "\n确定第一个点,\n")) (if(/=p1 null)(command "point" """" p1))
$ M  d; O. A, n+ n+ K(setq p2 (getpoint p1 "\n 确定第二个点,\n"))
(command "line" p1 p2 "" )
/ N3 O4 r8 |! j: b. m& g+ R(setq p3 (getpoint p2 "\n 确定第三个点,\n")) (command  "line" p2 p3 "")
% T" D: P9 ~2 P9 N(command  "line" p1 p3 "")
(command  "circle""3p" p1,p2,p3) )
+ E  f0 c; t) |9 |  ^
0 m$ k! B# H2 u0 `% H3 z0 e) H2 @
% g0 g6 t3 k! ?4 ]8 v请问下这个程序能否 根据 3个点 画出一个圆 ，如果不能可否帮忙改下？还有加载后怎么运行？？谢谢

45448767

在线等。。。

qdlyq

编程比较难

45448767

还有，能否在下面的程序旁注释每一步说明？谢谢
(defun c:thenumber(/ mylayers mylayout)
  (vl-load-com)
2 N! p0 [' L1 V; S& f(setq mylayers (vla-get-count(vla-get-layers(vla-get-ActiveDocument (vlax-get-Acad-Object)))))
% v) l, ~' u5 ?  k& @' w/ O(print "the number of mylayers=")(prin1 mylayers)
(setq mylayout (vla-get-count(vla-get-layouts(vla-get-ActiveDocument (vlax-get-Acad-Object)))))
2 A$ ]1 B' s" d: @' u4 j(print "the number of mylayout=")(prin1 mylayout)
(princ))；

woaishuijia

( I" [7 s' h4 y8 _5 Z" w一楼的程序不能用,因为它存在几处致命的错误.
一.括号必须是半角字符,而现在第一个左括号是全角
二.函数"defun"你写成了"define"
三.条件判断语句中"/="函数与变量"p1"之间缺少一个半角空格
  J2 }% a8 h+ L$ O四.空值"nil"你写成了"null",这是一个函数
五.用单点命令画p1点时,不应该有那两组双引号,应该是(command "point" p1)
六.用三点画圆命令时三个点参数之间不应该是逗号,必须是半角空格

另外还有一些不合理的地方,需要加以改进.比如
7 x" a, w; @7 S一.应尽可能使用局部变量,不要偷懒.等你真正学会了编程,开始写大一点的程序时会明白局部变量有多么重要.
二.程序中取消了对象捕捉,在程序运行结束时要给用户改回去,否则人家辛辛苦苦设置的对象捕捉模式被你轻而易举地消灭了.
还有几处就不细说了.

下面是修改后的程序

1. (defun c:ABC (/ oldos p1 p2 p3)
   / b. D( A9 C5 P) _
2.   (setq oldos (getvar "osmode"))
   + _9 X, S9 h+ P# l% A
3.   (setvar "osmode" 0)
   8 U2 K+ F. x0 L2 }5 o$ `
4.   (setq p1 (getpoint "\n确定第一个点\n"))
   6 ]" ~5 C' ?- g7 f* ?, E
5.   (if (/= p1 nil)
   : q$ o8 c: x4 C) q7 q
6.     (progn
   
7.       (command "point" p1)
   
8.       (setq p2 (getpoint p1 "\n 确定第二个点\n"))
   $ J# r* B' E' C4 N% K, |
9.       (if (/= p2 nil)
   : S& P  {) K1 T: R
10.         (progn
    # z- _: }9 u. {( W
11.           (command "line" p1 p2 "")
    
12.           (setq p3 (getpoint p2 "\n 确定第三个点\n"))
    
13.           (if (/= p3 nil)
    $ }! s6 Y/ Z7 i8 D
14.             (progn (command "line" p2 p3 "")
    
15.                    (command "line" p1 p3 "")
    7 n7 x8 U+ d$ r  j
16.                    (command "circle" "3p" p1 p2 p3)
    " r$ f* N% ~% U
17.             )
    ; ]0 z+ N; V6 s) n
18.           )
    " @' n9 W" ]. l, Z2 d2 N; ~) V; j% ^
19.         )
    
20.       )
    , t2 a/ e: \8 s& i, I$ Y$ V& H$ H0 m
21.     )
    
22.   )
    
23.   (setvar "osmode" oldos)
    
24.   (princ)
    
25. )

复制代码

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

四楼的程序注释

1. (defun c:thenumber (/ mylayers mylayout)
   
2.   (vl-load-com)                                ;加载Visual LISP模块
   7 X' \! T2 M! t5 a% s8 l& P
3.   (setq        mylayers
   : K! [5 |, S- r, K8 j( J. k" A
4.          (vla-get-count
   
5.            (vla-get-layers
   
6.              (vla-get-ActiveDocument
   . v0 l. p( n& T% Y) y3 E
7.                (vlax-get-Acad-Object)        ;获取CAD进程对象
   
8.              )                                ;获取该CAD进程的活动文档对象
   % U2 \9 I/ G/ F
9.            )                                ;获取该文档的图层集合对象
   
10.          )                                ;获取该集合的元素数量
    + F7 G" ?( ~2 Y# C1 R
11.   )                                        ;把得到的当前CAD文档的图层数量赋值给局部变量
    
12.   (print "the number of mylayers=")
    & z! S7 `4 q2 w; z: n4 t* U
13.   (prin1 mylayers)                        ;在命令行输出当前CAD文档的图层数量
    2 Q2 }) b* @3 g; t  t
14.   (setq        mylayout
    
15.          (vla-get-count
    
16.            (vla-get-layouts
    $ Y- `4 I1 `  {# O% Q
17.              (vla-get-ActiveDocument
    ' C0 ?0 A$ Q& l, z" _& I
18.                (vlax-get-Acad-Object)        ;获取CAD进程对象
    " M" l: }& H% C/ A/ a1 H0 ~3 F
19.              )                                ;获取该CAD进程的活动文档对象
    " w  h+ e4 c) ]9 g+ \# Q! X5 ^: B/ Q/ P
20.            )                                ;获取该文档的布局集合对象
    
21.          )                                ;获取该集合的元素数量
    
22.   )                                        ;把得到的当前CAD文档的布局数量赋值给局部变量
    
23.   (print "the number of mylayout=")
    / R4 Y/ A9 H& I- x" r
24.   (prin1 mylayout)                        ;在命令行输出当前CAD文档的布局数量
    1 y- i% M. t5 X" A
25.   (princ)                                ;空打印,用于清空本自定义函数的返回值,不让命令行产生多余的输出
    
26. )

复制代码

五面怪

楼上是高手。