关于 lisp 的编程 问题 谢谢

45448767

（define c:ABC() (vl-load-com) (command "setvar""osmode""0")
(setq p1 (getpoint "\n确定第一个点,\n")) (if(/=p1 null)(command "point" """" p1))
; j  k: M# _/ b% C(setq p2 (getpoint p1 "\n 确定第二个点,\n"))
$ i: l& G/ P* q/ k6 \- U(command "line" p1 p2 "" )
- ?, R; c" G4 S/ R1 h(setq p3 (getpoint p2 "\n 确定第三个点,\n")) (command  "line" p2 p3 "")
(command  "line" p1 p3 "")
(command  "circle""3p" p1,p2,p3) )


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

45448767

在线等。。。

qdlyq

编程比较难

45448767

还有，能否在下面的程序旁注释每一步说明？谢谢
(defun c:thenumber(/ mylayers mylayout)
  (vl-load-com)
8 i& ~, \/ I7 Q7 n(setq mylayers (vla-get-count(vla-get-layers(vla-get-ActiveDocument (vlax-get-Acad-Object)))))
(print "the number of mylayers=")(prin1 mylayers)
% N5 V2 b0 f0 `# T  q(setq mylayout (vla-get-count(vla-get-layouts(vla-get-ActiveDocument (vlax-get-Acad-Object)))))
3 }8 K6 v! Y9 Z* X(print "the number of mylayout=")(prin1 mylayout)
(princ))；

woaishuijia

一楼的程序不能用,因为它存在几处致命的错误.
一.括号必须是半角字符,而现在第一个左括号是全角
二.函数"defun"你写成了"define"
三.条件判断语句中"/="函数与变量"p1"之间缺少一个半角空格
四.空值"nil"你写成了"null",这是一个函数
五.用单点命令画p1点时,不应该有那两组双引号,应该是(command "point" p1)
9 F5 k5 z- |5 G3 n/ B六.用三点画圆命令时三个点参数之间不应该是逗号,必须是半角空格

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

. A$ }4 b0 _0 J下面是修改后的程序

1. (defun c:ABC (/ oldos p1 p2 p3)
   4 \+ h0 A. G! `# ^0 Y* H/ w( J
2.   (setq oldos (getvar "osmode"))
   1 C0 t- M% q, i: _: R
3.   (setvar "osmode" 0)
   ' m* x; Y4 g/ f
4.   (setq p1 (getpoint "\n确定第一个点\n"))
   
5.   (if (/= p1 nil)
   
6.     (progn
   9 g; g; F8 e& B4 d, y$ @# o6 L
7.       (command "point" p1)
   # U  P$ x: N. j) o# P% ]4 U
8.       (setq p2 (getpoint p1 "\n 确定第二个点\n"))
   
9.       (if (/= p2 nil)
     n1 _; s4 Y6 k7 K4 [# r
10.         (progn
    7 E" N9 V" g. k. @' N- Q
11.           (command "line" p1 p2 "")
    
12.           (setq p3 (getpoint p2 "\n 确定第三个点\n"))
    2 s- X: x' r+ Y9 \% o$ U- w9 _
13.           (if (/= p3 nil)
    
14.             (progn (command "line" p2 p3 "")
    ' h! _; I4 P9 X1 F: G
15.                    (command "line" p1 p3 "")
    
16.                    (command "circle" "3p" p1 p2 p3)
    5 @3 J  y! p/ G7 F5 G' X! p5 {
17.             )
    
18.           )
    % |: ?- |- n! ^/ ]# [3 F2 @0 e/ I
19.         )
    $ z8 B5 _/ d' f* D! R3 Y( @
20.       )
    1 o: ~% U& a% H+ g9 Y& s1 B
21.     )
    
22.   )
    " z2 y+ F: e& W5 }
23.   (setvar "osmode" oldos)
    ; u) P0 G) f1 r) X
24.   (princ)
    * t3 m( L' i2 m/ l
25. )

复制代码

加载后在命令行键入函数名称(对本程序是ABC)就可以运行程序了
0 D$ n; `4 x) o
( h# ^4 C% }* H. a) Q四楼的程序注释

1. (defun c:thenumber (/ mylayers mylayout)
   # N4 G9 e1 j3 ~; e9 T' W
2.   (vl-load-com)                                ;加载Visual LISP模块
   
3.   (setq        mylayers
   
4.          (vla-get-count
   : k5 j, ^* \) M/ {
5.            (vla-get-layers
   
6.              (vla-get-ActiveDocument
   . H/ s9 H" E" [
7.                (vlax-get-Acad-Object)        ;获取CAD进程对象
   ) j7 _- y, A/ w+ _5 N, t
8.              )                                ;获取该CAD进程的活动文档对象
   
9.            )                                ;获取该文档的图层集合对象
   " V, y* `) @" h6 D5 D8 k+ P$ G
10.          )                                ;获取该集合的元素数量
    + h% C3 V# p4 V# ]* q: Q$ P
11.   )                                        ;把得到的当前CAD文档的图层数量赋值给局部变量
    6 m0 m+ X3 ^( C' B" S; r3 |
12.   (print "the number of mylayers=")
    
13.   (prin1 mylayers)                        ;在命令行输出当前CAD文档的图层数量
    
14.   (setq        mylayout
    7 {5 C* l6 _5 O/ o& [) Z
15.          (vla-get-count
    9 j  L( T# [& d- Q) y+ @
16.            (vla-get-layouts
    
17.              (vla-get-ActiveDocument
    . j4 [; J' a7 b* X
18.                (vlax-get-Acad-Object)        ;获取CAD进程对象
    8 i* M! H, P! ?1 Z/ ~( `3 N# r: r
19.              )                                ;获取该CAD进程的活动文档对象
    ( T' _7 ?. I, z1 `
20.            )                                ;获取该文档的布局集合对象
    2 X' I$ @) A6 l4 q5 z
21.          )                                ;获取该集合的元素数量
    + d2 }6 w; }5 L0 P
22.   )                                        ;把得到的当前CAD文档的布局数量赋值给局部变量
    
23.   (print "the number of mylayout=")
    
24.   (prin1 mylayout)                        ;在命令行输出当前CAD文档的布局数量
    
25.   (princ)                                ;空打印,用于清空本自定义函数的返回值,不让命令行产生多余的输出
    8 G! w- W$ {4 c* ?0 ^+ [% k$ m
26. )

复制代码

五面怪

楼上是高手。