[LISP函数]：怎样将ssx改用于选择范围,而不一定是全图

ydf7332462 · 发表于 2002-12-12 22:06:26

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

怎样将ssx改用于选择范围,而不一定是全图

XDSoft · 发表于 2002-12-12 22:12:35

最初由 ydf7332462 发布
[B]怎样将ssx改用于选择范围,而不一定是全图 [/B]

SSX是什么？问的不明白:c

如果是一个LISP程序，把程序贴到论坛来吧。

ydf7332462 · 发表于 2002-12-13 21:27:09

是acad的一个lisp编的命令,很管用
可只对全图(非LOCK LAYER)

XDSoft · 发表于 2002-12-14 00:03:13

最初由 ydf7332462 发布
[B]是acad的一个lisp编的命令,很管用
可只对全图(非LOCK LAYER) [/B]

你不贴程序代码上来，大家怎么帮你分析呢？

wwwchard · 发表于 2002-12-14 05:52:24

哈哈，只有这位先生自己心里明白什么回事，就认为大家都明白。
猜上一猜，好象是选择过滤，他说的全部可能在程序中是ssget "x" 的意思，如果如此，找出那个程序，将ssget中的 "x" 去掉即可，那样就成为你要说的不是全图的选择了。

ydf7332462 · 发表于 2002-12-16 21:48:34

r14起ssx就是一条很好用的命令--Lisp program.象是在bonus中,这么好用program各位未受益?
我意说:怎么在框选范围过滤出选择的块等,当然用ssx的Lisp program修改可以呀

梦断江南 · 发表于 2002-12-16 23:40:03

