请各位帮忙修改一个LSP
找到了一个自动求和的lsp，但是他是把结果返回到命令栏的，有的时候不是很方便。请大师进行修改，将结果返回到单行文字，文字插入点通过点选即可。文字高度为300，文字样式和所在图层均为当前图层即可。
谢谢。
附件为所需更改的LSP。
到我的网络U盘下载一个ce.lsp吧，对单行文本计算的。 ;; tt(自动求和)
;; 需要e派工具箱(XCAD)的支持
(defun c:tt ()
(cmdla0)
(if (setq ss (ssget '((0 . "TEXT") (1 . "~*[~`--9]*"))))
(setq lst (xyp-ss2list ss)
lst (mapcar '(lambda (x) (distof (xyp-DXF 1 x))) lst)
tx(rtos (apply '+ lst) 2)
s1(xyp-Text 5 (getpoint) tx)
)
)
(cmdla1)
) xyp1964 发表于 2014-7-4 08:50 static/image/common/back.gif
有了院长专用函数库，
写起程序来就是简洁
页:
[1]