关于一个变量

jianhua_ks

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

sealive_leafage

VBA中插入模块，输入以下代码，运行sub addcircle;
Option Explicit
3 s0 m5 d% }2 n* p' \4 j5 yPublic Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Public Const VK_ESCAPE = &H1B
  h  z+ n+ ?: U* d4 V9 N+ cSub addcircle()
    Dim circleObj As AcadCircle
3 G- P$ G! B8 H  x  k0 \6 C+ ]  g    Dim centerPoint(0 To 2) As Double
    Dim radius As Double
8 ?) O6 ^* Z3 h) S/ o8 Y, C     centerPoint(0) = 0#: centerPoint(1) = 0#: centerPoint(2) = 0#
    radius = 10#
) T7 Z% k8 a( h" G. L0 }    Do While GetAsyncKeyState(VK_ESCAPE) <> -32767
    DoEvents
    Set circleObj = ThisDrawing.ModelSpace.addcircle(centerPoint, radius)
    radius = radius + 10
    ZoomAll
    Loop
! b9 A# I7 \8 ?7 T5 W7 r End Sub

wang_509

不错，学习一下！！

TALKE

什么叫“变量点”？

jianhua_ks

原帖由 sealive_leafage 于 2009-3-27 21:03 发表 http://www.3dportal.cn/discuz/images/common/back.gif
VBA中插入模块，输入以下代码，运行sub addcircle;
3 p. |: a( u1 M+ h" v4 d1 X1 p* xOption Explicit
0 |- N: x: ?* S6 k! [7 x: H8 ZPublic Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
; V7 j: U9 \  |. {' y) XPublic Const VK_ESCAPE = &H1B
8 W& q8 O. t9 q9 Y1 [$ VSub addcircle()
! e$ z& L3 p  u5 m" {5 f6 R...

" l0 j9 y* d; `( F2 v7 u* Q$ P谢谢这位
！可惜我不是太懂

jianhua_ks

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

比如说我在画圆时，CAD要我输入半径值，当作R，我给CAD这个变量一个值比如R=10,而每操作一次,R的值增加10就是R=R+10的意思.

TALKE

你说的这个，是变量，不是变量点。建议语言尽量规范，使用常规的习惯用语，不要随意杜撰，如果提出新的词汇那就要予以解释清楚。

在lisp中变量可以是点，比如：
" C6 G5 W( Z4 O6 {(setq p1 (list 20 30))
4 Y" y9 t+ D8 t$ p" K5 R(setq p2 (list 120 100))
那么就可以认为p1，p2分别是点：
函数(command "line" p1 p2 "")可以产生正确结果即在绘图空间中产生(20,30)-(120,100)的一段直线。
" g" Z$ [' s$ ^  M/ _所以你一旦提到点，人们就很容易想到这样的点变量，这样的变量无所谓增量的，所以容易引起误会。

( E) h( b& D' \$ }3 X0 w你的意思大概是在循环体中怎样使变量每循环一次增加一个常量吧？如果这个变量是r，增量是10，在lisp语言中赋值函数与+函数就可完成：
4 @. X( u5 a6 q+ H6 x* }(setq r (+ r 10))
* z" A* D$ D$ U/ v; _% E+ D在C语言、VB中都是普通的赋值语句。
4 r: d- {% ~$ U/ D6 @6 \
  h; M, i  m" Q, d) o/ t9 q! E" M[ 本帖最后由 TALKE 于 2009-3-28 16:25 编辑 ]

jianhua_ks

原帖由 TALKE 于 2009-3-28 15:14 发表 http://www.3dportal.cn/discuz/images/common/back.gif
) i" Q9 J0 |, T& M0 l0 c* w9 D1 G* B你说的这个，是变量，不是变量点。建议语言尽量规范，使用常规的习惯用语，不要随意杜撰，如果提出新的词汇那就要予以解释清楚。

' P' n6 j: W9 ?" D5 Q- w% T5 a在lisp中变量可以是点，比如：
(setq p1 (list 20 30))
(setq p2 (list 120 100 ...

谢谢这位，其实关于LISP也好VB也好，我都不是太懂，我想能否在CAD COMMAND状态下直接输入R，命令每操作一次，实现R+10有无办法？
谢谢了。。

snddd

(setq r 10)
5 @  k& ~1 C( s(defun c:c ()
$ [/ I, {+ S3 E- L( f  j/ S(command "_circle" pause r)
(setq r (+ r 10))
5 ?; i2 b; o; s  \' m. C+ G)
上面的语句可以满足加十的要求，但不用输入R，只要点选中心点，其半径自动加10，完成圆。
在LISP里加载，然后在命令里输c即可