什么原因有些块选不中，懂的提教教我，谢谢。

wanchr

你选择的一个原始对象信息:
((-1 . <图元名: 20d3310c4a0>) (0 . INSERT) (330 . <图元名: 20ddec4d990>) (5 . 4599A) (100 . AcDbEntity) (67 . 0) (410 . Model) (8 . XS-5#基础$1$pile) (62 . 6) (100 . AcDbBlockReference) (2 . XS-5#基础$1$pile2) (10 -403208.0 191167.0 0.0) (41 . -1.25) (42 . 1.25) (43 . 1.25) (50 . 4.71239) (70 . 0) (71 . 0) (44 . 0.0) (45 . 0.0) (210 0.0 0.0 1.0))
默认过滤条件:
((2 . XS-5#基础$1$pile2) (0 . INSERT) (100 . AcDbEntity) (8 . XS-5#基础$1$pile))
选择对象: 找到 0 个
我选择对象本身还是没选中。问题出在哪了

wanchr

1. (defun transsfilter (str / tf);就是你的函数啊。
   
2.   (vl-list->string
   
3.     (apply 'append
   
4.       (mapcar
   
5.         (function (lambda (c)
   
6.           (if (or (> c 128) tf)
   
7.             (progn
   
8.               (if (not tf) (setq tf t) (setq tf nil))
   
9.               (list c))
   
10.             (progn
    
11.               (setq tf nil)
    
12.               (if (member c '(35 64 46 42 63 126 91 93 45 44))
    
13.                 (list 96 c)
    
14.                 (list c)))))) (vl-string->list str)))))
    
15. (defun get-entity-info()
    
16.   (setq entity-info (entget entity)) ; 获取所选对象的信息
    
17.   (princ (strcat "\n你选择的一个原始对象信息:\n" (vl-princ-to-string entity-info))) ; 显示所选对象的信息
    
18.   (princ "\n")
    
19.   (progn
    
20.     (setq aa (assoc 8 entity-info))
    
21.     (princ aa)
    
22.     (cons (car aa) (transsfilter (cdr aa)))
    
23.     (princ "\n")
    
24.     (princ aa)
    
25.     (princ "\n")
    
26.     )
    
27. (setq layer-name (cdr aa));就是用你的函数吗
    
28.   ;(setq layer-name (cdr (assoc 8 entity-info))) ; 获取所选对象的图层名
    
29.   ;(princ layer-name)
    
30.   ;(princ "\n")
    
31.   ;(setq nname (cdr (assoc 100 entity-info))) ; 获取所选对象的名称
    
32.   ;(setq entity-type (cdr (assoc 0 entity-info))) ; 获取所选对象的类型
    
33.   ;(setq bname (cdr (assoc 2 entity-info)))
    
34. )
    
35. (defun build-filter()
    
36.     (setq filter nil) ; 初始化过滤条件为空列表
    
37.   (if layer-name
    
38.     (setq filter (cons (cons 8 layer-name) filter))) ; 如果图层名存在，则将图层名添加到过滤条件中
    
39.   (if nname  
    
40.     (setq filter (cons (cons 100 nname) filter))) ; 如果名称存在，则将名称添加到过滤条件中
    
41.   (if entity-type
    
42.     (setq filter (cons (cons 0 entity-type) filter))) ; 如果类型存在，则将类型添加到过滤条件中
    
43.   (if bname
    
44.    (setq filter (cons (cons 2 bname) filter)))
    
45.   (princ (strcat "\n默认过滤条件:\n" (vl-princ-to-string filter))) ; 显示构建的过滤条件
    
46. )

(defun transsfilter (str / tf);就是你的函数啊。<br />   (vl-list->string<br />     (apply 'append<br />       (mapcar<br />         (function (lambda (c)<br />           (if (or (> c 128) tf)<br />             (progn<br />               (if (not tf) (setq tf t) (setq tf nil))<br />               (list c))<br />             (progn<br />               (setq tf nil)<br />               (if (member c '(35 64 46 42 63 126 91 93 45 44))<br />                 (list 96 c)<br />                 (list c)))))) (vl-string->list str)))))<br /> (defun get-entity-info()<br />   (setq entity-info (entget entity)) ; 获取所选对象的信息<br />   (princ (strcat "\n你选择的一个原始对象信息:\n" (vl-princ-to-string entity-info))) ; 显示所选对象的信息<br />   (princ "\n")<br />   (progn<br />     (setq aa (assoc 8 entity-info))<br />     (princ aa)<br />     (cons (car aa) (transsfilter (cdr aa)))<br />     (princ "\n")<br />     (princ aa)<br />     (princ "\n")<br />     )<br /> (setq layer-name (cdr aa));就是用你的函数吗 <br />   ;(setq layer-name (cdr (assoc 8 entity-info))) ; 获取所选对象的图层名<br />   ;(princ layer-name)<br />   ;(princ "\n")<br />   ;(setq nname (cdr (assoc 100 entity-info))) ; 获取所选对象的名称<br />   ;(setq entity-type (cdr (assoc 0 entity-info))) ; 获取所选对象的类型<br />   ;(setq bname (cdr (assoc 2 entity-info))) <br /> )<br /> (defun build-filter()<br />     (setq filter nil) ; 初始化过滤条件为空列表<br />   (if layer-name<br />     (setq filter (cons (cons 8 layer-name) filter))) ; 如果图层名存在，则将图层名添加到过滤条件中<br />   (if nname  <br />     (setq filter (cons (cons 100 nname) filter))) ; 如果名称存在，则将名称添加到过滤条件中<br />   (if entity-type<br />     (setq filter (cons (cons 0 entity-type) filter))) ; 如果类型存在，则将类型添加到过滤条件中<br />   (if bname<br />    (setq filter (cons (cons 2 bname) filter))) <br />   (princ (strcat "\n默认过滤条件:\n" (vl-princ-to-string filter))) ; 显示构建的过滤条件<br /> )

