求CAD中生成随机数的插件 cad插件怎么调出来
用autolisp对CAD二次开发，怎样生成随机数，急求！
;取得随机数值
(defun lsp201510261 ( / n3 n4)
(setq n3 (rtos (rem (getvar "Date") 1) 2 16))
(setq n3 (substr n3 18 1) n3 (atoi n3))
(setq n4 (rem (getvar "CPUTICKS") 10))
(fix (rem (+ n3 n4) 10))
)原理：提取时间，然后提取CPU频率，两个数值相加除以10，取整数。
怎样使用数字自动递增的CAD小插件
我贴个上来吧，不够好，还有更好的，不过没法传给你！
复制下面的函数，粘贴到记事本，另存为zjj.lsp，cad界面ap加载这个lisp，命令zjj
(defun C:zjj(/ xa1 list1 xnum1 chr1 chr2 newnum)
(setq chr1 (getstring "\n请输入编号的前缀："))
(setq xa1 (getint "\n请输入编号的后缀："))
(princ "\n选择要修改单个的文本")
(setq list1 (ssget))
(while (/= list1 nil)
(setq chr2 (rtos xa1 2 1))
(setq newnum (strcat chr1 chr2))
(entmod (subst (cons 1 newnum)
(assoc '1 (entget (ssname list1 0)))
(entget (ssname list1 0))))
(setq list1 nil)
(princ "\n选择要修改单个的文本")
(setq list1 (ssget))
(setq xa1 (1+ xa1))
)
(princ)
)
请问在CAD中用什么方法能让数字从1-100自动生成，不用一个一个数字去改。
我有办法，但需要知道你的数字是怎么排列的
还是就当横着排的数字，单独批量改一排的，也就是说，有多少排就要重复多少次
下面是排横排的命令，你的情况字母是不要的，不输就可以了，可以直接框选，选中的里面有不是文字的会排除掉，也就是需要先将文字复制或阵列到你需要的位置后再执行。
(defun c:pxh();;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;横向排序
(setq str1 (getstring "\n What’s the first 字母? "))
(setq n1 (getint "\n What’s the first 数字? "))
(setq ss1 (ssget '((0 . "TEXT,mtext"))) ) ;取文字
(setq count (sslength ss1));;;;;;;;;;;;;;;;选择个数
(if (= 0 count)
(vl-exit-with-error "\n没有选中任何文字")
)
(setq n 0)
(setq zblist '() )
(while (setq ent1 (ssname ss1 n)) ;;;;;;;;;取其中一个图元
(setq entlist1 (entget ent1))
(setq zblist (cons (subst ent1 10 (assoc 10 entlist1)) zblist));;图元名和此图元的坐标集合在一个表里
(setq n (1+ n))
)
(setq zblist;;;;排序
(vl-sort zblist
(function (lambda (e1 e2)
(< (cadr e1) (cadr e2)) ) ) )
);;;;;;;;;;;;;;;;排序结束
(setq n 0)
(repeat count
(setq nn1 (entget (car (nth n zblist))))
(setq nn1 (subst (cons 1 (strcat str1 (rtos n1)) ) (assoc 1 nn1) nn1))
(entmod nn1)
(setq n (1+ n))
(setq n1 (1+ n1))
)
(princ)
)
有知道这是什么CAD插件吗？
新手基本用不上。lsp插件一般是为了能达到一定的目的专门为某一项任务编写的。自学的话。还是先搞懂CAD本身的东西比较重要。
如果要使用，插件的具体安装方法如下：
1.在cad工具栏下输入ap（appload），然后按下空格键，就会跳出加载/卸载应用程序
2.选择你要用的插件，然后点击加载
3.然后关闭就完成了.左下角显示已加载成功，表示你已经加载好了
4.如果要打开软件就已经加载插件了，那么就启动组上，点击内容
5.然后点击添加，找到你放插件的地方。添加完，然后关闭。
6.接着关闭整个CAD，重新打开CAD就加载完插件了。
END
注意事项
启动组添加更方便使用。cad插件要自己去找。如果有需要CAD插件的，你可以给我留言。