❶ 贱人工具箱如何编号如一个圆有很多个不同样的图型，编成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))
❷ 贱人工具箱V610官方版贱人工具箱V610官方版功能简介
大家好,关于贱人工具箱 V6.1.0 官方版，贱人工具箱 V6.1.0 官方版功能简介这个很多人还不知道,现在让我们一起来看看吧！
贱人工具箱正版是非常给力的一款CAD绘图工具，该款工具为用户提供了丰富的CAD插件功能，能够帮助用户更加轻松便捷的进行CAD图像的制作，你想用的这里统统都能找到！
【使用说明】
加载方法：
1、菜单“工具”-->“加载应用程序”(或直接输入命令：appload)
2、点启动组里的“内容...”按钮-->点“添加...”，找到工具箱，把工具箱添加进去
3、关闭对话框，并重启CAD
4、输入命令y或yy打开工具箱
无法加载时请尝试以下方法：
1、打开cad或图纸的时候不要按Esc键，按了会阻止工具箱的加载；
2、请使用管理员身份登陆操作系统；
3、使用vista和win7的要关闭UAC，关闭方法网上搜索，关闭UAC后请重启电脑以便生效；
4、工具箱不支持绿色版、精简版的cad。
【CAD插件推荐】
在CAD圈一直流传着这么一句话：会不会使用插件，是你懂不懂这个软件的门槛，因为随着对CAD的深入认识，你会发现使用插件和不使用插件，设计的效率天差地别，除了CAD贱人工具箱插件之外，还有其他好用的CAD插件等待着你的使用，小编也对这些类型的插件进行了整理，有需要的赶快来看看下面的表格吧。
CAD插件工具
软件名称软件特色燕秀工具箱官方免费版燕秀工具箱是一款方便易用的AutoCAD塑胶模工具，该软件支持简体、繁体、英文的AutoCAD各个版本，注重应用功能的增强。源泉CAD工具箱官方版这款CAD源泉建筑工具箱适用于建筑设计、装饰设计等相关CAD制图行业，由Visual LISP语言编写再经编译而成，可运行AutoCAD以及浩辰CAD各个版本。常青藤辅助工具系统官方版此绘图工具主要包括实体格式操作、图形符号绘制、表格智能处理、实体批量修改、实体信息查询及图纸批量打印等功能，支持AutoCAD、中望CAD和浩辰CAD平台。海龙工具箱2019完美版软件提供了若干绘图及设计用工具，支持多种封面目录制作、平面图绘制、立面图绘制、剖面图绘制等操作，可以大大提高用户绘图工作效率。❸ lisp程序加载进CAD后，如何在命令行显示出“贱人工具箱已加载，启动命令：Y或YY”的效果
在程序的最前面输出信息
(princ "已经加载")