怎么加代码默认选中层

abc498091367

下面代码，怎么才能让它默认选中“2层3层4层”3个层，默认选中它，现在功能是每次使用都要去框选。

2. (defun C:DB (/ ss PL NPL R D STARTPT DIST REMAIN N I PT PT2 PT3 OS E EE)
   
3.   (setq OS (GETVAR "osmode"))
   
4.   (SETVAR "cmdecho" 0)
   
5.   (if (not (tblsearch "layer" "db"))
   
6.     (command "layer" "n" "db" "c" "232" "db" ""))
   
7.   (command "layer" "s" "db" "")
   
8. 
   
9.   (command "_.undo")
   
10.   (command "be")
    
11.   (SETVAR "osmode" 0)  
    
12.   (setq R 0.5)
    
13.   (setq D 3.0)
    
14.   (setq PL nil)
    
15.   (setq PT3 nil)
    
16.   (if(setq ss(ssget '((0 . "*line,arc,ellipse,circle"))))
    
17.     (progn
    
18.       (princ "\n正在生成圆,请稍后!\n")
    
19.   (while (setq pl(ssname ss 0))  
    
20.   (setq STARTPT (vlax-curve-getStartPoint PL))
    
21.   (setq DIST (vlax-curve-getDistAtParam PL (vlax-curve-getEndParam PL)))
    
22.   (setq REMAIN (REM DIST D))
    
23.   (setq N (FIX (/ DIST D)))
    
24.   (if (> REMAIN 10.0)
    
25.     (setq N (1+ N))
    
26.   )
    
27.   (setq I 0)
    
28.   (repeat N
    
29.     (setq PT (vlax-curve-getPointAtDist PL (* I D)))
    
30.     (setq PT2 (vlax-curve-getClosestPointTo PL PT))
    
31.     (setq PT (MAPCAR '(LAMBDA (E1 E2) (/ (+ E1 E2) 2.0)) PT PT2))
    
32.     (command "_.circle")
    
33.     (command PT)
    
34.     (command R)
    
35.     (setq I (1+ I))
    
36.   )
    
37.     (setq ss(ssdel pl ss))
    
38.     )
    
39.       (princ "\n圆生成完成，欢迎使用!")
    
40.       )
    
41.     )
    
42.   (SETVAR "osmode" OS)
    
43.   (command "_.undo")
    
44.   (command "e")
    
45.   (PRINC)
    
46. )
    

(defun C:DB (/ ss PL NPL R D STARTPT DIST REMAIN N I PT PT2 PT3 OS E EE)<br />   (setq OS (GETVAR "osmode"))<br />   (SETVAR "cmdecho" 0)<br />   (if (not (tblsearch "layer" "db")) <br />     (command "layer" "n" "db" "c" "232" "db" ""))<br />   (command "layer" "s" "db" "")<br /> <br />   (command "_.undo")<br />   (command "be")<br />   (SETVAR "osmode" 0)  <br />   (setq R 0.5)<br />   (setq D 3.0)<br />   (setq PL nil)<br />   (setq PT3 nil)<br />   (if(setq ss(ssget '((0 . "*line,arc,ellipse,circle"))))<br />     (progn<br />       (princ "\n正在生成圆,请稍后!\n")<br />   (while (setq pl(ssname ss 0))  <br />   (setq STARTPT (vlax-curve-getStartPoint PL))<br />   (setq DIST (vlax-curve-getDistAtParam PL (vlax-curve-getEndParam PL)))<br />   (setq REMAIN (REM DIST D))<br />   (setq N (FIX (/ DIST D)))<br />   (if (> REMAIN 10.0)<br />     (setq N (1+ N))<br />   )<br />   (setq I 0)<br />   (repeat N<br />     (setq PT (vlax-curve-getPointAtDist PL (* I D)))<br />     (setq PT2 (vlax-curve-getClosestPointTo PL PT))<br />     (setq PT (MAPCAR '(LAMBDA (E1 E2) (/ (+ E1 E2) 2.0)) PT PT2))<br />     (command "_.circle")<br />     (command PT)<br />     (command R)<br />     (setq I (1+ I))<br />   )<br />     (setq ss(ssdel pl ss))<br />     )<br />       (princ "\n圆生成完成，欢迎使用!")<br />       )<br />     )<br />   (SETVAR "osmode" OS)<br />   (command "_.undo")<br />   (command "e")<br />   (PRINC)<br /> )<br />

dwp@hamco

ssget "x" '((0 . "*line,arc,ellipse,circle")(8 .  "2层, 3层, 4层"))

abc498091367

dwp@hamco 发表于 2014-11-11 10:12
ssget "x" '((0 . "*line,arc,ellipse,circle")(8 .  "2层, 3层, 4层"))

非常感谢！