[编程申请]：将左边的数通过运算变成右边的数

lengliqun

求LSP程序：将左边的数通过运算变成右边的数，默认全选，能框选，运算过程表达不清，请下载附件。谢谢。

zxq0220

程序：

2. 
   
3. (DEFUN C:TEST ()
   
4. (SETVAR "CMDECHO" 0)
   
5. (PRINC "\nSelect Text : ")
   
6. (IF (SETQ SS (SSGET '((0 . "TEXT")))) (PROGN
   
7.   (SETQ M (GETINT "\nInput M = "))
   
8.   (COMMAND ".UNDO" "BE")
   
9.   (SETQ SL (SSLENGTH SS) I 0 OLDOS (GETVAR "OSMODE"))
   
10.   (SETVAR "OSMODE" 0)
    
11.   (REPEAT SL
    
12.    (SETQ ENT (ENTGET (SSNAME SS I)) I (1+ I)
    
13.          TEMP (READ (CDR (ASSOC 1 ENT)))
    
14.          D (* (FIX (/ (+ (* (SQRT (/ TEMP PI M)) 2000) 99.999) 100)) 100)
    
15.          ENT (SUBST (CONS 1 (ITOA D)) (CONS 1 (ITOA TEMP)) ENT))
    
16.    (ENTMOD ENT)
    
17.   )
    
18.   (COMMAND ".UNDO" "E")
    
19.   (SETVAR "OSMODE" OLDOS)
    
20. ))
    
21. (PRINC)
    
22. )
    

<br /> (DEFUN C:TEST ()<br /> (SETVAR "CMDECHO" 0)<br /> (PRINC "\nSelect Text : ")<br /> (IF (SETQ SS (SSGET '((0 . "TEXT")))) (PROGN<br />   (SETQ M (GETINT "\nInput M = "))<br />   (COMMAND ".UNDO" "BE")<br />   (SETQ SL (SSLENGTH SS) I 0 OLDOS (GETVAR "OSMODE"))<br />   (SETVAR "OSMODE" 0)<br />   (REPEAT SL<br />    (SETQ ENT (ENTGET (SSNAME SS I)) I (1+ I)<br />          TEMP (READ (CDR (ASSOC 1 ENT)))<br />          D (* (FIX (/ (+ (* (SQRT (/ TEMP PI M)) 2000) 99.999) 100)) 100)<br />          ENT (SUBST (CONS 1 (ITOA D)) (CONS 1 (ITOA TEMP)) ENT))<br />    (ENTMOD ENT)<br />   )<br />   (COMMAND ".UNDO" "E")<br />   (SETVAR "OSMODE" OLDOS)<br /> ))<br /> (PRINC)<br /> )<br />

xyp1964

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


(defun c:test ()
  (cmdla0)
  (setq        num2 (ureal 1 "" "\n参数M" num2)
        SS   (ssget '((0 . "TEXT")))
        i    -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (setq num1 (atoi (dxf 1 (entget s1)))
          txt  (* (sqrt (/ num1 num2 3.14)) 2000)
          txt1 (fix (/ txt 100))
          txt2 (+ (* txt1 100) 100)
    )
    (sub_upd s1 1 (rtos txt2 2 0))
  )
  (cmdla1)
)
[/php]
公式可以简化：

lengliqun

经测试以上两个LSP都可以用啊，谢谢两位啦。