[求LSP代码]cad中鼠标连续点击生成30-60之间的随机数

qq284417238 · 发表于 2015-6-10 09:48:50

鼠标点击一次，就生成一个30-60之间的数，数值字体默认当前字体与图层。

qq284417238 · 发表于 2015-6-10 10:13:27

求大大们帮忙，谢谢，之前也搜过这个话题，但是没找到一样的，对这个语言也不是很懂，只是需要实际应用。

819534890 · 发表于 2015-6-10 10:16:36

本帖最后由 819534890 于 2015-6-10 10:33 编辑

(defun c:sjs(/ pt str) ;在选择点上，生成30~60随机数
(setvar "CMDECHO" 0)
(while (setq pt (getpoint "\n请选择点"))
(setq str (strcat (itoa (+ (fix (* (* (rem (getvar "cputicks") 1e3) 1e-3) 31)) 30)) "m"))
(command "text" pt "" "" str)
)
(setvar "CMDECHO" 1)
)

qq284417238 · 发表于 2015-6-10 10:20:39

819534890 发表于 2015-6-10 10:16

非常感谢帮忙，已经解决我的问题了，再次感谢

qq284417238 · 发表于 2015-6-10 10:24:36

819534890 发表于 2015-6-10 10:16

有时间的话，还要麻烦您一下，能否在数值后面在加个单位m呢（比如是50ｍ这样），之前自己忽略了这个问题，

819534890 · 发表于 2015-6-10 10:30:00

qq284417238 发表于 2015-6-10 10:24
有时间的话，还要麻烦您一下，能否在数值后面在加个单位m呢（比如是50ｍ这样），之前自己忽略了这个问题， ...

上面的代码已修改

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

[已解答] [求LSP代码]cad中鼠标连续点击生成30-60之间的随机数