关于一个变量

jianhua_ks · 发表于 2009-3-27 13:11:16

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

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

sealive_leafage · 发表于 2009-3-27 21:03:31

VBA中插入模块，输入以下代码，运行sub addcircle;
Option Explicit
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Public Const VK_ESCAPE = &H1B
Sub addcircle()
Dim circleObj As AcadCircle
Dim centerPoint(0 To 2) As Double
Dim radius As Double
centerPoint(0) = 0#: centerPoint(1) = 0#: centerPoint(2) = 0#
radius = 10#
Do While GetAsyncKeyState(VK_ESCAPE) <> -32767
DoEvents
Set circleObj = ThisDrawing.ModelSpace.addcircle(centerPoint, radius)
radius = radius + 10
ZoomAll
Loop
End Sub

wang_509 · 发表于 2009-3-28 11:06:20

不错，学习一下！！

TALKE · 发表于 2009-3-28 12:58:55

什么叫“变量点”？

jianhua_ks · 发表于 2009-3-28 14:36:41

原帖由 sealive_leafage 于 2009-3-27 21:03 发表 http://www.3dportal.cn/discuz/images/common/back.gif
' g1 u4 {; J+ w8 M  @  q# l6 BVBA中插入模块，输入以下代码，运行sub addcircle;
1 O/ p, X+ o: Y, E' G5 [! DOption Explicit
2 Z8 X$ N* [& J: g* UPublic Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
* m. D  q8 V* a6 N' Q$ e0 X6 T" ~- ]Public Const VK_ESCAPE = &H1B, K- T8 M/ Y3 X3 n' @
Sub addcircle()
  z/ l; y& T. b! ^; i...

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

jianhua_ks · 发表于 2009-3-28 14:41:30

原帖由 TALKE 于 2009-3-28 12:58 发表 http://www.3dportal.cn/discuz/images/common/back.gif7 ^: f2 {- A$ c, h5 X! B7 @
什么叫“变量点”？

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

TALKE · 发表于 2009-3-28 15:14:16

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

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

你的意思大概是在循环体中怎样使变量每循环一次增加一个常量吧？如果这个变量是r，增量是10，在lisp语言中赋值函数与+函数就可完成：
(setq r (+ r 10))
在C语言、VB中都是普通的赋值语句。

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

jianhua_ks · 发表于 2009-3-31 11:57:49

原帖由 TALKE 于 2009-3-28 15:14 发表 http://www.3dportal.cn/discuz/images/common/back.gif
( t" \: \9 j" Y! j \你说的这个，是变量，不是变量点。建议语言尽量规范，使用常规的习惯用语，不要随意杜撰，如果提出新的词汇那就要予以解释清楚。
7 x6 r# x8 [6 E% }+ L# C- Q7 l, i. K% d; ?* S0 A5 A. L
在lisp中变量可以是点，比如：8 ]% t3 y* D, j
(setq p1 (list 20 30))
, `, K9 \4 `4 b- t7 t2 o; K: a(setq p2 (list 120 100 ...

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

snddd · 发表于 2009-3-31 12:53:58

(setq r 10)
(defun c:c ()
(command "_circle" pause r)
(setq r (+ r 10))
)
上面的语句可以满足加十的要求，但不用输入R，只要点选中心点，其半径自动加10，完成圆。
在LISP里加载，然后在命令里输c即可

		自动登录	找回密码
密码			注册

通知

[求助] 关于一个变量

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分

评分

浏览过的版块