获取1文本数值，经过计算，写入另一文本的lisp，提示参数太少，新手不懂如何修改，

yugarden · 发表于 2010-6-28 15:50:00

获取1文本数值，经过计算，写入另一文本的lisp，提示参数太少，新手不懂如何修改，各位高手帮忙看看！[br](defun c:wss (/pa ws wstext)
(setq pa (entsel "\n选择全压值文本 :"))
(setq ws (/pa 1800))
(setq wstext (car (entsel "\n>>选取写入结果的文字:")))
(setq wstext ws)
(princ)
)

yugarden · 发表于 2010-6-28 16:09:00

获取数值那部分对不对？

写入那部分对不对？

是不是主要这2部分有问题？

问一下1个基本知识，我还不肯定：lisp需不需要转换参数类型，比如获取的是不是字符类型？要不要转换成数值类型这样的说法？我以前的VB就要这样！

lsjj · 发表于 2010-6-28 16:35:00

1. entsel是選取物件,先查一下pa是什麼? !pa ->再取得文字內容

2. 字串->數字

3. ws的處理,要注意整數實數問題

4. subst

Andyhon · 发表于 2010-6-28 18:31:00

另外

(/pa ==> (/ pa

ZZXXQQ · 发表于 2010-6-28 21:04:00

本帖最后由作者于 2010-6-30 19:25:51 编辑

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

yugarden · 发表于 2010-6-30 11:27:00

提示输入的列表有缺陷！

。。。。。。

ZZXXQQ · 发表于 2010-6-30 19:27:00

5楼改了，再试试。

qingtao210 · 发表于 2010-7-5 22:12:00

我也用不起来啊

yugarden · 发表于 2010-7-6 14:16:00

研究一下先，很多东西还不理解！

yugarden · 发表于 2010-7-6 14:18:00

rots改为rtos可用！

账号		自动登录	找回密码
密码			注册

获取1文本数值，经过计算，写入另一文本的lisp，提示参数太少，新手不懂如何修改，

浏览过的版块