简约而不简单

无痕

再来个vl的

2. ;(str2lst str) 将输入的数据转换为字符串列表.v1b-----------------梁雄啸.2004.3
3. ;测试:   (str2lst   "Hello 2World 12 5456.1568")   -> ("Hello" "2World" "12" "5456.1568")
4. ;版权所有，盗用必究！如在程序中引用，请保留文字信息行.
5. (defun str2lst (str /)
6.    (read(vl-list->string
7.    (apply 'append(mapcar '(lambda (x)(if (= 32 x) (list 34 32 34) (list x)))(append (list 40 34)(vl-string->list str)(list 34 41))))
8.    )       )
9. )

;(str2lst str) 将输入的数据转换为字符串列表.v1b-----------------梁雄啸.2004.3 ;测试:   (str2lst   "Hello 2World 12 5456.1568")   -> ("Hello" "2World" "12" "5456.1568") ;版权所有，盗用必究！如在程序中引用，请保留文字信息行. (defun str2lst (str /)    (read(vl-list->string    (apply 'append(mapcar '(lambda (x)(if (= 32 x) (list 34 32 34) (list x)))(append (list 40 34)(vl-string->list str)(list 34 41))))    )       ) )

王咣生

按 X, Y, Z 排序坐标表(AutoLISP, VisualLISP解决方案):

1) 用AutoLISP实现的代码:

2) 用VisualLISP(vl-sort函数)实现的代码:

王咣生

无痕, 专家, 谢谢支持!

无痕

转贴一个秋枫的点表按照xyz排序的程序

2. Sort_and_Write_pList :见附件
3. (defun Sort_and_Write_pList (fname plist / fp pt)
4.    ;; sort plist first
5.    (setq plist (vl-sort plist
6.                  '(lambda (p1 p2)
7.          (cond ((< (car p1) (car p2)) T)
8.        ((and (= (car p1) (car p2))
9.                    (< (cadr p1) (cadr p2))
10.          )
11.          T
12.        )
13.        ((and (= (car p1) (car p2))
14.                    (= (cadr p1) (cadr p2))
15.                    (< (caddr p1) (caddr p2))
16.          )
17.          T
18.        )
19.        (T nil)
20.          )
21.      )
22.              )
23.    )

Sort_and_Write_pList :见附件 (defun Sort_and_Write_pList (fname plist / fp pt)    ;; sort plist first    (setq plist (vl-sort plist                  '(lambda (p1 p2)          (cond ((< (car p1) (car p2)) T)        ((and (= (car p1) (car p2))                    (< (cadr p1) (cadr p2))          )          T        )        ((and (= (car p1) (car p2))                    (= (cadr p1) (cadr p2))                    (< (caddr p1) (caddr p2))          )          T        )        (T nil)          )      )              )    )

无痕

再来一个，更简洁的通用程序，有人顶么？有人顶再贴：）

王咣生

别这样吗,贴出来吧!

无痕

我不喜欢唱独角戏，让我换个思路再想想，争取用别的方法再写一个出来

王咣生

我们期待着...

无痕

vl-remove   的纯lsp写法

2. ;| (x:removeat at lst ) = 表剔除元素;-------------无痕.2004.1
3. ;提示;  等同于: (vl-remove   element-to-remove   list)
4.   (x:removeat "a" '(58 3 (a . 8) "a" 4.5)) -> (58 3 (A . 8) 4.5)
5. |;
6. (defun x:removeat (at lst) ;at=atom
7.    (apply 'append (subst nil (list at) (mapcar 'list lst)))
8. )

;| (x:removeat at lst ) = 表剔除元素;-------------无痕.2004.1 ;提示;  等同于: (vl-remove   element-to-remove   list)   (x:removeat "a" '(58 3 (a . 8) "a" 4.5)) -> (58 3 (A . 8) 4.5) |; (defun x:removeat (at lst) ;at=atom    (apply 'append (subst nil (list at) (mapcar 'list lst))) )

xex   炸开嵌套块.

2.   ;xex = 炸开嵌套块.-----by 无痕.2004.4
3. (defun c:xex ()
4.    (princ "\n炸开嵌套块.--------------by 无痕.2004.4")
5.    (setvar "qaflags" 1)
6.    (setq ss (ssget '((0 . "INSERT"))))
7.    (while (setq ss (ssget "P" '((0 . "INSERT"))))
8.        (command ".explode" ss "")
9.    )(princ)
10. )

  ;xex = 炸开嵌套块.-----by 无痕.2004.4 (defun c:xex ()    (princ "\n炸开嵌套块.--------------by 无痕.2004.4")    (setvar "qaflags" 1)    (setq ss (ssget '((0 . "INSERT"))))    (while (setq ss (ssget "P" '((0 . "INSERT"))))        (command ".explode" ss "")    )(princ) )

yybu

无痕兄真了不起！佩服ing!