[LISP程序]：数字相加出错了

li809

数字相加程序出错了
请各位高手帮忙修改一下,
它不能返回最终结果
比如选中的数字12
输入增加值为2
最终返回显示结果为12+02
以下附件是程序源码

xyp1964

看不懂，呵呵……
[php]
;;;加载通用函数
;;;下载：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
(load "xyp_lib")

;;;数值增减一个常数
(defun c:test ()
  (cmdla0)
  (setq        no1 (ureal 1 "" "\n\t增减值" no1)
        n   -1
  )
  ;;(COMMAND "UNITS" "2" "3" "1" "3" "0" "N");;确保小数点后保留3位数，3改为4即为4位，自定
  ;;(setq la (ddxf 8 (entsel "\n\t任选一高程 :")));保证只改变某层数值
  ;;(setq ss (ssget "X" (list (cons 0 "TEXT") (cons 8 la))));如果是全部修改，利用此句可以自行选择
  (setq ss (ssget (list (cons 0 "TEXT"))));如果是局部修改，利用此句可以自行选择
  (while (setq s1 (ssname SS (setq n (+ 1 n))))
    (setq mode (dxf 1 (entget s1))
          mode (+ (atof mode) no1)
          mode (rtos mode 2)
    )
    (sub_upd s1 1 mode)
  )
  (cmdla1)
)
[/php]

ljpnb

这句改改
(command "copy" e "" (cdr (assoc 10 el)) p )

lijiao

最初由 li809 发布
[B]数字相加程序出错了
请各位高手帮忙修改一下,
它不能返回最终结果
比如选中的数字12
输入增加值为2
最终返回显示结果为12+02
以下附件是程序源码 [/B]

你想要得到什么结果？

li809

RE：你想要得到什么结果？  
我想要可以返回最终结果值的函数

li809

2楼的可以解决问题，但要下载通用函数不好
三楼的我按此改了还是不行
结果一样
比如选中的数字10
输入增加值为40
最终返回显示结果为10+40
而我想要的是50的最终结果
并且多了以下的东西
Copy to:  ((-1 . <Entity name: 7ef5bea0>) (0 . "TEXT") (330 . <Entity name:
7ef5bcf8>) (5 . "8C") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0")
(100 . "AcDbText") (10 95.5811 3.07038 0.0) (40 . 20.0) (1 . "10+80") (50 .
0.0) (41 . 1.0) (51 . 0.0) (7 . "Standard") (71 . 0) (72 . 0) (11 0.0 0.0 0.0)
(210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))

以下附件是改为三楼后的程序源码

xyp1964

程序本身就说不清楚，不知是从哪里得来的？
还是用“老王”的吧！呵呵……

ljpnb

最初由 li809 发布
[B]2楼的可以解决问题，但要下载通用函数不好
三楼的我按此改了还是不行
结果一样
比如选中的数字10
输入增加值为40
最终返回显示结果为10+40
而我想要的是50的最终结果
并且多了以下的东西
Copy to:  ((-1 . <... [/B]

楼主下次提问题要说得清楚些，不然别人怎么会知道你真正的目的
再说看你的程序里的思路好象不是你说的结果，比如：
“选中的数字10
输入增加值为40
最终返回显示结果为10+40
而我想要的是50的最终结果”
根据你程序的思路，那结果应该是10.4
你看这句：(rtos (+ (atof s)(/ nv 100.0)) 2 2)))
真是搞不懂你的本意

lijiao

最初由 li809 发布
[B]2楼的可以解决问题，但要下载通用函数不好
三楼的我按此改了还是不行
结果一样
比如选中的数字10
输入增加值为40
最终返回显示结果为10+40
而我想要的是50的最终结果
并且多了以下的东西
Copy to:  ((-1 . <... [/B]

替你修改了一下，应该是你想要的了吧？
另外，建议你以后直接贴出代码，不要用附件的形式上传，不便于大家阅读。

2. 
   
3.   [FONT=courier new]
   
4. (defun c:na (/ E ENEW NV P S)
   
5.   (if (and (setq e (car (entsel "\nSelect Text: ")))
   
6.            (setq e (vlax-ename->vla-object e))
   
7.            (or (= "AcDbText" (vla-get-ObjectName e))
   
8.                (= "AcDbMText" (vla-get-ObjectName e))
   
9.            )
   
10.       )
    
11.     (progn
    
12.       (setq s (vla-get-TextString e))
    
13.       (if (null (setq nv (getreal (strcat "\nNew value:" "<40>"))))
    
14.         (setq nv 40)
    
15.       )
    
16.       (princ "\nCopy to: ")
    
17.       (while (setq p (getpoint))
    
18.         (setq enew (vla-copy e))
    
19.         (vla-put-textstring enew (setq s (rtos (+ (atof s) nv) 2)))
    
20.         (vla-put-InsertionPoint enew (vlax-3d-point p))
    
21.       )
    
22.     )
    
23.     (princ "\n选中的不是文本或没有选择到实体.")
    
24.   )
    
25.   (princ)
    
26. )  [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:na (/ E ENEW NV P S)<br />   (if (and (setq e (car (entsel "\nSelect Text: ")))<br />            (setq e (vlax-ename->vla-object e))<br />            (or (= "AcDbText" (vla-get-ObjectName e))<br />                (= "AcDbMText" (vla-get-ObjectName e))<br />            )<br />       )<br />     (progn<br />       (setq s (vla-get-TextString e))<br />       (if (null (setq nv (getreal (strcat "\nNew value:" "<40>"))))<br />         (setq nv 40)<br />       )<br />       (princ "\nCopy to: ")<br />       (while (setq p (getpoint))<br />         (setq enew (vla-copy e))<br />         (vla-put-textstring enew (setq s (rtos (+ (atof s) nv) 2)))<br />         (vla-put-InsertionPoint enew (vlax-3d-point p))<br />       )<br />     )<br />     (princ "\n选中的不是文本或没有选择到实体.")<br />   )<br />   (princ)<br /> )  [/FONT]<br />

li809

非常感谢大家
你们的意见我都乐间接受
因为程序我也是从网上下来的
我又不懂编程
出错了也只有暂时求救大家
9楼的程序正是我想要的
谢谢了
我想请问能改成可以指定复制基点的吗？
现在只能指定复制至哪一点
谢谢大家再次帮忙