wanchr

wzg356 发表于 2023-12-14 11:02
通配符转义 ，来自晓东
;SSGET的一些字符串是统配符，比如. # , *等等
;如果要过滤的字符串中包括这些， ...

(defun get-entity-info()
  (setq entity-info (entget entity)) ; 获取所选对象的信息
  (princ (strcat "\n你选择的一个原始对象信息:\n" (vl-princ-to-string entity-info))) ; 显示所选对象的信息
  (princ "\n")
  (progn
    (setq aa (assoc 2 entity-info))
    (princ aa)
    (cons (car aa) (transsfilter (cdr aa)))
    (princ "\n")
    (princ aa)
    (princ "\n")
    )
  (setq bname (cdr aa))
结果还是选不中自身，一个条件还是选不中他，哥再帮我看一眼，
你选择的一个原始对象信息:
((-1 . <图元名: 2a4aa923d40>) (0 . INSERT) (330 . <图元名: 2a49924e990>) (5 . 459A4) (100 . AcDbEntity) (67 . 0) (410 . Model) (8 . XS-5#基础$1$pile) (62 . 6) (100 . AcDbBlockReference) (2 . XS-5#基础$1$pile2) (10 -382938.0 247912.0 0.0) (41 . -1.25) (42 . 1.25) (43 . 1.25) (50 . 4.71239) (70 . 0) (71 . 0) (44 . 0.0) (45 . 0.0) (210 0.0 0.0 1.0))
(2 . XS-5#基础$1$pile2)
(2 . XS-5#基础$1$pile2)
默认过滤条件:
((2 . XS-5#基础$1$pile2))
选择对象: 找到 0 个
选择对象: 指定对角点: 找到 0 个，总计 0 个

wzg356

通配符转义 ，来自晓东
;SSGET的一些字符串是统配符，比如. # , *等等
;如果要过滤的字符串中包括这些，会过滤不到，用下面这个函数转义下就OK 了。
;(transsfilter "*s#s")
(defun transsfilter (str / tf)
        (vl-list->string (apply 'append(mapcar(function(lambda (c)
        (if (or (> c 128) tf)
            (progn(if (not tf)(setq tf t)(setq tf nil))(list c))
            (progn (setq tf nil)
                (if (member c '(35 64 46 42 63 126 91 93 45 44))(list 96 c)(list c))
            )
        )
    ))(vl-string->list str))))
)
处理好了把它贴到你0楼去


(if (member n '(2 8 6))(progn
        (setq aa(assoc n entity-info))
        (cons (car aa)(transsfilter (cdr aa)))
))

kozmosovia

#和$是通配符，需要转写成`#和`$

wanchr

kozmosovia 发表于 2023-12-14 10:02
#和$是通配符，需要转写成`#和`$

是这个原因啊，可2，100， 0，8 是我用函数收集上面的图元信息，我要怎么改写程序呢。


(defun get-entity-info()
  (setq entity-info (entget entity)) ; 获取所选对象的信息
  (princ (strcat "\n你选择的一个原始对象信息:\n" (vl-princ-to-string entity-info))) ; 显示所选对象的信息
  (setq layer-name (cdr (assoc 8 entity-info))) ; 获取所选对象的图层名
  (setq nname (cdr (assoc 100 entity-info))) ; 获取所选对象的名称
  (setq entity-type (cdr (assoc 0 entity-info))) ; 获取所选对象的类型
  (setq bname

飞雪神光

wanchr 发表于 2023-12-14 10:24
是这个原因啊，可2，100， 0，8 是我用函数收集上面的图元信息，我要怎么改写程序呢。

和这里没关系 改ssget的过滤条件里的通配符

wanchr

(8 . XS-5#基础$1$pile) 把他改一下名是能选中的，看来就是他的问题。

wzg356

wanchr 发表于 2023-12-15 09:39
(defun get-entity-info()
  (setq entity-info (entget entity)) ; 获取所选对象的信息
  (princ (str ...

与$无关-transsfilter没处理没包含
与#相关

试过，可以选中的
你的语句也没问题
用我的那个选择工具试一试-别编辑块名

Andyhon

个人的实务经验是
Block &... 最好别用中文命名
花了很多时间才查出程序的卡点是它
也或许只是我不巧遇上踩雷而已

masterlong

这么多回复
就没人提醒一下字符串还要加双引号的么？