发布于：2009-09-06 15:39:06
来自：建筑设计/CAD下载及教程
[复制转发]
;;;获取
(
defun
SS-TEXT-GETREAL
(
/
SS
LST
I
)
(
if
(
setq
SS
(
ssget
'
(
(
0
.
"*TEXT"
)
(
1
.
"~*[~`--9]*"
)
)
)
)
(
progn
(
setq
LST
'
(
)
I
0
)
(
repeat
(
sslength
SS
)
(
setq
LST
(
cons
(
read
(
cdr
(
assoc
1
(
entget
(
ssname
SS
I
)
)
)
)
)
LST
)
)
(
setq
I
(
1+
I
)
)
)
(
reverse
LST
)
)
)
)
(
defun
C:++
(
)
(
princ
(
rtos
(
apply
'
+
(
SS-TEXT-GETREAL
)
)
2
10
)
)
(
princ
)
)
(
defun
C:--
(
)
(
princ
(
rtos
(
apply
'
-
(
SS-TEXT-GETREAL
)
)
2
10
)
)
(
princ
)
)
(
defun
C:**
(
)
(
princ
(
rtos
(
apply
'
*
(
SS-TEXT-GETREAL
)
)
2
10
)
)
(
princ
)
)
(
defun
C://
(
)
(
princ
(
rtos
(
apply
'
/
(
SS-TEXT-GETREAL
)
)
2
10
)
)
(
princ
)
)
[
本帖最后由 zml1984 于 2009-9-6 15:42 编辑 ]
全部回复（8 ）
只看楼主 我来说两句-
liyp7608826
沙发
下来看看，多谢楼主的资料。学习中！非常感谢:victory:
2010-11-29 22:11:29
赞同0
-
偶来也
板凳
当源文件下载了。谢谢
2010-08-05 17:32:05
赞同0
加载更多回复 举报
回复 举报