关于一个变量

jianhua_ks

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

sealive_leafage

VBA中插入模块，输入以下代码，运行sub addcircle;
, \6 I8 d  Q' J; a; ZOption Explicit
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
5 t4 j8 V4 ]# c) L! G/ n  WPublic Const VK_ESCAPE = &H1B
' L# }3 `- t& X) `2 r& @Sub addcircle()
, R5 U$ ?+ I- a    Dim circleObj As AcadCircle
    Dim centerPoint(0 To 2) As Double
    Dim radius As Double
- Y( b) B( R# m- q; h- Q0 D( f     centerPoint(0) = 0#: centerPoint(1) = 0#: centerPoint(2) = 0#
# Z7 f1 S& u7 e0 D3 v3 V! v    radius = 10#
    Do While GetAsyncKeyState(VK_ESCAPE) <> -32767
    DoEvents
    Set circleObj = ThisDrawing.ModelSpace.addcircle(centerPoint, radius)
! L8 ]6 S* F5 {- b  d    radius = radius + 10
    ZoomAll
: q/ s+ S1 M2 m1 K* c7 Q    Loop
5 J" c0 H0 y& ^2 y" \5 B  d End Sub

wang_509

不错，学习一下！！

TALKE

什么叫“变量点”？

jianhua_ks

原帖由 sealive_leafage 于 2009-3-27 21:03 发表 http://www.3dportal.cn/discuz/images/common/back.gif
% v" X! b1 t0 n8 x* PVBA中插入模块，输入以下代码，运行sub addcircle;
Option Explicit
3 D8 \. N5 }/ b% `. GPublic Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
- e4 V6 E2 C0 L0 Z+ jPublic Const VK_ESCAPE = &H1B
Sub addcircle()
$ D8 `& g1 [2 N7 B% B: p8 W0 d8 T- _...

谢谢这位
！可惜我不是太懂

jianhua_ks

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

  A$ x9 \  h& F: {+ S6 }, l比如说我在画圆时，CAD要我输入半径值，当作R，我给CAD这个变量一个值比如R=10,而每操作一次,R的值增加10就是R=R+10的意思.

TALKE

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

在lisp中变量可以是点，比如：
(setq p1 (list 20 30))
& q3 @. e; [' y  g% h(setq p2 (list 120 100))
那么就可以认为p1，p2分别是点：
4 K5 b' Z5 C4 j# T: m5 j函数(command "line" p1 p2 "")可以产生正确结果即在绘图空间中产生(20,30)-(120,100)的一段直线。
" o' l- ]9 `( c5 A/ C( N: S& N所以你一旦提到点，人们就很容易想到这样的点变量，这样的变量无所谓增量的，所以容易引起误会。
1 u3 r' U0 O1 U& k
你的意思大概是在循环体中怎样使变量每循环一次增加一个常量吧？如果这个变量是r，增量是10，在lisp语言中赋值函数与+函数就可完成：
; y- s2 K4 i3 }8 ^% f(setq r (+ r 10))
在C语言、VB中都是普通的赋值语句。
% p9 h- ^2 I$ D& L! Z# C# X2 p
[ 本帖最后由 TALKE 于 2009-3-28 16:25 编辑 ]

jianhua_ks

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

& v  i; ]4 g/ N0 P& t% h' j& J" [5 T% Y在lisp中变量可以是点，比如：
- a6 y' \/ N  b- h1 }! u! G, v' `8 J(setq p1 (list 20 30))
(setq p2 (list 120 100 ...

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

snddd

(setq r 10)
8 x; A4 B7 `9 I! `(defun c:c ()
' r$ }2 r" M. W9 m(command "_circle" pause r)
! n* \  |! y3 B0 x5 g(setq r (+ r 10))
)
上面的语句可以满足加十的要求，但不用输入R，只要点选中心点，其半径自动加10，完成圆。
& @" f8 h$ X. G- d& i% G" |在LISP里加载，然后在命令里输c即可