贱人成工具箱版

② 贱人工具箱如何编号如一个圆有很多个不同样的图型，编成1到500，

我用贱人尝试过，不会弄，后来下载了一个lisp，用text编辑的数字可以复制递增。希望对你有所帮助。如下：
(defun c:gf()
(setq bc (getint "\n 请输入步长:"))
)

(defun c:saa()
(setq banben (ver))
(ddd banben)
(setq banben (atoi banben))
(prompt "\n 设置步长命令为:gf,初始步长为1")
(prompt "\n 请选择不需要更改的实体:")
(if (= bc nil)
(setq bc 1)
)
(setq ddjjqq (ssget))
(setq entt (entsel "\n 请选择一个文字:"))
(setq ent (car entt))
;(setq pt1 (cadr entt))
(redraw ent 3)
(setq dxf (entget ent)) ;联合列表
(setq wenzizu (assoc 1 dxf)) ;点对列表
(setq wenzi (cdr wenzizu)) ;文字

(setq wenzilen (strlen wenzi))
(setq fanyihou (vl-string-translate "1234567890" "##########" wenzi)) ;翻译字符

(setq wei (vl-string-search "#" fanyihou)) ;找出#的位置

(setq qianzhui (substr wenzi 1 wei)) ;取出前缀
(setq shuzi (substr wenzi (+ wei 1))) ;取出字符串形式的数字
(setq shishu (atoi shuzi)) ;把数字改为实数

(setq pt1 (getpoint "\n 请选择一个点:"))
(setq pt2 (getpoint pt1 "\n 请选择第二点:"))
(setq n 0)

(while pt2

(setq lll (substr wenzi 1 1)) ;判断第一个字符是什么
;(setq llll (substr wenzi 4 1)) ;判断第四个字符是什么

(cond

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
( (= lll "<") ;
(progn ;
(setq b (+ shishu bc n)) ;
(setq c (itoa b)) ;

(if (< b 10) ;
(setq d (strcat qianzhui "0" c ">"))
(setq d (strcat qianzhui c ">"))
) ;
;
(setq e (cons 1 d))

(if (> banben 2004)
(progn ;
(command "" ddjjqq "" pt1 pt2 "")
(command "" ent "" pt1 pt2 "")
)
(progn ;
(command "" ddjjqq "" pt1 pt2 )
(command "" ent "" pt1 pt2 )
) ;end progn
) ;end if

(setq ent1 (entget (entlast))) ; ;此处为一个判断
(setq txtzh1 (assoc 1 ent1)) ;
(setq ent1 (subst e txtzh1 ent1)) ;
(entmod ent1) ;
(princ) ;
) ;end progn ;
) ;end first ;
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;如果要加判断的话,请选择这里

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(t ;
(progn ;
(setq b (+ shishu bc n))
;
(setq c (itoa b))
(if (< b 10) ;
(setq d (strcat qianzhui c))
(setq d (strcat qianzhui "0" c))
) ;
(setq e (cons 1 d))

(if (> banben 2004)
(progn ;
(command "" ddjjqq "" pt1 pt2 "")
(command "" ent "" pt1 pt2 "")
) ;end progn

(progn ;
(command "" ddjjqq "" pt1 pt2 )
(command "" ent "" pt1 pt2 )
) ;end progn
); end if ; ;此处为第二个判断
(setq ent1 (entget (entlast))) ;
(setq txtzh1 (assoc 1 ent1)) ;
(setq ent1 (subst e txtzh1 ent1)) ;
(entmod ent1) ;
(princ) ;
) ;
) ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

) ;end cond

(setq n (+ bc n))
(setq pt2 (getpoint pt1 "\n 请选择第二点:")) ;pt1决定有没有显示线

) ;end while
) ;end defun

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;; 以下为输入单个字的命令 ;;;;;;;;;;;;;;;;

(defun c:sa()
(setq banben (ver))
(ddd banben)
(setq banben (atoi banben))
(prompt "\n 设置步长命令为:gf,初始步长为1")
(if (= bc nil)
(setq bc 1)
)

(setq enty (entsel "\n 请选择一个文字:"))
(setq ent (car enty))
;(setq pt1 (cadr enty))

(redraw ent 3)
(setq dxf (entget ent)) ;联合列表
(setq wenzizu (assoc 1 dxf)) ;点对列表
(setq wenzi (cdr wenzizu)) ;文字

(setq wenzilen (strlen wenzi))
(setq fanyihou (vl-string-translate "1234567890" "##########" wenzi)) ;翻译字符

(setq wei (vl-string-search "#" fanyihou)) ;找出#的位置

(setq qianzhui (substr wenzi 1 wei)) ;取出前缀
(setq shuzi (substr wenzi (+ wei 1))) ;取出字符串形式的数字
(setq shishu (atoi shuzi)) ;把数字改为实数

(setq pt1 (getpoint "\n 请选择一个点:"))
(setq pt2 (getpoint pt1 "\n 请选择第二点:"))
(setq n 0)

(while pt2

(setq lll (substr wenzi 1 1)) ;判断第一个字符是什么

;(setq llll (substr wenzi 4 1)) ;判断第四个字符是什么
(cond

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
( (= lll "<") ;
(progn ;
(setq b (+ shishu bc n)) ;
(setq c (itoa b)) ;
(if (< b 10) ;
(setq d (strcat qianzhui "0" c ">"))
(setq d (strcat qianzhui c ">")) ;
) ;
(setq e (cons 1 d))

(if (> banben 2004) ;
(command "" ent "" pt1 pt2 "")
(command "" ent "" pt1 pt2 )
) ;

(setq ent1 (entget (entlast))) ; ;此处为一个判断
(setq txtzh1 (assoc 1 ent1)) ;
(setq ent1 (subst e txtzh1 ent1)) ;
(entmod ent1) ;
(princ) ;
) ;end progn ;
) ;end first ;
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;如果要加判断的话,请选择这里

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(t ;
(progn ;
(setq b (+ shishu bc n)) ;
(setq c (itoa b))
(if (< b 10) ;
(setq d (strcat qianzhui "0" c))
(setq d (strcat qianzhui c))
) ;
(setq e (cons 1 d))

(if (> banben 2004) ;
(command "" ent "" pt1 pt2 "")
(command "" ent "" pt1 pt2 )
) ;
;此处为第二个判断
(setq ent1 (entget (entlast))) ;
(setq txtzh1 (assoc 1 ent1)) ;
(setq ent1 (subst e txtzh1 ent1)) ;
(entmod ent1) ;
(princ) ;
) ;
) ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

) ;end cond

(setq n (+ bc n))
(setq pt2 (getpoint pt1 "\n 请选择第二点:")) ;pt1决定有没有显示线

) ;end while
(princ)
) ;end defun

