日志
Lisp|
- 分享 一句话标注恢复原值
- (vla-eval (vlax-get-acad-object) "For each obj In Thisdrawing.activeselectionset:Obj.TextOverride = \"\":Next" )
- 分享 选择集曲线断开程序详解
- 选择集曲线断开程序详解 目的：对所选择的曲线实体在交点处均断开。 与此相关帖子 1 http://www.xdcad.net/forum/showthre...6060#post836060 2 http://www.xdcad.net/forum/showthre...3657#post833657 3 http://www.xdcad.net/forum/showthre...0472#post860472 4 htt ...
- 分享 正则表达式
- 正则表达式学习笔记 正则表达式(regular expression)描述了一种字符串匹配的模式，可以用来检查一个串是否含有某种子串、将匹配的子串做替换或者从某个串中取出符合某个条件的子串等。 列目录时， dir *.txt或ls *.txt中的*.txt就 不 是一个正则表达式,因为这里*与正则式的*的含义是不同的。 为 ...
- 分享 收集一些常用的正则表达式
- 作者：阿赖 （Email: A at Lai.com.cn 主页： http://www.9499.net Blog: http://blog.csdn.net/laily/ ） 关键字：正则表达式 模式匹配 Javascript 摘要：收集一些常用的正则表达式。 正则表达式用于字符串处理，表单验证等场合，实用高效，但用到时总是不太把握，以致往往要上网查一番 ...
- 分享 将文字按要求排序号
- ;| 调用格式: (ea:sort_entity entity_list mode key vx) 参数说明: 1 mode 0 按行 1 按列 2 key (mod = 0) (mod = 1) 1 Y降X升 X升Y降 (左上至右下) 2 Y降X降 X降Y降 (右上至左下) 3 Y升X降 X降Y升 (右下至 ...
- 分享 实体排序示例
- (defun ea:Clearcset (/ cset) (if (not (vl-catch-all-error-p (setq cset (vl-catch-all-apply 'vla-item (list (vlax-get-property (vlax-get-property (vlax-get-acad-object) 'activedocument ) 'selectionsets ) "CURRENT" ...
- 分享 Lisp中关键字的“一触即发”
- 讨论帖地址 http://www.xdcad.net/forum/showthread.php?s=threadid=263310 写的非常简单，目的是写出一个格式 ;;一触即发功能简单演示 (defun c:test (/ tf tf1 p1 p2 mod) (setq tf t) (while tf (if (not tf1) (princ "\n : ") ) (setq mod (grread nil 10 0)) (cond ...
- 分享 修剪穿过 Circle 和 text 的线
- ;;http://www.xdcad.net/forum/showthread.php?s=threadid=562316 (defun c:tt (/ ss ssl i obj p1 p2 s1 sl m l ipts pts p) (princ "\nselect circle text ....") (if (setq ss (ssget '((0 . "circle,text")))) (progn (if ( (getvar "osmode") 13684) (setvar "os ...
- 分享 收藏: 一种"解密'Dwglock的方法
- ;;http://www.xdcad.net/forum/showthread.php?s=threadid=229597perpage ...
- 分享 加载菜单时自动添加菜单所在的路径
- PHP代码: ( defun Ea : Addsupport (/ getactiveprofile mnus name n m path mnupath ) ( defun getActiveProfile () ( strcat "HKEY_CURRENT_USER\" ...
