请各位帮忙修改一个LSP

graygrap

找到了一个自动求和的lsp，但是他是把结果返回到命令栏的，有的时候不是很方便。

请大师进行修改，将结果返回到单行文字，文字插入点通过点选即可。文字高度为300，文字样式和所在图层均为当前图层即可。

谢谢。

附件为所需更改的LSP。

ll_j

到我的网络U盘下载一个ce.lsp吧，对单行文本计算的。

xyp1964

2. ;; tt(自动求和)
   
3. ;; 需要e派工具箱(XCAD)的支持
   
4. (defun c:tt ()
   
5.   (cmdla0)
   
6.   (if (setq ss (ssget '((0 . "TEXT") (1 . "~*[~`--9]*"))))
   
7.     (setq lst (xyp-ss2list ss)
   
8.           lst (mapcar '(lambda (x) (distof (xyp-DXF 1 x))) lst)
   
9.           tx  (rtos (apply '+ lst) 2)
   
10.           s1  (xyp-Text 5 (getpoint) tx)
    
11.     )
    
12.   )
    
13.   (cmdla1)
    
14. )

;; tt(自动求和)<br /> ;; 需要e派工具箱(XCAD)的支持<br /> (defun c:tt ()<br />   (cmdla0)<br />   (if (setq ss (ssget '((0 . "TEXT") (1 . "~*[~`--9]*"))))<br />     (setq lst (xyp-ss2list ss)<br />           lst (mapcar '(lambda (x) (distof (xyp-DXF 1 x))) lst)<br />           tx  (rtos (apply '+ lst) 2)<br />           s1  (xyp-Text 5 (getpoint) tx)<br />     )<br />   )<br />   (cmdla1)<br /> )

ysq101

xyp1964 发表于 2014-7-4 08:50

有了院长专用函数库，
写起程序来就是简洁