导航:首页 > 五金知识 > 贱人工具箱如何连续递增复制

贱人工具箱如何连续递增复制

发布时间:2025-01-16 23:06:13

㈠ cad贱人工具箱怎么用递增复制功能,麻烦详细回答

还在用插件吗,CAD本身一样可以复制递增:

㈡ CAD里能不能复制的时候,数字递增呢

当然可以啊,我有CAD里复制数字递增的插件

㈢ CAD贱人工具箱作用大吗

其实是这样的,贱人工具属于针对autocad没有的功能二次开发的小工具包,里面的功能你可专能属用的上,也可能很久都不会用,我推荐你还是下载一些专门针对你这个专业的设计软件,比如建筑的,你就下载建筑CAD,等等,这样对于的帮助要大一些

㈣ 2010CAD阵列的时候如何让数字自动递增

贱人工具箱 5.7 有递增复制和递增修改功能。

㈤ 2014CAD用的贱人工具箱5.8,现在递增复制只能在原地复制一个,然后就复制不了了,怎么回事啊

我有这个工具箱最新破解版

㈥ 贱人工具箱如何编号如一个圆有很多个不同样的图型,编成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))

㈦ cad 贱人工具箱里怎么能快速编号像123....

先加载贱人工具(来命令是自ap,然后找到贱人工具的位置加载完成,关闭窗口),再输入命令:y或者yy。弹出贱人工具箱,选择递增复制,这时候会让你选择对象,就选择你的123(123应该要是多行文字才行),提示是递增几?默认的应该是1.如果是1,鼠标右键就可以了,OK!问题解决了。

阅读全文

与贱人工具箱如何连续递增复制相关的资料

热点内容
29层设备层在哪个楼层 浏览:880
推力滚柱轴承转速多少合适 浏览:325
浙江消防器材哪里有卖 浏览:526
碳粉为什么会使电子仪器失灵 浏览:709
机床工作台台面用什么材料 浏览:329
橱柜安装需要的五金件有哪些 浏览:333
想250w的超声波要怎么设置 浏览:186
家用暖气阀门用密封圈 浏览:634
进口欧蓝德仪表变色怎么调 浏览:321
大型机械检测是什么单位委托 浏览:275
轴承打上黄油怎么卸掉 浏览:794
铸造时熔体温度偏低怎么办 浏览:396
热水器上水阀门口水怎么回事 浏览:308
自动充气放气的装置 浏览:75
笔记本机械硬盘待机多少度 浏览:561
东北水田运稻苗有哪些好设备 浏览:543
初中化学实验装置及其应用 浏览:738
液压传动装置由能源装置 浏览:700
汽车分离轴承什么作用 浏览:191
兰州市牧田电动工具代理商 浏览:928