[编程交流] 一个简单的选择集LISP go

(command "._select" (ssget "A" '((8 . "*TRANS*"))))

(defun c:TRANS (/ sstrans)
(setq sstrans (command "._select" (ssget "A" '((8 . "*TRANS*")))))
(princ)
)

(defun c:TRANS ( / sstrans)
(setq sstrans (command "._select" (ssget "[color=red]_[/color]A" '([color=red](0 . "INSERT")[/color] (8 . "*TRANS*")))[color=red] ""[/color]))
(princ)
)

(defun c:FOO ( / ss)
 (if (setq ss (ssget "_x" ;|your filter|)
   (sssetfirst nil ss)
   (prompt "\n** Nothing selected ** "))
 (princ))

(defun SelectBlocks( / ssetBlocks )
(setq ssetBlocks (ssget "_A" '((0 . "INSERT") (8 . "*TRANS*"))))
(if ssetBlocks
 (if (= (getvar "CMDACTIVE") 0)
  (sssetfirst nil ssetBlocks)   ;return on command prompt
  ssetBlocks                    ;return on select prompt
 )
 (princ)                        ;return silent if no items to match filter
)
)

(SelectBlocks)

defun c:test (/ ss en) ;;Written by pBe in this [url="http://www.cadtutor.net/forum/showthread.php?64785-How-to-get-the-original-block-name-of-a-dynamic-block&highlight=EFFECTIVE+BLOCK"]thread[/url].
(defun _EFName (ent)
(vl-load-com)
(vla-get-effectivename (vlax-ename->vla-object ent)))
(if (setq ss (ssget '((0 . "INSERT")(2 . "ELECT_TRANSFORMR_BANK_POINT,`*U*"))))
(repeat (sslength ss)
          (setq en (ssname ss 0))
          (setq blockname (_EFName en))
          (princ "\nThe rest of your code")
          (print blockname)
          (ssdel (ssname ss 0) ss)
         )
  )(princ)
 )

(defun SelectBlocks( / ssetBlocks )  ;;by MSasu, see earlier post in this thread.
(setq ssetBlocks (ssget "_A" '((0 . "INSERT") (2 . "ELECT_TRANSFORMR_BANK_POINT,`*U*"))))
(if ssetBlocks
 (if (= (getvar "CMDACTIVE") 0)
  (sssetfirst nil ssetBlocks)   ;return on command prompt
  ssetBlocks                        ;return on select prompt
 )                                ;end if
 (princ)                                ;return silent if no items to match filter
)                                 ;end if
)                                 ;end defun

defun c:test (/ssetBlocks en) ;;I think this will only get the effective name one at a time, so I added some ideas to make the lisp go through the entire list and get the effective name of each block selected. 
(defun _EFName (ent)
(vl-load-com)
(vla-get-effectivename (vlax-ename->vla-object ent)));; I think I need to add something like this 
(setq cntr 0) (ssname ssetBlocks 0) so that the effective name lisp looks at each entity individually, but I am not sure if ssname is the correct command to use.
(if (ssetBlocks)) ;; I put the selection set variable from “selectblocks” where the selection filter used to be.
(repeat (sslength ssetBlocks)

if (setq en (ssname ssetBlocks 0)) ;;If the name of the first entity is “ELECT_TRANSFORMR_BANK_POINT” I want to keep it, otherwise I want to delete it from the selection set.
Then (ssdel  (en  /= “ELECT_TRANSFORMR_BANK_POINT”))
(setq cntr (+ cntr 1)) ;; at some point I need to add this so the lisp increments through the list created in ssetBlocks.
(setq blockname (_EFName en)) );; this line was in the original code, but I’m not sure what it does.
          (princ "\nThe rest of your code"));; this line was in the original code, but I’m not sure what it does.
          (ssdel (ssname ss 0) ss);; this line was in the original code, but I’m not sure what it does.
         )
  )(princ)
 )

11