;;;;;;(wcmatch "SHZ1G" "*[1234567890]*") 可以找到是否只有一个数字

(defun ddd (#a)

(setq #b (vl-string->list #a))
(setq #c (vl-remove-if '(lambda (x) (> x 57)) #b))
(setq #d (vl-remove-if '(lambda (x) (< x 46)) #c))
(setq #e (vl-remove 47 #d)) ;此句是去掉/的语句
(setq banben (vl-list->string #e))

③ 贱人工具箱怎么使用

贱人工具箱使用步骤如下：（演示使用WIN10系统，其他Windows版本操作大致相同）

1丶以管理员身份打开AutoCAD软件，然后单击菜单“工具” - “加载应用程序” - “调用”对话框，之后点击如图所示的“内容”。

④ 贱人工具箱 不小心把Y设置成命令了 不能调出工具箱 怎么办

来个经实践验证了的方法：

打开c盘贱人工具箱文件夹的“y.ini”文件，例如：

找到文件里版的“y”，修权改成任意其他字母（用新的快捷键替换掉y），搞定！

直接删除没用，加载贱人工具箱后会还原（但未经过关机测试）。

⑤ 为什么使用破解版的贱人工具箱5.7,工具箱仍显示为注册状态

建议使用贱人工具箱5.2免费版，5.3版之后都是注册版，不注册功能有限制，5.7破解版在xp上能用内在win7上不能用可能容是因为破解这个软件的人是在XP系统上测试通过了，但他没有win7系统，所以没法测试；也有可能是其他的原因，比如你重装系统后文件丢失之类的。因为是破解的，所以显示为注册状态也是正常的，我的5.7显示为注册状态也能正常使用。希望我的回答能帮到你

⑥ 贱人工具箱卡住

打开AutoCAD，点击菜单“工具”--》“加载应用程序”--》调出对话框
点击对话框上启动组里的“内容...”--》点“浏览”，找到工具箱，点“添加”，把工具箱添加进去，关闭对话框
重启CAD
输入命令"y"调出工具箱
无法加载的解决方法：
用管理员身份登录操作系统
若您的系统是Vista或Windows7，请关闭UAC(关闭方法从网上搜索)，然后重新启动计算机
不支持精简版cad

天正用户加载贱人工具箱的方法：
首先确定你的工具箱的存放的路径，(本例假设工具箱的名字是：贱人工具箱.vlx，存放在c盘根目录下)
找到天正安装目录SYS\ACADDOC.LSP，打开ACADDOC.LSP，在最后添加一行(load "C:\\贱人工具箱.vlx")，注意括号也要的
然后重开天正检查是否成功。

⑦ 贱人工具箱怎么使用

贱人工具箱使用步骤如下：（演示使用WIN10系统，其他Windows版本操作大致相同）

1丶以管理员身份打开AutoCAD软件，然后单击菜单“工具” - “加载应用程序” - “调用”对话框，之后点击如图所示的“内容”。

⑧ 贱人工具箱5.8可以在win10系统中使用么

1、下载抄好最新版的通用pe工具箱后，将u盘制作成u盘启动盘，再将镜像文件保存好位置，就可以重启系统进行安装系统了。（如果镜像文件放在u盘的话，u盘必须是8G，因为windows
10的镜像文件就接近4G了）；
2、重启的时候连续按热键进bios系统，然后在bios系统下设置u盘为第一启动，然后再将系统模式改为ide模式，因为这样装机最稳定，然后按F10保存退出；
3、然后在pe选择界面选择合适自己电脑的pe系统；
4、进入到pe系统后，我们点击通用pe工具箱一键智能装机系统；
5、然后如下图所示，在“请选择映像名”那里下拉框有3个选择，第一个是无用的，第二“windows
technical
preview”的意思是
windows
技术预览版，而第三个“windows
technical
preview
for
consumer”
windows
消费者技术预览版，目前通用pe工具箱只支持消费者技术预览版，所以选择第三个，然后设置好安装的路径，点击开始，然后再点击确定即可开始安装了。

⑨ 贱人工具箱好用吗求万能网友解答一下，谢谢！

很好用的，这些都是一些辅助工具的，但是工具也不是那么齐全的，所以得多找几个cad工具箱才行的。

⑩ 能发我一个贱人工具箱破解版的吗急用，谢谢.625857868

我这边是贱人工具箱5.2版本的，下载后解压，再CAD里加载解压后的里面的贱人工具箱，加载成功后输入Y回车，工具箱就打开了