日志
- 置顶 ·分享 有仪CAD二次开发,插件定制.
- 淘宝: cxcad.taobao.com CAD二次开发: youyicad.com 欢迎光临我的网站和淘宝店. 联系我的QQ:775452144
- 分享 飞诗,带关键字的SSGET
- (Fsxm-ssget "选择文字 结束" "m d" '((0 . "*text"))) (vl-load-com) (setq *acad* (vlax-get-acad-object)) (setq *doc* (vla-get-ActiveDocument *acad*)) ;;带过滤器的entsel (defun Fsxm-entsel (msg filter) (setq enp (entsel msg)) (if (or (= (type enp) 'str) &nbs ...
- 分享 收集精品函数-分割字符串
- ;接CAD插件定制,QQ775452144 鱼与熊掌. ;;;用分隔符解释字符串成表(Fsxm-Split "1231 12323" " ") (defun Fsxm-Split (string strkey / po strlst xlen) (setq xlen (1+ (strlen strkey))) (while (setq po (vl-string-search strkey string)) (setq strlst (cons (substr string 1 po) ...
- 分享 DCL对话框鼠标双击添加、删除
- ;;使用样例 (action_tile "List1" "(tt22 $value)") ;;keys1 keys2 "List2" 这几个根据使用的实际对话框来改变 (defun tt22(vvs) (cond((= $reason 4) (setq keys2(sjtjdzdlbk keys1 keys2 "List2")) ) ((= $reason 1)()) );;cond ) ;;功 ...