我没注意有这个东东,不过这么简单的问题,我来回答你吧
(setq ss (ssget '((0 . "insert"))))
另外用cad的快速过虑(quickselect) 也可做到.

caibaobao · 发表于 2002-12-19 18:39:05

ssx.lsp，使用的时候要这样键入（ssx）
是一个比较实用的选择工具，好像在R14的BONUS以及R2000的EXPRESS中都有（其实，在ACAD386即R10版本时就有她的身影）。问题就在它是在全局范围内进行选择。

caibaobao · 发表于 2002-12-19 18:44:00

看上图的命令行，可根据颜色、块名、图层、字形等不分种族部分肤色地选取实体。
下面是R14\BONUS下的文件（附件中是R2000\EXPRESS中的同名文件）

;;; ssx.lsp
;;;
;;; Permission to use, copy, modify, and distribute this software and its
;;; documentation for any purpose and without fee is hereby granted.
;;;
;;; THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED WARRANTY.
;;; ALL IMPLIED WARRANTIES OF FITNESS FOR ANY PARTICULAR PURPOSE AND OF
;;; MERCHANTABILITY ARE HEREBY DISCLAIMED.
;;;
;;; Larry Knott Version 2.0 7/18/88
;;; Carl Bethea & Jan S. Yoder Version 3.0
;;; Enhancements to (ssx).
;;; 15 March 1990
;;;
;;;--------------------------------------------------------------------------;
;;; DESCRIPTION
;;; SSX.LSP
;;;
;;; "(SSX)" - Easy SSGET filter routine.
;;;
;;; Creates a selection set. Either type "SSX" at the "Command:" prompt
;;; to create a "previous" selection set or type "(SSX)" in response to
;;; any "Select objects:" prompt. You may use the functions "(A)" to add
;;; entities and "(R)" to remove entities from a selection set during
;;; object selection. More than one filter criteria can be used at a
;;; time.
;;;
;;; SSX returns a selection set either exactly like a selected
;;; entity or, by adjusting the filter list, similar to it.
;;;
;;; The initial prompt is this:
;;;
;;; Command: ssx
;;; Select object/<None>: (RETURN)
;;; >>Block name/Color/Entity/Flag/LAyer/LType/Pick/Style/Thickness/Vector:
;;;
;;; Pressing RETURN at the initial prompt gives you a null selection
;;; mechanism just as (ssx) did in Release 10, but you may select an
;;; entity if you desire. If you do so, then the list of valid types
;;; allowed by (ssget "x") are presented on the command line.
;;;
;;; Select object/<None>: (a LINE selected)
;;; Filter: ((0 . "LINE") (8 . "0") (39 . 2.0) (62 . 1) (210 0.0 0.0 1.0))
;;; >>Block name/Color/Entity/Flag/LAyer/LType/Pick/Style/Thickness/Vector:
;;;
;;; At this point any of these filters may be removed by selecting the
;;; option keyword, then pressing RETURN.
;;;
;;; >>Layer name to add/<RETURN to remove>: (RETURN)
;;;
;;; Filter: ((0 . "LINE") (39 . 2.0) (62 . 1) (210 0.0 0.0 1.0))
;;; >>Block name/Color/Entity/Flag/LAyer/LType/Pick/Style/Thickness/Vector:
;;;
;;; If an item exists in the filter list and you elect to add a new item,
;;; the old value is overwritten by the new value, as you can have only
;;; one of each type in a single (ssget "x") call.
;;;
;;;--------------------------------------------------------------------------;
;;;
;;; Find the dotted pairs that are valid filters for ssget
;;; in entity named "ent".
;;;
;;; ssx_fe == SSX_Find_Entity
;;;
(defun ssx_fe (/ x data fltr ent)
(setq ent (car (entsel "\nSelect object/<None>: ")))
(if ent
(progn
(setq data (entget ent))
(foreach x '(0 2 6 7 8 39 62 66 210) ; do not include 38
(if (assoc x data)
(setq fltr
(cons (assoc x data) fltr)
)
)
)
(reverse fltr)
)
)
)
;;;
;;; Remove "element" from "alist".
;;;
;;; ssx_re == SSX_Remove_Element
;;;
(defun ssx_re (element alist)
(append
(reverse (cdr (member element (reverse alist))))
(cdr (member element alist))
)
)
;;;
;;; INTERNAL ERROR HANDLER
;;;
(defun ssx_er (s) ; If an error (such as CTRL-C) occurs
; while this command is active...
(if (/= s "Function cancelled")
(princ (strcat "\nError: " s))
)
(if olderr (setq *error* olderr)) ; Restore old *error* handler
(princ)
)
;;;
;;; Get the filtered sel-set.
;;;
;;;
(defun ssx (/ olderr)
(gc) ; close any sel-sets
(setq olderr *error*
*error* ssx_er
)
(setq fltr (ssx_fe))
(ssx_gf fltr)
)
;;;
;;; Build the filter list up by picking, selecting an item to add,
;;; or remove an item from the list by selecting it and pressing RETURN.
;;;
;;; ssx_gf == SSX_Get_Filters
;;;
(defun ssx_gf (f1 / t1 t2 t3 f1 f2)
(while
(progn
(cond (f1 (prompt "\nFilter: ") (prin1 f1)))
(initget
"Block Color Entity Flag LAyer LType Pick Style Thickness Vector")
(setq t1 (getkword (strcat
"\n>>Block name/Color/Entity/Flag/"
"LAyer/LType/Pick/Style/Thickness/Vector: ")))
)
(setq t2
(cond
((eq t1 "Block") 2) ((eq t1 "Color") 62)
((eq t1 "Entity") 0) ((eq t1 "LAyer") 8)
((eq t1 "LType") 6) ((eq t1 "Style") 7)
((eq t1 "Thickness") 39) ((eq t1 "Flag" ) 66)
((eq t1 "Vector") 210)
(T t1)
)
)
(setq t3
(cond
((= t2 2) (getstring "\n>>Block name to add/<RETURN to remove>: "))
((= t2 62) (initget 4 "?")
(cond
((or (eq (setq t3 (getint
"\n>>Color number to add/?/<RETURN to remove>: ")) "?")
(> t3 256))
(ssx_pc) ; Print color values.
nil
)
(T
t3 ; Return t3.
)
)
)
((= t2 0) (getstring "\n>>Entity type to add/<RETURN to remove>: "))
((= t2 8) (getstring "\n>>Layer name to add/<RETURN to remove>: "))
((= t2 6) (getstring "\n>>Linetype name to add/<RETURN to remove>: "))
((= t2 7)
(getstring "\n>>Text style name to add/<RETURN to remove>: ")
)
((= t2 39) (getreal "\n>>Thickness to add/<RETURN to remove>: "))
((= t2 66) (if (assoc 66 f1) nil 1))
((= t2 210)
(getpoint "\n>>Extrusion Vector to add/<RETURN to remove>: ")
)
(T nil)
)
)
(cond
((= t2 "Pick") (setq f1 (ssx_fe) t2 nil)) ; get entity
((and f1 (assoc t2 f1)) ; already in the list
(if (and t3 (/= t3 ""))
;; Replace with a new value...
(setq f1 (subst (cons t2 t3) (assoc t2 f1) f1))
;; Remove it from filter list...
(setq f1 (ssx_re (assoc t2 f1) f1))
)
)
((and t3 (/= t3 ""))
(setq f1 (cons (cons t2 t3) f1))
)
(T nil)
)
)
(if f1 (setq f2 (ssget "x" f1)))
(setq *error* olderr)
(if (and f1 f2)
(progn
(princ (strcat "\n" (itoa (sslength f2)) " found. "))
f2
)
(progn (princ "\n0 found.") (prin1))
)
)
;;;
;;; Print the standard color assignments.
;;;
;;;
(defun ssx_pc ()
(if textpage (textpage) (textscr))
(princ "\n ")
(princ "\n Color number | Standard meaning ")
(princ "\n ________________|____________________")
(princ "\n | ")
(princ "\n 0 | <BYBLOCK> ")
(princ "\n 1 | Red ")
(princ "\n 2 | Yellow ")
(princ "\n 3 | Green ")
(princ "\n 4 | Cyan ")
(princ "\n 5 | Blue ")
(princ "\n 6 | Magenta ")
(princ "\n 7 | White ")
(princ "\n 8...255 | -Varies- ")
(princ "\n 256 | <BYLAYER> ")
(princ "\n \n\n\n")
)
;;;
;;; C: function definition.
;;;
(defun c:ssx () (ssx)(princ))
(princ "\n\tType "ssx" at a Command: prompt or ")
(princ "\n\t(ssx) at any object selection prompt. ")
(princ)

;;;   ssx.lsp 
;;;   Copyright (C) 1990 by Autodesk, Inc. 
;;;   
;;;   Permission to use, copy, modify, and distribute this software and its 
;;;   documentation for any purpose and without fee is hereby granted.   
;;; 
;;;   THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED WARRANTY. 
;;;   ALL IMPLIED WARRANTIES OF FITNESS FOR ANY PARTICULAR PURPOSE AND OF 
;;;   MERCHANTABILITY ARE HEREBY DISCLAIMED. 
;;; 
;;;   Larry Knott                        Version 2.0    7/18/88   
;;;   Carl Bethea & Jan S. Yoder         Version 3.0 
;;;   Enhancements to (ssx). 
;;;   15 March 1990   
;;; 
;;;--------------------------------------------------------------------------; 
;;; DESCRIPTION 
;;;                              SSX.LSP                                     
;;;                                                                           
;;;   "(SSX)" -  Easy SSGET filter routine.                                     
;;;                                                                            
;;;   Creates a selection set.  Either type "SSX" at the "Command:" prompt    
;;;   to create a "previous" selection set or type "(SSX)" in response to 
;;;   any "Select objects:" prompt.  You may use the functions "(A)" to add 
;;;   entities and "(R)" to remove entities from a selection set during 
;;;   object selection.  More than one filter criteria can be used at a 
;;;   time.          
;;;                                                                           
;;;   SSX returns a selection set either exactly like a selected 
;;;   entity or, by adjusting the filter list, similar to it. 
;;; 
;;;   The initial prompt is this: 
;;;    
;;;     Command: ssx 
;;;     Select object/<None>: (RETURN) 
;;;     >>Block name/Color/Entity/Flag/LAyer/LType/Pick/Style/Thickness/Vector: 
;;;    
;;;   Pressing RETURN at the initial prompt gives you a null selection 
;;;   mechanism just as (ssx) did in Release 10, but you may select an 
;;;   entity if you desire.  If you do so, then the list of valid types 
;;;   allowed by (ssget "x") are presented on the command line. 
;;;    
;;;     Select object/<None>:  (a LINE selected) 
;;;     Filter: ((0 . "LINE") (8 . "0") (39 . 2.0) (62 . 1) (210 0.0 0.0 1.0)) 
;;;     >>Block name/Color/Entity/Flag/LAyer/LType/Pick/Style/Thickness/Vector: 
;;;    
;;;   At this point any of these filters may be removed by selecting the 
;;;   option keyword, then pressing RETURN. 
;;;    
;;;     >>Layer name to add/<RETURN to remove>: (RETURN) 
;;;          
;;;     Filter: ((0 . "LINE") (39 . 2.0) (62 . 1) (210 0.0 0.0 1.0)) 
;;;     >>Block name/Color/Entity/Flag/LAyer/LType/Pick/Style/Thickness/Vector: 
;;;    
;;;   If an item exists in the filter list and you elect to add a new item, 
;;;   the old value is overwritten by the new value, as you can have only 
;;;   one of each type in a single (ssget "x") call. 
;;; 
;;;--------------------------------------------------------------------------; 
;;; 
;;; Find the dotted pairs that are valid filters for ssget 
;;; in entity named "ent". 
;;; 
;;; ssx_fe == SSX_Find_Entity 
;;; 
(defun ssx_fe (/ x data fltr ent) 
  (setq ent (car (entsel "\nSelect object/<None>: "))) 
  (if ent 
    (progn 
      (setq data (entget ent)) 
      (foreach x '(0 2 6 7 8 39 62 66 210) ; do not include 38 
        (if (assoc x data) 
          (setq fltr 
            (cons (assoc x data) fltr) 
          ) 
        ) 
      )    
      (reverse fltr) 
    ) 
  ) 
) 
;;; 
;;; Remove "element" from "alist". 
;;; 
;;; ssx_re == SSX_Remove_Element 
;;; 
(defun ssx_re (element alist) 
  (append 
    (reverse (cdr (member element (reverse alist)))) 
    (cdr (member element alist))    
  ) 
) 
;;; 
;;; INTERNAL ERROR HANDLER 
;;; 
(defun ssx_er (s)                     ; If an error (such as CTRL-C) occurs 
                                      ; while this command is active... 
  (if (/= s "Function cancelled") 
    (princ (strcat "\nError: " s)) 
  ) 
  (if olderr (setq *error* olderr))   ; Restore old *error* handler 
  (princ) 
) 
;;;    
;;; Get the filtered sel-set. 
;;; 
;;; 
(defun ssx (/ olderr) 
  (gc)                                ; close any sel-sets             
  (setq olderr *error* 
        *error* ssx_er 
  ) 
  (setq fltr (ssx_fe)) 
  (ssx_gf fltr) 
) 
;;; 
;;; Build the filter list up by picking, selecting an item to add, 
;;; or remove an item from the list by selecting it and pressing RETURN. 
;;; 
;;; ssx_gf == SSX_Get_Filters 
;;; 
(defun ssx_gf (f1 / t1 t2 t3 f1 f2) 
  (while 
    (progn 
      (cond (f1 (prompt "\nFilter: ") (prin1 f1))) 
      (initget 
        "Block Color Entity Flag LAyer LType Pick Style Thickness Vector") 
      (setq t1 (getkword (strcat 
        "\n>>Block name/Color/Entity/Flag/" 
        "LAyer/LType/Pick/Style/Thickness/Vector: "))) 
    ) 
    (setq t2 
      (cond 
        ((eq t1 "Block")      2)   ((eq t1 "Color")     62) 
        ((eq t1 "Entity")     0)   ((eq t1 "LAyer")      8) 
        ((eq t1 "LType")      6)   ((eq t1 "Style")      7) 
        ((eq t1 "Thickness") 39)   ((eq t1 "Flag" )     66) 
        ((eq t1 "Vector")   210) 
        (T t1) 
      ) 
    ) 
    (setq t3 
      (cond 
        ((= t2  2)  (getstring "\n>>Block name to add/<RETURN to remove>: ")) 
        ((= t2 62)  (initget 4 "?") 
          (cond 
            ((or (eq (setq t3 (getint 
              "\n>>Color number to add/?/<RETURN to remove>: ")) "?") 
              (> t3 256)) 
              (ssx_pc)                ; Print color values. 
              nil 
            ) 
            (T 
              t3                      ; Return t3. 
            ) 
          ) 
        ) 
        ((= t2  0) (getstring "\n>>Entity type to add/<RETURN to remove>: ")) 
        ((= t2  8) (getstring "\n>>Layer name to add/<RETURN to remove>: ")) 
        ((= t2  6) (getstring "\n>>Linetype name to add/<RETURN to remove>: ")) 
        ((= t2  7) 
          (getstring "\n>>Text style name to add/<RETURN to remove>: ") 
        ) 
        ((= t2 39)  (getreal   "\n>>Thickness to add/<RETURN to remove>: ")) 
        ((= t2 66)  (if (assoc 66 f1) nil 1)) 
        ((= t2 210) 
          (getpoint  "\n>>Extrusion Vector to add/<RETURN to remove>: ") 
        ) 
        (T          nil) 
      ) 
    ) 
    (cond 
      ((= t2 "Pick") (setq f1 (ssx_fe) t2 nil)) ; get entity 
      ((and f1 (assoc t2 f1))         ; already in the list 
        (if (and t3 (/= t3 "")) 
          ;; Replace with a new value...             
          (setq f1 (subst (cons t2 t3) (assoc t2 f1) f1)) 
          ;; Remove it from filter list... 
          (setq f1 (ssx_re (assoc t2 f1) f1)) 
        )   
      ) 
      ((and t3 (/= t3 "")) 
        (setq f1 (cons (cons t2 t3) f1)) 
      ) 
      (T nil) 
    ) 
  ) 
  (if f1 (setq f2 (ssget "x" f1))) 
  (setq *error* olderr) 
  (if (and f1 f2) 
    (progn 
      (princ (strcat "\n" (itoa (sslength f2)) " found. ")) 
      f2 
    ) 
    (progn (princ "\n0 found.") (prin1)) 
  ) 
) 
;;; 
;;; Print the standard color assignments. 
;;; 
;;; 
(defun ssx_pc () 
  (if textpage (textpage) (textscr)) 
  (princ "\n                                                     ") 
  (princ "\n                 Color number   |   Standard meaning ") 
  (princ "\n                ________________|____________________") 
  (princ "\n                                |                    ") 
  (princ "\n                       0        |      <BYBLOCK>     ") 
  (princ "\n                       1        |      Red           ") 
  (princ "\n                       2        |      Yellow        ") 
  (princ "\n                       3        |      Green         ") 
  (princ "\n                       4        |      Cyan          ") 
  (princ "\n                       5        |      Blue          ") 
  (princ "\n                       6        |      Magenta       ") 
  (princ "\n                       7        |      White         ") 
  (princ "\n                    8...255     |      -Varies-      ") 
  (princ "\n                      256       |      <BYLAYER>     ") 
  (princ "\n                                               \n\n\n") 
) 
;;; 
;;; C: function definition. 
;;; 
(defun c:ssx () (ssx)(princ)) 
(princ "\n\tType "ssx" at a Command: prompt or ") 
(princ "\n\t(ssx) at any object selection prompt. ") 
(princ)

eachy · 发表于 2002-12-20 15:48:54

如5楼所说，去掉

(if f1
(setq f2 (ssget[color=blue] "x" [/color]f1))
)

中的 "x" 就可以实现按需选择。

账号		自动登录	找回密码
密码			立即注册

[LISP函数]：怎样将ssx改用于选择范围,而不一定是全图

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

Re: [LISP函数]：怎样将ssx改用于选择范围,而不一定是全图