关于一个变量

jianhua_ks

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

sealive_leafage

VBA中插入模块，输入以下代码，运行sub addcircle;
Option Explicit
6 G* P" G+ m: O! ~Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Public Const VK_ESCAPE = &H1B
8 n) `5 B* Q8 [# [# ]; TSub addcircle()
    Dim circleObj As AcadCircle
! V6 ^4 n8 A4 h. v$ W2 `, F- U    Dim centerPoint(0 To 2) As Double
; K# p, D+ d/ Z1 n    Dim radius As Double
/ b! s% e! F: Z- b% }0 z! n     centerPoint(0) = 0#: centerPoint(1) = 0#: centerPoint(2) = 0#
7 t' n# v, Q/ o4 v9 e# A8 C    radius = 10#
    Do While GetAsyncKeyState(VK_ESCAPE) <> -32767
' _8 S% F' q8 a+ r    DoEvents
    Set circleObj = ThisDrawing.ModelSpace.addcircle(centerPoint, radius)
    radius = radius + 10
8 V  A# \* j; l+ M0 `. B    ZoomAll
0 j+ D/ {2 U4 k- B; m* |7 x# e    Loop
2 A9 ^4 b: Y% G9 p% D+ j End Sub

wang_509

不错，学习一下！！

TALKE

什么叫“变量点”？

jianhua_ks

原帖由 sealive_leafage 于 2009-3-27 21:03 发表 http://www.3dportal.cn/discuz/images/common/back.gif
( g1 R. Q7 X& h3 W+ iVBA中插入模块，输入以下代码，运行sub addcircle;
+ Z% _4 n" K1 q$ f, bOption Explicit
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
' {6 F4 d# C* X8 P% R; |Public Const VK_ESCAPE = &H1B
- P1 J/ d1 W+ X- [: U- ]( U1 NSub addcircle()
...

" T* i- V( m! V& |$ Q% m" h' f谢谢这位
0 d: _+ z2 {  M！可惜我不是太懂

jianhua_ks

原帖由 TALKE 于 2009-3-28 12:58 发表 http://www.3dportal.cn/discuz/images/common/back.gif
$ D& ^! f* i( o, h! e: c' G什么叫“变量点”？

0 z! F# W( t: Q( W5 H+ O比如说我在画圆时，CAD要我输入半径值，当作R，我给CAD这个变量一个值比如R=10,而每操作一次,R的值增加10就是R=R+10的意思.

TALKE

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

, C. @8 \3 t$ T在lisp中变量可以是点，比如：
(setq p1 (list 20 30))
  D/ [) g# x. V) o(setq p2 (list 120 100))
6 U- H& P4 {# M( \那么就可以认为p1，p2分别是点：
6 n/ o% r/ y( h9 k$ X3 ~- H6 y函数(command "line" p1 p2 "")可以产生正确结果即在绘图空间中产生(20,30)-(120,100)的一段直线。
# r  B. v, H( F  h  {所以你一旦提到点，人们就很容易想到这样的点变量，这样的变量无所谓增量的，所以容易引起误会。
$ J' j3 ]/ X' H7 T: I) B' m: E. l
9 I4 O1 W* _' o2 N5 G5 K你的意思大概是在循环体中怎样使变量每循环一次增加一个常量吧？如果这个变量是r，增量是10，在lisp语言中赋值函数与+函数就可完成：
(setq r (+ r 10))
) b" [7 @5 S( g) Q2 F在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
你说的这个，是变量，不是变量点。建议语言尽量规范，使用常规的习惯用语，不要随意杜撰，如果提出新的词汇那就要予以解释清楚。

在lisp中变量可以是点，比如：
(setq p1 (list 20 30))
/ _" N- I1 @; |6 \0 N(setq p2 (list 120 100 ...

谢谢这位，其实关于LISP也好VB也好，我都不是太懂，我想能否在CAD COMMAND状态下直接输入R，命令每操作一次，实现R+10有无办法？
' `) B7 \8 t7 @. n& L' F谢谢了。。

snddd

(setq r 10)
(defun c:c ()
(command "_circle" pause r)
(setq r (+ r 10))
) J) [! G7 h* l9 s* q  x)
+ S8 a9 V0 U; R( U4 i" `5 T& p上面的语句可以满足加十的要求，但不用输入R，只要点选中心点，其半径自动加10，完成圆。
在LISP里加载，然后在命令里输c即可