1 ;;;编程语言:VisualLisp2

3 ;;;name:BF-ss&Index->Obj4 ;;;desc:选择集ss中第index个图元的VLA对象名5 ;;;arg:6 ;;;ss:选择集7 ;;;index:自然数,索引,从0开始8 ;;;return:9 ;;;当index=(sslength ss)或index<0时返回nil11 ;;;example:(BF-ss&Index->Obj (ssget) 0)12 (defun BF-ss&Index->Obj(ss index)13 (cond14 ((/= (type ss) 'PICKSET);非选择集

15 nil16 )17 ((< (sslength ss) 1);空选择集18 nil19 )20 ((/= (type index) 'INT);非整数

21 nil22 )23 ((< index 0);负整数24 nil25 )26 ((>=index (sslength ss));下标越界27 nil28 )29 (T30 (vlax-ename->vla-object(ssname ss index))31 )32 )33 )34

35 ;;;name:BF-numOfSignificantDigitsAfterDecimalPoint36 ;;;desc:小数点后有效(非零)数字的位数37 ;;;arg:rNum:要检查小数点后有效(非零)数字位数的数字38 ;;;return:rNum为数字时返回有效小数位数,否则返回nil39 ;;;example:(BF-numOfSignificantDigitsAfterDecimalPoint 0.123) 返回 3

40 (defun BF-numOfSignificantDigitsAfterDecimalPoint(rNum /str pos nRetVal)41 (cond42 ((numberp rNum)43 (setq str (rtos rNum 2 16))44 (setq pos (vl-string-search "."str))45 (cond46 (pos47 (setq str (substr str (+ pos 2)));小数点以后的字符串(不含小数点)48 (setq str (vl-string-right-trim "0"str));去掉右边的数字049 (setq nRetVal (strlen str))50 )51 (T52 (setq nRetVal 0)53 )54 )55 )56 (T57 (setq nRetVal nil)58 )59 )60 nRetVal61 )62

63 ;;;name:BF-list-sort64 ;;;desc:表排序(升序,不去重)65 ;;;arg:Lst:列表66 ;;;return:排序后的表,当参数Lst为nil时返回nil67 ;;;example:(BF-list-sort '(1 2 2 3 4 2 4 5 2 6 7))->(1 2 2 2 2 3 4 4 5 6 7)68 (defun BF-list-sort(Lst / LstRetVal indexLst n)69 (setq LstRetVal nil)70 (cond71 ((not Lst)72 )73 (T74 (setq indexLst (vl-sort-i Lst '

83 ;;;name:BF-str->char&num84 ;;;desc:统计字符串中的每个字符及其出现次数85 ;;;arg:str:字符串86 ;;;return:关联表,表中的每个元素为一个含有两个元素的子表,子表中的第一个元素为字符,第二个元素为字符串str中该字符的个数;当str为空字符串""时返回nil87 ;;;example:(BF-str->char&num "helloworld你好世界")返回(("h" 1) ("e" 1) ("l" 3) ("o" 2) ("w" 1) ("r" 1) ("d" 1) ("你" 1) ("好" 1) ("世" 1) ("界" 1))88 (defun BF-str->char&num(str /lstRetVal charLst)89 (setq lstRetVal nil)90 (cond91 ((= str "")92 )93 (T94 (setq charLst (BF-str->charLst str))95 (setq lstRetVal (BF-list-item-num charLst))96 )97 )98

99 lstRetVal100 )101

102 ;;;name:BF-str->charLst103 ;;;desc:字符串转成每个字符的列表(无分隔符)104 ;;;arg:str:字符串105 ;;;return:字符列表,当str为空字符串""时返回nil106 ;;;example:(BF-str->charLst "helloworld你好世界")107 (defun BF-str->charLst(str /lstRetVal n i char)108 (setq lstRetVal nil)109 (cond110 ((= str "")111 )112 (T113 (setq n (strlen str) i 0)114 (while ( (strlen (substr str (1+ i))) 1)121 (setq char (substr str (1+ i) 2))122 (setq lstRetVal (append lstRetVal (list char)))123 (setq i (1+i))124 )125 (T126 (princ "\n****{Error}-")127 (exit)128 )129 )130 (setq i (1+i))131 )132 )133 )134

135 lstRetVal136 )137

138 ;;;name:BF-Str-PatternNum139 ;;;desc:字符串string中指定子字符串pattern的个数140 ;;;arg:pattern:要统计其个数的子串141 ;;;arg:string:字符串,在其中搜索pattern并计数142 ;;;return:字符串string中,子串pattern的个数143 ;;;example:(BF-Str-PatternNum "l" "helloworld")144 (defun BF-Str-PatternNum(pattern string /k)145 (setq k 0)146 (while (vl-string-search pattern string)147 (setq k (1+k))148 (setq string (vl-string-subst ""pattern string))149 )150 k151 )152

153 ;;;这个函数是别人写的,我在自定义函数BF-str->char&num中引用了这个函数154 ;;;https://gitee.com/vicwjb/abfl/blob/master/list-utils.lsp

155 ;;;name:BF-list-item-num156 ;;;desc:表中元素及数量157 ;;;arg:lst:列表158 ;;;return:元素及数量组成的表159 ;;;example:(BF-list-item-num '(1 2 2 3 4 2 4 5 2 6 7))->((7 1) (6 1) (5 1) (4 2) (3 1) (2 4) (1 1))160 (defun BF-list-item-num(lst / l2 tmp tmp1)161 (while162 (setq l2163 (cons164 (list165 (setq tmp1 (car lst))166 (- (length lst) (length (setq tmp (vl-remove tmp1 lst)))))167 l2)168 lst tmp169 )170 )171 (reverse l2)172 )