关于 lisp 的编程 问题 谢谢

45448767

（define c:ABC() (vl-load-com) (command "setvar""osmode""0")
(setq p1 (getpoint "\n确定第一个点,\n")) (if(/=p1 null)(command "point" """" p1))
- {1 U2 u, T9 T. P, a& w(setq p2 (getpoint p1 "\n 确定第二个点,\n"))
% T& F" H; S; i$ R: P(command "line" p1 p2 "" )
(setq p3 (getpoint p2 "\n 确定第三个点,\n")) (command  "line" p2 p3 "")
: D: V3 b- |2 M4 h( W9 r' r(command  "line" p1 p3 "")
(command  "circle""3p" p1,p2,p3) )


2 m% o& n( ]5 Q1 E请问下这个程序能否 根据 3个点 画出一个圆 ，如果不能可否帮忙改下？还有加载后怎么运行？？谢谢

45448767

在线等。。。

qdlyq

编程比较难

45448767

还有，能否在下面的程序旁注释每一步说明？谢谢
(defun c:thenumber(/ mylayers mylayout)
  (vl-load-com)
2 j! L0 i7 ?/ n. ~2 Y; }. o(setq mylayers (vla-get-count(vla-get-layers(vla-get-ActiveDocument (vlax-get-Acad-Object)))))
(print "the number of mylayers=")(prin1 mylayers)
3 b* K4 l" B, I/ i(setq mylayout (vla-get-count(vla-get-layouts(vla-get-ActiveDocument (vlax-get-Acad-Object)))))
(print "the number of mylayout=")(prin1 mylayout)
" y$ ]# e" V+ H/ M" o(princ))；

woaishuijia

( ^+ Z3 Y4 H! _: U; C+ p- R5 t
! q; V6 Z2 A6 Y! V9 r一楼的程序不能用,因为它存在几处致命的错误.
一.括号必须是半角字符,而现在第一个左括号是全角
) {9 r3 s* M+ i) P" c二.函数"defun"你写成了"define"
三.条件判断语句中"/="函数与变量"p1"之间缺少一个半角空格
# _6 ?$ b# j- k6 I四.空值"nil"你写成了"null",这是一个函数
五.用单点命令画p1点时,不应该有那两组双引号,应该是(command "point" p1)
六.用三点画圆命令时三个点参数之间不应该是逗号,必须是半角空格
( i! r2 E$ g  {3 \/ x5 A. q
另外还有一些不合理的地方,需要加以改进.比如
一.应尽可能使用局部变量,不要偷懒.等你真正学会了编程,开始写大一点的程序时会明白局部变量有多么重要.
' R% \+ W+ X) z/ f/ @2 W二.程序中取消了对象捕捉,在程序运行结束时要给用户改回去,否则人家辛辛苦苦设置的对象捕捉模式被你轻而易举地消灭了.
( W" f0 T& o. a# l还有几处就不细说了.

下面是修改后的程序

1. (defun c:ABC (/ oldos p1 p2 p3)
   * D  g  H+ i& f8 b
2.   (setq oldos (getvar "osmode"))
   ) H$ i6 m4 s; {: b$ o9 w$ i
3.   (setvar "osmode" 0)
     v9 U. k6 D, A; F" ~0 T8 e
4.   (setq p1 (getpoint "\n确定第一个点\n"))
   - I3 Y- |) b/ g6 k6 ]  E
5.   (if (/= p1 nil)
   2 `" K& z* Y( L/ I
6.     (progn
   5 z3 {' \, T  \  @. @  Z) x
7.       (command "point" p1)
   * c! [. G/ D! F. c
8.       (setq p2 (getpoint p1 "\n 确定第二个点\n"))
   
9.       (if (/= p2 nil)
   ! S0 b" f2 |3 Y, x
10.         (progn
    4 X, e; W; l5 J. X
11.           (command "line" p1 p2 "")
    1 P* i8 _/ e4 w3 b, U
12.           (setq p3 (getpoint p2 "\n 确定第三个点\n"))
    " N# Z& O4 c" T0 h
13.           (if (/= p3 nil)
    
14.             (progn (command "line" p2 p3 "")
    ! |* O& r0 B# s5 L
15.                    (command "line" p1 p3 "")
    $ l/ X% z% Q* u* n9 I; a2 `" w
16.                    (command "circle" "3p" p1 p2 p3)
    
17.             )
    
18.           )
    . z0 w! k! ~6 e  E0 W, a8 \
19.         )
    ! S! x1 w  y' J! i- t1 _3 Y
20.       )
    
21.     )
    
22.   )
    
23.   (setvar "osmode" oldos)
    
24.   (princ)
    4 c4 }3 |0 N, e" E
25. )

复制代码

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

四楼的程序注释

1. (defun c:thenumber (/ mylayers mylayout)
   9 V8 ?9 o# A/ p, e- D% e* v  f
2.   (vl-load-com)                                ;加载Visual LISP模块
   
3.   (setq        mylayers
   ; _$ d) Y# A4 @. U$ v
4.          (vla-get-count
   6 x* u% l) w! z' u6 L
5.            (vla-get-layers
   
6.              (vla-get-ActiveDocument
   & ^6 D/ X- U" ^
7.                (vlax-get-Acad-Object)        ;获取CAD进程对象
   
8.              )                                ;获取该CAD进程的活动文档对象
   ; T4 p( i! `9 r/ b1 d( G
9.            )                                ;获取该文档的图层集合对象
   
10.          )                                ;获取该集合的元素数量
    4 `$ m  T8 ~/ I% L
11.   )                                        ;把得到的当前CAD文档的图层数量赋值给局部变量
    % d8 T$ m6 l7 O# w: U- S: t  ~
12.   (print "the number of mylayers=")
    
13.   (prin1 mylayers)                        ;在命令行输出当前CAD文档的图层数量
    5 t) Z. w3 _) W2 m6 @( t, W" w
14.   (setq        mylayout
    
15.          (vla-get-count
    8 O. N8 h3 C4 Y
16.            (vla-get-layouts
    3 M% }1 m# n9 z# S' o7 r
17.              (vla-get-ActiveDocument
    
18.                (vlax-get-Acad-Object)        ;获取CAD进程对象
    * d5 N# g7 G) {% N8 I
19.              )                                ;获取该CAD进程的活动文档对象
    
20.            )                                ;获取该文档的布局集合对象
    . l+ w) m- x: `4 Y8 j% |
21.          )                                ;获取该集合的元素数量
    * q4 ~) C* A. z) B5 n: K0 N+ ]
22.   )                                        ;把得到的当前CAD文档的布局数量赋值给局部变量
    
23.   (print "the number of mylayout=")
    $ E9 C) H/ J4 s/ E6 M
24.   (prin1 mylayout)                        ;在命令行输出当前CAD文档的布局数量
    
25.   (princ)                                ;空打印,用于清空本自定义函数的返回值,不让命令行产生多余的输出
    
26. )

复制代码

五面怪

楼上是高手。