全选,可以不选关闭和锁定的图层对象吗?

刘炎华

以下与lsp相同
************************************************************
(defun C:J (/ pick vs pc obj nam pcx pcy vs1 pt1 pt2)
        (setvar "cmdecho" 0)
        (while (not (or (= nam "LINE")(= nam "LWPOLYLINE")(= nam "ARC")))
          (setq obj (car (entsel "\n选择要编辑的非封闭实体")))
          (while (null obj)
                (setq obj (car (entsel "\n选择要编辑的非封闭实体")))
          )
          (setq nam (cdr (assoc 0 (entget obj))))
          (setq cir (cdr (assoc 70 (entget obj))))
        )
    (if (= cir 1) (prompt "\n你选择的是已经编辑好的多义线")
      (progn
        (setq ss (ssget "x"  (list (cons -4 "<or")(cons 0 "LINE")
        (cons 0 "ARC")(cons 0 "LWPOLYLINE")(cons -4 "or>"))))
        (if (or (= nam "LINE") (= nam "ARC"))
                (command "PEDIT" obj "" "j" SS "" "")
        )
        (if (or (= nam "LWPOLYLINE"))
                (command "PEDIT" obj "j" SS "" "")
        )
       )
     )
)

xvjiex

可以的更新完善了显示

gaics

2. (defun C:J (/ pick vs pc obj nam pcx pcy vs1 pt1 pt2 cir ly lys)
   
3.   (setvar "cmdecho" 0)
   
4.   ;;获取已关闭、锁定或冻结图层名
   
5.   (vl-load-com)
   
6.   (vlax-for x (vla-get-layers
   
7.                 (vla-get-activedocument (vlax-get-acad-object))
   
8.               )
   
9.     (if        (or (= (vla-get-lock x) :vlax-true)
   
10.             (= (vla-get-layeron x) :vlax-false)
    
11.             (= (vla-get-freeze x) :vlax-true)
    
12.         )
    
13.       (progn (setq ly (vla-get-name x))
    
14.              (if lys
    
15.                (setq lys (strcat ly "," lys))
    
16.                (setq lys ly)
    
17.              )
    
18.       )
    
19.     )
    
20.   )
    
21.   ;;获取已关闭、锁定或冻结图层名
    
22.   (while (not (or (= nam "LINE") (= nam "LWPOLYLINE") (= nam "ARC")))
    
23.     (setq obj (car (entsel "\n选择要编辑的非封闭实体")))
    
24.     (while (null obj)
    
25.       (setq obj (car (entsel "\n选择要编辑的非封闭实体")))
    
26.     )
    
27.     (setq nam (cdr (assoc 0 (entget obj))))
    
28.     (setq cir (cdr (assoc 70 (entget obj))))
    
29.   )
    
30.   (if (= cir 1)
    
31.     (prompt "\n你选择的是已经编辑好的多义线")
    
32.     (progn
    
33.       (setq ss (ssget "x"
    
34.                       (list (cons -4 "<or")
    
35.                             (cons 0 "LINE")
    
36.                             (cons 0 "ARC")
    
37.                             (cons 0 "LWPOLYLINE")
    
38.                             (cons -4 "or>")
    
39.                             (cons -4 "<not")
    
40.                             (cons 8 lys);;过滤已关闭、锁定或冻结图层
    
41.                             (cons -4 "not>")
    
42.                       )
    
43.                )
    
44.       )
    
45.       (if (or (= nam "LINE") (= nam "ARC"))
    
46.         (command "PEDIT" obj "" "j" SS "" "")
    
47.       )
    
48.       (if (or (= nam "LWPOLYLINE"))
    
49.         (command "PEDIT" obj "j" SS "" "")
    
50.       )
    
51.     )
    
52.   )
    
53. )

(defun C:J (/ pick vs pc obj nam pcx pcy vs1 pt1 pt2 cir ly lys)<br />   (setvar "cmdecho" 0)<br />   ;;获取已关闭、锁定或冻结图层名<br />   (vl-load-com)<br />   (vlax-for x (vla-get-layers<br />                 (vla-get-activedocument (vlax-get-acad-object))<br />               )<br />     (if        (or (= (vla-get-lock x) :vlax-true)<br />             (= (vla-get-layeron x) :vlax-false)<br />             (= (vla-get-freeze x) :vlax-true)<br />         )<br />       (progn (setq ly (vla-get-name x))<br />              (if lys<br />                (setq lys (strcat ly "," lys))<br />                (setq lys ly)<br />              )<br />       )<br />     )<br />   )<br />   ;;获取已关闭、锁定或冻结图层名<br />   (while (not (or (= nam "LINE") (= nam "LWPOLYLINE") (= nam "ARC")))<br />     (setq obj (car (entsel "\n选择要编辑的非封闭实体")))<br />     (while (null obj)<br />       (setq obj (car (entsel "\n选择要编辑的非封闭实体")))<br />     )<br />     (setq nam (cdr (assoc 0 (entget obj))))<br />     (setq cir (cdr (assoc 70 (entget obj))))<br />   )<br />   (if (= cir 1)<br />     (prompt "\n你选择的是已经编辑好的多义线")<br />     (progn<br />       (setq ss (ssget "x"<br />                       (list (cons -4 "<or")<br />                             (cons 0 "LINE")<br />                             (cons 0 "ARC")<br />                             (cons 0 "LWPOLYLINE")<br />                             (cons -4 "or>")<br />                             (cons -4 "<not")<br />                             (cons 8 lys);;过滤已关闭、锁定或冻结图层<br />                             (cons -4 "not>")<br />                       )<br />                )<br />       )<br />       (if (or (= nam "LINE") (= nam "ARC"))<br />         (command "PEDIT" obj "" "j" SS "" "")<br />       )<br />       (if (or (= nam "LWPOLYLINE"))<br />         (command "PEDIT" obj "j" SS "" "")<br />       )<br />     )<br />   )<br /> )