关于一个变量

jianhua_ks

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

sealive_leafage

VBA中插入模块，输入以下代码，运行sub addcircle;
4 P5 K1 Y2 d! f# j$ NOption Explicit
- y% `  T0 X' V, ~, @3 T) R" u9 FPublic Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
7 P, [" t2 f& E6 Z  G' mPublic Const VK_ESCAPE = &H1B
4 C5 `/ W) }' I  [# V& NSub addcircle()
    Dim circleObj As AcadCircle
5 g1 ~1 s+ ~8 e) B4 C    Dim centerPoint(0 To 2) As Double
1 P5 \# P) b! Y. w- D4 {    Dim radius As Double
     centerPoint(0) = 0#: centerPoint(1) = 0#: centerPoint(2) = 0#
, g/ \6 o3 w; K' @" [8 B2 c; `" q) B    radius = 10#
    Do While GetAsyncKeyState(VK_ESCAPE) <> -32767
; g1 ]( C5 o* {* E/ Q2 ~) @    DoEvents
    Set circleObj = ThisDrawing.ModelSpace.addcircle(centerPoint, radius)
& t5 N9 ^0 p$ {( Q    radius = radius + 10
8 Q! G2 {9 s) y" [    ZoomAll
    Loop
3 f! R1 S* i. k$ c1 H$ w 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;
Option Explicit
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Public Const VK_ESCAPE = &H1B
! y8 G3 w+ ]4 o/ _7 ?9 ISub addcircle()
: T* R% m2 M/ `1 s- o+ @! p  @1 O* L...

: v/ b; a1 S+ B: |$ ~, j4 D9 Q2 {4 i& c谢谢这位
+ \/ i$ O, F) p- `/ }！可惜我不是太懂

jianhua_ks

原帖由 TALKE 于 2009-3-28 12:58 发表 http://www.3dportal.cn/discuz/images/common/back.gif
6 s; q/ L- `0 V. M3 I- S5 J* l3 j什么叫“变量点”？

/ |1 x" v: O, D% }' d1 A3 _' {3 D+ Q比如说我在画圆时，CAD要我输入半径值，当作R，我给CAD这个变量一个值比如R=10,而每操作一次,R的值增加10就是R=R+10的意思.

TALKE

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

! n4 K8 j+ C% w6 t# n在lisp中变量可以是点，比如：
(setq p1 (list 20 30))
(setq p2 (list 120 100))
那么就可以认为p1，p2分别是点：
函数(command "line" p1 p2 "")可以产生正确结果即在绘图空间中产生(20,30)-(120,100)的一段直线。
所以你一旦提到点，人们就很容易想到这样的点变量，这样的变量无所谓增量的，所以容易引起误会。

% H: I" W# U% c" H. K3 \% o/ e你的意思大概是在循环体中怎样使变量每循环一次增加一个常量吧？如果这个变量是r，增量是10，在lisp语言中赋值函数与+函数就可完成：
(setq r (+ r 10))
在C语言、VB中都是普通的赋值语句。

[ 本帖最后由 TALKE 于 2009-3-28 16:25 编辑 ]

jianhua_ks

原帖由 TALKE 于 2009-3-28 15:14 发表 http://www.3dportal.cn/discuz/images/common/back.gif
你说的这个，是变量，不是变量点。建议语言尽量规范，使用常规的习惯用语，不要随意杜撰，如果提出新的词汇那就要予以解释清楚。
1 c$ I2 H/ D9 @+ p: n9 ?; O
在lisp中变量可以是点，比如：
(setq p1 (list 20 30))
(setq p2 (list 120 100 ...

谢谢这位，其实关于LISP也好VB也好，我都不是太懂，我想能否在CAD COMMAND状态下直接输入R，命令每操作一次，实现R+10有无办法？
% t9 U/ z( z  y+ y, Y, X. c9 Q6 f谢谢了。。

snddd

(setq r 10)
; Z$ b$ a5 x2 n4 `" r(defun c:c ()
1 P8 q4 y1 m8 m& h2 T(command "_circle" pause r)
& _+ h9 z6 K3 k' A- _) @(setq r (+ r 10))
6 p% e8 [0 c. q  w4 H! `7 ^1 F3 g)
# s4 t* e0 l2 u( U8 C7 ^上面的语句可以满足加十的要求，但不用输入R，只要点选中心点，其半径自动加10，完成圆。
在LISP里加载，然后在命令里输c即可