AutoText - 好用的AutoCad插件

AutoText - 好用的AutoCad插件

2020-04-25 xenice 213 阅读

autotext插件在图纸设计和成套报价时可以减少重复操作,提高工作效率。 autotext 1.3.1 自动文本插件命令列表: ss: 只选择文本 ssc: 只复制文本 ssm: 只移动文本 ssd: 只删除文...

autolisp自制cad查找命令

autolisp自制cad查找命令

2020-04-14 xenice 167 阅读

;查找命令 ;1、输入关键字 ;2、选择被查找文本 ;3、定位至查找到的文本 (defun c:fd() (setq s nil) (setq wd "") (while (= wd "") (setq wd(getstring "\n请...

autolisp自动在CAD上绘制电气元器件

autolisp自动在CAD上绘制电气元器件

2020-04-14 xenice 167 阅读

目前可以自动绘制断路器、接触器、互感器等。 (defun c:epx(/ data cat direc num dist mDirec point chart) (setq data nil) (while (not data) (setq cat (strcase (g...

autolisp批量统计系统图中的开关数量

autolisp批量统计系统图中的开关数量

2020-04-14 xenice 146 阅读

报价或者核对图纸的时候经常要一个个数每台配电柜或配电箱上面的开关数量,即浪费时间,又容易算错,所以写了这个自动统计开关数量的命令,用了之后工作效率提高了不少。 ;批量统计系统图上...

autolisp连接选中字符串并复制至剪切板

autolisp连接选中字符串并复制至剪切板

2020-04-14 xenice 158 阅读

;组成字符串数组,换行符分割并复制至剪切板 (defun c:scc() (setq str "") (setq i 1) (while (= i 1) (setq str (strc str)) (setq str (strcat str "\...

autolisp批量替换cad中文本值

autolisp批量替换cad中文本值

2020-04-14 xenice 152 阅读

;批量替换文本值 (defun c:rep() (setq s (ssget (list (cons 0 "text")))) (setq sl (sslength s)) (setq str (getstring "替换为:")) (setq st 0) (while (&l...

autolisp在cad中导入导出制表符文件

autolisp在cad中导入导出制表符文件

2020-04-14 xenice 151 阅读

说明.txt CAD中导入导出制表符文件 命令:it - 导入制表符表格,excel表格另存为制表符格式文件即可使用此命令 命令:ot - 导出制表符表格 备注:此程序包含config.ini配置文件,使...

autolisp函数汇总

autolisp函数汇总

2020-04-14 xenice 168 阅读

一、数学运算功能函数 1.l(十 数值 数值…)返回:累计实数或整数数值 1.2(一 数值 数值…)返回:差值 1.3(* 数值 数值…)返回:所有数值乘积 1.4(/ 数值 数值…)返回:第一个...

autolisp设置cad指定文本颜色

autolisp设置cad指定文本颜色

2020-04-14 xenice 179 阅读

;设置指定文本颜色 ;1指定要查找的文本 ;2指定查找范围 ;3设定查找到的文本颜色 (defun configcol() (setq x (cdr (assoc 1 (entget ...

autolisp对数字文本进行求和

autolisp对数字文本进行求和

2020-04-14 xenice 166 阅读

;对数字文本进行求和 (defun sum() (setq s (ssget '((0 . "TEXT") (1 . "~*[~`--9]*"))) ) (setq sl (sslength s) ) (setq st 0) (setq ...