autolisp - Xenice

2020-04-25 xenice 214 阅读

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

2020-04-14 xenice 167 阅读

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

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...

2020-04-14 xenice 146 阅读

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

2020-04-14 xenice 158 阅读

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

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...

2020-04-14 xenice 151 阅读

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

2020-04-14 xenice 169 阅读

一、数学运算功能函数 1．l（十数值数值…）返回：累计实数或整数数值 1．2（一数值数值…）返回：差值 1．3（* 数值数值…）返回：所有数值乘积 1．4（/ 数值数值…）返回：第一个...

2020-04-14 xenice 179 阅读

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

2020-04-14 xenice 167 阅读

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