关于一个变量

jianhua_ks

我在画图时要一个变量点，命令循坏一次变量增加10请问各位该如做最好?不胜感谢!比如画圆,第一次半径是10,第二次就是10+10=20,第三次是20+10=30,依次类推,只到ESC退出.谢谢了!

sealive_leafage

VBA中插入模块，输入以下代码，运行sub addcircle;
1 B2 k# U5 m. C6 Y1 SOption Explicit
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
, g, G8 U! J8 y; h6 `$ s5 q' o. IPublic Const VK_ESCAPE = &H1B
, u: C- Z7 q0 N2 F( s- O$ aSub addcircle()
7 b. Y: d$ M  Z0 N( c/ x; q1 n    Dim circleObj As AcadCircle
" N% k& Q+ t! g    Dim centerPoint(0 To 2) As Double
. x: m# _3 ^; Z- O$ [    Dim radius As Double
2 v* c+ b' W" C# m# e     centerPoint(0) = 0#: centerPoint(1) = 0#: centerPoint(2) = 0#
    radius = 10#
    Do While GetAsyncKeyState(VK_ESCAPE) <> -32767
+ N/ |+ z- a. d    DoEvents
    Set circleObj = ThisDrawing.ModelSpace.addcircle(centerPoint, radius)
: x4 u* `- G( y) k4 d    radius = radius + 10
    ZoomAll
6 O  T% H  e4 C9 `- y    Loop
) D& ^) F' B0 T' k: \8 q End Sub

wang_509

不错，学习一下！！

TALKE

什么叫“变量点”？

jianhua_ks

原帖由 sealive_leafage 于 2009-3-27 21:03 发表 http://www.3dportal.cn/discuz/images/common/back.gif
3 U: \+ p1 W5 B: L0 \, {' J( c8 dVBA中插入模块，输入以下代码，运行sub addcircle;
Option Explicit
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Public Const VK_ESCAPE = &H1B
Sub addcircle()
5 x+ m  W. g) e6 |# S, ]0 L$ r4 p$ q...

  E8 n+ }. ]- N: k( C$ E谢谢这位
！可惜我不是太懂

jianhua_ks

原帖由 TALKE 于 2009-3-28 12:58 发表 http://www.3dportal.cn/discuz/images/common/back.gif
什么叫“变量点”？

2 Y3 `4 d9 y* Y1 W! w2 U+ {比如说我在画圆时，CAD要我输入半径值，当作R，我给CAD这个变量一个值比如R=10,而每操作一次,R的值增加10就是R=R+10的意思.

TALKE

你说的这个，是变量，不是变量点。建议语言尽量规范，使用常规的习惯用语，不要随意杜撰，如果提出新的词汇那就要予以解释清楚。
/ {; W2 L& U" l! }7 s' \# j- E  Y
! _9 _! G/ ?6 f1 ]) Z0 c在lisp中变量可以是点，比如：
& {0 n, p, x9 U) X(setq p1 (list 20 30))
(setq p2 (list 120 100))
那么就可以认为p1，p2分别是点：
函数(command "line" p1 p2 "")可以产生正确结果即在绘图空间中产生(20,30)-(120,100)的一段直线。
2 t) c* n; M8 h4 T# v$ y1 p所以你一旦提到点，人们就很容易想到这样的点变量，这样的变量无所谓增量的，所以容易引起误会。
$ d; C) D3 u6 c3 Z
! O  c( b' o( L# d# m( q- Z5 J9 M0 v你的意思大概是在循环体中怎样使变量每循环一次增加一个常量吧？如果这个变量是r，增量是10，在lisp语言中赋值函数与+函数就可完成：
# W( e6 z  e" l(setq r (+ r 10))
在C语言、VB中都是普通的赋值语句。

+ `, f+ A9 P7 q( ^+ G[ 本帖最后由 TALKE 于 2009-3-28 16:25 编辑 ]

jianhua_ks

原帖由 TALKE 于 2009-3-28 15:14 发表 http://www.3dportal.cn/discuz/images/common/back.gif
6 m3 i8 v4 \- k/ b4 t; l* d* B& n你说的这个，是变量，不是变量点。建议语言尽量规范，使用常规的习惯用语，不要随意杜撰，如果提出新的词汇那就要予以解释清楚。

  e' r: z6 z0 D4 }& m/ e3 ^; r在lisp中变量可以是点，比如：
(setq p1 (list 20 30))
$ ]% y( b1 U; ?& v+ N$ \(setq p2 (list 120 100 ...

% d% k( u! p9 F3 f% y  u谢谢这位，其实关于LISP也好VB也好，我都不是太懂，我想能否在CAD COMMAND状态下直接输入R，命令每操作一次，实现R+10有无办法？
+ ?9 x, m8 a* o谢谢了。。

snddd

(setq r 10)
- D4 D! l% X* C+ D(defun c:c ()
; e7 H/ {4 A2 Y9 M$ n8 Y(command "_circle" pause r)
8 V+ b, {* y, q" J" U" r0 I(setq r (+ r 10))
; a. Q8 M# t$ s! f)
上面的语句可以满足加十的要求，但不用输入R，只要点选中心点，其半径自动加10，完成圆。
在LISP里加载，然后在命令里输c即可