摘要：
1 (vl-load-com) 2 3 ;;;标注文字增加公差 4 ;;;命令：GV 5 ;;;极限公差文字高度可设置成主尺寸文字高度的任意比例，缺省值为0.7 6 ;;;当上公差与下公差相等时为对称公差 7 (defun c:gv(/ sztoleranceheightscale rtoleran 阅读全文
posted @ 2020-03-25 08:38
insipid
阅读(907)
评论(0)
推荐(0)
摘要：
1 (vl-load-com) 2 3 ;;;关闭选取外图层 4 ;;;完整命令：YX_LAY_OFFSELO 5 ;;;简化命令：LF 6 (defun c:yx_lay_offselo( / ename i lay layers laylst layname n obj ss str tmpla 阅读全文
posted @ 2020-03-17 08:55
insipid
阅读(1562)
评论(0)
推荐(0)
摘要：
1 ;;;acet-sysvar-set 2 ;;;函数的功能：设置系统变量的值，返回一个表，表的各元素为该系统变量用acet-sysvar-set函数历次修改前保存的原值，最后一个元素表示最后一次修改前该系统变量的值 3 ;;;语法:(acet-sysvar-set '("sysvar" valu 阅读全文
posted @ 2020-03-16 20:47
insipid
阅读(1089)
评论(0)
推荐(0)
摘要：
1 ;;;grtext 2 ;;;将文本写到状态行或屏幕菜单区 3 ;;;不带参数调用 grtext 将使所有文本区域恢复为标准值。如果仅带一个参数调用，grtext 将产生错误。 4 (grtext -2 "HelloWorld");将文本写入到坐标状态行区域 5 6 ;;;xstrcase 7 阅读全文
posted @ 2020-03-16 19:11
insipid
阅读(1519)
评论(0)
推荐(0)
摘要：
;;;当前AutoCAD任务中的顶层AutoCAD应用程序对象 (Vlax-Get-Acad-Object) (Setq acadObject (Vlax-Get-Acad-Object)) (or *ACAD* (setq *ACAD* (vlax-get-acad-object))) ;;;当前 阅读全文
posted @ 2020-03-16 17:26
insipid
阅读(2525)
评论(0)
推荐(0)
摘要：
1 ;;;编程语言:VisualLisp 2 3 ;;;name:BF-ss&Index->Obj 4 ;;;desc:选择集ss中第index个图元的VLA对象名 5 ;;;arg: 6 ;;;ss:选择集 7 ;;;index:自然数,索引,从0开始 8 ;;;return: 9 ;;;当ind 阅读全文
posted @ 2020-03-07 08:26
insipid
阅读(1069)
评论(0)
推荐(0)
摘要：
1 ;;;编程语言:VisualLisp 2 ;;;功能: 3 ;;;一、利用AutoCAD的copyhist命令将命令行历史记录多行文字复制到剪贴板 4 ;;;二、获取剪贴板的内容，赋值给变量str 5 ;;;三、在字符串变量str中搜索指定子串，如"LOAD" 6 ;;;四、如果找到则清空Aut 阅读全文
posted @ 2020-03-05 20:02
insipid
阅读(1419)
评论(0)
推荐(0)
浙公网安备 33010602011771号