CAD设计论坛

 找回密码
 立即注册
论坛新手常用操作帮助系统等待验证的用户请看获取社区币方法的说明新注册会员必读(必修)
查看: 1565|回复: 5

[求助] 关于 lisp 的编程 问题 谢谢

[复制链接]
发表于 2011-6-17 23:12 | 显示全部楼层 |阅读模式
(define c:ABC() (vl-load-com) (command "setvar""osmode""0")
4 b- M9 Y4 F" _: v6 K1 s(setq p1 (getpoint "\n确定第一个点,\n")) (if(/=p1 null)(command "point" """" p1))
: d4 |# e% `6 D. C- _(setq p2 (getpoint p1 "\n 确定第二个点,\n"))
! M$ u8 f% D5 Y. O+ V(command "line" p1 p2 "" )  l4 @2 c/ Y' Z$ t4 s
(setq p3 (getpoint p2 "\n 确定第三个点,\n")) (command  "line" p2 p3 "")
- ~. s: l8 I% n/ b' S# ?(command  "line" p1 p3 ""); u; s3 w5 J* i, I
(command  "circle""3p" p1,p2,p3) )
+ O, U/ f$ I- N' S' P5 S
. \+ l: U" |  j' [1 i1 n' A- x3 T, u) T! ~* e  C3 |/ i
请问下这个程序能否 根据 3个点 画出一个圆 ,如果不能可否帮忙改下?还有加载后怎么运行??谢谢
 楼主| 发表于 2011-6-17 23:14 | 显示全部楼层
在线等。。。
发表于 2011-6-18 00:24 | 显示全部楼层
编程比较难
 楼主| 发表于 2011-6-18 02:10 | 显示全部楼层
还有,能否在下面的程序旁注释每一步说明?谢谢
0 `( V/ q; y0 ^% v  W# J(defun c:thenumber(/ mylayers mylayout)  [9 W! [% f" u
  (vl-load-com)
1 h% M9 w3 o- ?0 R0 t4 x* j(setq mylayers (vla-get-count(vla-get-layers(vla-get-ActiveDocument (vlax-get-Acad-Object)))))2 Z/ ^0 {& F0 q, a3 v! @6 Z
(print "the number of mylayers=")(prin1 mylayers)7 g9 j  d& Y8 D) A% M) Z- G! C- e
(setq mylayout (vla-get-count(vla-get-layouts(vla-get-ActiveDocument (vlax-get-Acad-Object))))): H; b9 P- ]5 ^0 O6 x
(print "the number of mylayout=")(prin1 mylayout)
& d- e0 I* k0 f( j(princ));
发表于 2011-6-18 08:02 | 显示全部楼层
本帖最后由 woaishuijia 于 2011-6-18 08:06 编辑 6 i' J. u" f& [3 r  G5 }

" W+ p1 \% y) g1 ], w! f一楼的程序不能用,因为它存在几处致命的错误.
" S" c4 L4 V3 \4 }- o. i一.括号必须是半角字符,而现在第一个左括号是全角
; K  a8 W) V- O/ {! V二.函数"defun"你写成了"define"
& J+ u' R7 \0 f4 I$ x' t三.条件判断语句中"/="函数与变量"p1"之间缺少一个半角空格2 a2 ]8 f9 @! W0 I& h
四.空值"nil"你写成了"null",这是一个函数8 B2 G" r+ X: \' {; m2 U" x  k
五.用单点命令画p1点时,不应该有那两组双引号,应该是(command "point" p1)3 }! D* k, }4 T  }' P
六.用三点画圆命令时三个点参数之间不应该是逗号,必须是半角空格
' d/ F& l) e! C& X6 \/ o
" H' f, D  E5 H7 H7 a另外还有一些不合理的地方,需要加以改进.比如
! W1 K' v8 p5 u: Q) V( c) f0 V3 [) c一.应尽可能使用局部变量,不要偷懒.等你真正学会了编程,开始写大一点的程序时会明白局部变量有多么重要.9 @, U5 b, ?5 P
二.程序中取消了对象捕捉,在程序运行结束时要给用户改回去,否则人家辛辛苦苦设置的对象捕捉模式被你轻而易举地消灭了.
' {. q! _2 \2 D0 C0 d7 |# ]9 P4 M; J: `还有几处就不细说了., U9 A& R. ]. r4 C
0 _' a% ^8 e' L- W5 v2 M% A4 D% ~
下面是修改后的程序
  1. (defun c:ABC (/ oldos p1 p2 p3)* r) S4 f/ h, d! b: m5 U* ~
  2.   (setq oldos (getvar "osmode"))
    $ B" E1 }, P1 W' z
  3.   (setvar "osmode" 0)8 I' P; N  v; g! p& _
  4.   (setq p1 (getpoint "\n确定第一个点\n"))( N& T5 L3 @& Y
  5.   (if (/= p1 nil). F9 n* k8 i1 k4 C4 @1 o1 z
  6.     (progn
    . w9 d) w; F6 A& z" F! F
  7.       (command "point" p1): _0 M& O+ j* k# C
  8.       (setq p2 (getpoint p1 "\n 确定第二个点\n"))+ k2 U2 e' I4 z" ?0 d4 Q  d6 q
  9.       (if (/= p2 nil)
    * F  a4 E, l" l8 p( X/ J
  10.         (progn
    ! }& D  @. I. X. t( W8 Y3 b0 t8 T! `
  11.           (command "line" p1 p2 "")
    ! I4 S) ^# ~- _7 Z
  12.           (setq p3 (getpoint p2 "\n 确定第三个点\n"))
    6 a+ b" D' o( z2 p; F; ^) c5 ~8 p
  13.           (if (/= p3 nil)
    ) o. V4 h2 E$ k. g
  14.             (progn (command "line" p2 p3 "")
    0 V1 c& C& t, ^7 ~
  15.                    (command "line" p1 p3 "")
    $ J# x: I& D: |( J; ~* k% w) E' x/ `
  16.                    (command "circle" "3p" p1 p2 p3)
    : M4 r/ `  D& ~+ ?" T! ^
  17.             )3 V. \: c/ s9 L, l! n
  18.           )' ?! j, g( R, m( J6 Q0 W
  19.         )
    8 R% x# [" G, W9 a( ~. i8 E! m$ j
  20.       )6 b1 U. H: T; i- L
  21.     )! G8 Q) ^+ l1 x* T( T$ B) F
  22.   ), s3 p5 C- U7 R. G) F4 M
  23.   (setvar "osmode" oldos)
    ' J% L  A9 }  O- N) S/ S0 I
  24.   (princ)4 [. Y' a; I: y* @& r6 k: h
  25. )
复制代码
加载后在命令行键入函数名称(对本程序是ABC)就可以运行程序了% U8 F4 O4 T6 l5 w
% v; o$ o# ?5 n6 T
四楼的程序注释
  1. (defun c:thenumber (/ mylayers mylayout)  \: }6 f) |& o7 p' _
  2.   (vl-load-com)                                ;加载Visual LISP模块
      a, F0 W* f% k; ~1 D- {
  3.   (setq        mylayers) r, a* E$ N; M5 q; ?
  4.          (vla-get-count
    : P8 a( e$ q  ]% F$ K. I
  5.            (vla-get-layers
    ) H* [1 f/ I- W
  6.              (vla-get-ActiveDocument
    + K5 ^6 d3 ?: o0 A! a" W
  7.                (vlax-get-Acad-Object)        ;获取CAD进程对象
    * R( F  D; ?: z' e& g3 G- o" A0 W8 U
  8.              )                                ;获取该CAD进程的活动文档对象7 J4 E* d8 u  A
  9.            )                                ;获取该文档的图层集合对象0 S' U, r2 j. \  z4 R& F
  10.          )                                ;获取该集合的元素数量: J4 \/ s! }; f% G. P
  11.   )                                        ;把得到的当前CAD文档的图层数量赋值给局部变量
    ; Q4 }9 L: ~/ ~
  12.   (print "the number of mylayers=")
    2 L9 [# |" ]2 t
  13.   (prin1 mylayers)                        ;在命令行输出当前CAD文档的图层数量& \: V6 N" r# `( ~5 |6 e  o% u1 Q
  14.   (setq        mylayout3 \7 e/ B* I3 v& y
  15.          (vla-get-count$ G- Y' {9 t' y, D
  16.            (vla-get-layouts
    % }7 p$ {! x4 g' J: z
  17.              (vla-get-ActiveDocument  e; c+ }& s4 a! w# R! a2 Q7 ~0 r
  18.                (vlax-get-Acad-Object)        ;获取CAD进程对象: w( c* M. F: H) _6 e) H; E& U! l
  19.              )                                ;获取该CAD进程的活动文档对象% o4 H( A4 A5 b  i' o; l' @5 G/ H' K
  20.            )                                ;获取该文档的布局集合对象
    9 C1 p8 u0 X: N& i& f) q
  21.          )                                ;获取该集合的元素数量- S( ?6 W9 s! e0 {9 m
  22.   )                                        ;把得到的当前CAD文档的布局数量赋值给局部变量
    1 ^- A- V3 R4 _( K- G
  23.   (print "the number of mylayout=")
    6 U; g) E7 y( y4 y
  24.   (prin1 mylayout)                        ;在命令行输出当前CAD文档的布局数量
    ! S& [5 p! q; ?# o
  25.   (princ)                                ;空打印,用于清空本自定义函数的返回值,不让命令行产生多余的输出- }. v% S% J3 u1 |8 [1 v
  26. )
复制代码
发表于 2011-6-30 10:34 | 显示全部楼层
楼上是高手。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关于|免责|隐私|版权|广告|联系|手机版|CAD设计论坛

GMT+8, 2025-2-21 03:13

CAD设计论坛,为工程师增加动力。

© 2005-2025 askcad.com. All rights reserved.

快速回复 返回顶部 返回列表