求框选图元，根据图元类型进入不同图层

ZZXXQQ

2. ;图元归层 明经 ZZXXQQ 2013.5.20 改
   
3. (defun c:ly ()
   
4. (setvar "CMDECHO" 0)
   
5. (if (and (princ "\n选择图元: ")
   
6.           (setq ss (ssget '((0 . "CIRCLE,LINE,*POLYLINE,DIMENDION,*TEXT,INSERT"))))
   
7.           (setq wei (getstring "\n层名尾号: "))) (progn
   
8.   (if (setq ss1 (ssget "P" '((0 . "CIRCLE"))))
   
9.    (command "_.CHPROP" ss1 "" "LA" (strcat "立管层" wei) "")
   
10.   )
    
11.   (command "_.SELECT" ss "R" ss1 "")
    
12.   (if (setq ss1 (ssget "P" '((0 . "LINE"))))
    
13.    (command "_.CHPROP" ss1 "" "LA" (strcat "管道层" wei) "")
    
14.   )
    
15.   (command "_.SELECT" ss "R" ss1 "")
    
16.   (if (setq ss1 (ssget "P" '((0 . "*POLYLINE,DIMENSION,*TEXT"))))
    
17.    (command "_.CHPROP" ss1 "" "LA" (strcat "标注层" wei) "")
    
18.   )
    
19.   (command "_.SELECT" ss "R" ss1 "")
    
20.   (if (setq ss1 (ssget "P" '((0 . "INSERT"))))
    
21.    (command "_.CHPROP" ss1 "" "LA" (strcat "图块层" wei) "")
    
22.   )
    
23. ))
    
24. (setvar "CMDECHO" 1)
    
25. (princ)
    
26. )
    

;图元归层 明经 ZZXXQQ 2013.5.20 改<br /> (defun c:ly ()<br /> (setvar "CMDECHO" 0)<br /> (if (and (princ "\n选择图元: ")<br />           (setq ss (ssget '((0 . "CIRCLE,LINE,*POLYLINE,DIMENDION,*TEXT,INSERT"))))<br />           (setq wei (getstring "\n层名尾号: "))) (progn<br />   (if (setq ss1 (ssget "P" '((0 . "CIRCLE"))))<br />    (command "_.CHPROP" ss1 "" "LA" (strcat "立管层" wei) "")<br />   )<br />   (command "_.SELECT" ss "R" ss1 "")<br />   (if (setq ss1 (ssget "P" '((0 . "LINE"))))<br />    (command "_.CHPROP" ss1 "" "LA" (strcat "管道层" wei) "")<br />   )<br />   (command "_.SELECT" ss "R" ss1 "")<br />   (if (setq ss1 (ssget "P" '((0 . "*POLYLINE,DIMENSION,*TEXT"))))<br />    (command "_.CHPROP" ss1 "" "LA" (strcat "标注层" wei) "")<br />   )<br />   (command "_.SELECT" ss "R" ss1 "")<br />   (if (setq ss1 (ssget "P" '((0 . "INSERT"))))<br />    (command "_.CHPROP" ss1 "" "LA" (strcat "图块层" wei) "")<br />   )<br /> ))<br /> (setvar "CMDECHO" 1)<br /> (princ)<br /> )<br />

theisland

ZZXXQQ 发表于 2013-5-20 21:40

这个不错，顶一个！

半听可乐

ZZXXQQ 发表于 2013-5-20 21:40

我照着您这个程序去改第一个程序如下：（想实现框选+点选，且选择和输命令不分先后）
(defun c:LY1  ()
(setvar "CMDECHO" 0)
(if (and (princ "\n选择图元: ")
  (setq ss (ssget '((0 . "CIRCLE,LINE,*POLYLINE,DIMENDION,*TEXT,INSERT"))))
    (progn
  (if (setq ss1 (ssget "P" '((0 . "CIRCLE"))))
   (command "_.CHPROP" ss1 "" "LA" "SXSTK" "")
  )
  (command "_.SELECT" ss "R" ss1 "")
  (if (setq ss1 (ssget "P" '((0 . "LINE"))))
   (command "_.CHPROP" ss1 "" "LA" "SX_X" "")
  )
  (command "_.SELECT" ss "R" ss1 "")
  (if (setq ss1 (ssget "P" '((0 . "*POLYLINE,DIMENSION,*TEXT,LEADER"))))
   (command "_.CHPROP" ss1 "" "LA" "SXDIM" "")
  )
  (command "_.SELECT" ss "R" ss1 "")
  (if (setq ss1 (ssget "P" '((0 . "INSERT"))))
   (command "_.CHPROP" ss1 "" "LA" "SXBLK" "")
  )
  (command "_.SELECT" ss "R" ss1 "")
))
(setvar "CMDECHO" 1)
(princ)
) )


效果是实现了，但是为什么会有这个提示呢？感觉看着不舒服：

未知命令“LY1”。按 F1 查看帮助。

xieyanghui

为什么选不了尺寸呢！！

浪子_无限

感觉这个实用性还是不错

chenbh2

半听可乐 发表于 2013-5-20 22:45
我照着您这个程序去改第一个程序如下：（想实现框选+点选，且选择和输命令不分先后）
(defun c:LY1  ()
...

吸取了点精华！谢谢！！