lisp ssget 浩辰_autolisp里面ssget选择不能够有文字输入，想要用ssget选择并过滤还可以输入关键词，不知道谁有程序？...

不知道谁有程序可以给我参考一下，网上找到了一个可以输入关键词的ssget选择程序，出现了程序里面的函数有不能够使用的现象如(reverse);;颠倒列表，发现没有颠倒。(if(nullvlax-dump-...

不知道谁有程序可以给我参考一下，网上找到了一个可以输入关键词的ssget选择程序，出现了程序里面的函数有不能够使用的现象如(reverse);;颠倒列表，发现没有颠倒。

(if (null vlax-dump-object) (vl-load-com) )

(setq *acad* (vlax-get-acad-object))

(setq *doc* (vla-get-ActiveDocument *acad*))

;;;;;选择ssget带关键词的功能;;;;

;;带过滤器的entsel;子程序

(defun Fsxm-entsel (msg filter / msg filter enp)

(setq enp (entsel msg))

(if (or (= (type enp) 'str)

(and enp (ssget (cadr enp) filter))

)

enp

)

)

;;;;;;;;

;;;用分隔符解释字符串成表子程序

(defun Fsxm-Split (string strkey / po strlst string strkey xlen)

(setq xlen (1+ (strlen strkey)))

(while (setq po (vl-string-search strkey string))

(setq strlst (cons (substr string 1 po) strlst))

(setq string (substr string (+ po xlen)))

)

(reverse (cons string strlst))

)

;;点化字串

(defun Pt2Str (pt)

(strcat (rtos (car pt) 2 20)

","

(rtos (cadr pt) 2 20)

","

(rtos (caddr pt) 2 20)

"\n"

)

)

还有一段程序主程序无法写出来有字数限制：回答的时候我放上来

展开