[求LSP代码]cad中鼠标连续点击生成30-60之间的随机数
鼠标点击一次，就生成一个30-60之间的数，数值字体默认当前字体与图层。求大大们帮忙，谢谢，之前也搜过这个话题，但是没找到一样的，对这个语言也不是很懂，只是需要实际应用。 本帖最后由 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)
) 819534890 发表于 2015-6-10 10:16 static/image/common/back.gif
非常感谢帮忙，已经解决我的问题了，再次感谢 819534890 发表于 2015-6-10 10:16 static/image/common/back.gif
有时间的话，还要麻烦您一下，能否在数值后面在加个单位m呢（比如是50ｍ这样），之前自己忽略了这个问题， qq284417238 发表于 2015-6-10 10:24 static/image/common/back.gif
有时间的话，还要麻烦您一下，能否在数值后面在加个单位m呢（比如是50ｍ这样），之前自己忽略了这个问题， ...
上面的代码已修改
页:
[1]