有办法触摸bl吗

hosyn · 发表于 2022-7-5 22:42:08

有没有办法通过lisp代码或命令“相似选择”在选定的绘图区域中触摸块自动选择相似块？

pBe · 发表于 2022-7-5 23:17:36

你试过SSX吗？

hanhphuc · 发表于 2022-7-5 23:26:25

嗨，霍辛，我不知道你触摸的意思，
试试这个简单的dxf滤波器函数，
（issget e i）；参数e=参考实体&i=要过滤的dxf索引


;Single dxf index-match ssget filter 
(defun issget  (_e _id / ss i e1 e2 lst ss1 next)
 (if
 (not (setq ss (ssget)))
         (setq ss(ssget "X")))
 
 (if ss (progn
 (setq i 0)
 (repeat (sslength ss)
   (setq e1 (ssname ss i))
   (if (apply 'equal
              (foreach en  (list e1 _e )
                (setq lst (cons (mapcar '(lambda (x) (cdr (assoc x (entget en)))) (list 0 _id))
                                lst))                 ;setq
                )                                 ;foreach
              )                                 ;apply
   (setq ss1 (cons e1 ss1))
     )                                         ;if 
   (setq i  (1+ i)
         lst nil))                                ;repeat
 (setq next (ssadd))
 (foreach e2 ss1 (ssadd e2 next))                 ;foreach
 )                                                ;progn
 nil)                                                ;if
  ) ; defun

示例：只需选择单个实体，然后[输入]，或手动选择
_$（sslength（issget（car（entsel））8））；
44 ;

BIGAL · 发表于 2022-7-5 23:46:46

易于理解的

copy


(setq obj (entsel "pick block"))
(setq bname (assoc 2 (entget (car obj)))
(princ bname)
; just use bname in a ssget filter now.

[编程交流] 有办法触摸bl吗

发表回复

精选推荐