AUTOLISP如何把选择集里的对象移动到某一图层

1404073417

AUTOLISP如何把选择集里的对象移动到某一图层

芝麻ena

CAD 命令 LAYMCH

和尚777

(defun c:tt (/ i s1 ss)
        (setq i -1)
(if        (setq ss(ssget))
        (while(setq s1(ssname ss (setq i(1+ i))))
                (setq s1(vlax-ename->vla-object s1))
                (vla-put-Layer s1 "图层")
        ))(princ)
)

Bao_lai

(command "change" (SSGET) "" "properties" "layer" "图层名" "" )

vitalgg

1. (require 'entity:*) ;; 加载 entity 函数库
   
2. (entity:putdxf (ssget) 8 "某一图层")

(require 'entity:*) ;; 加载 entity 函数库<br /> (entity:putdxf (ssget) 8 "某一图层")

1. ;; 如何使用 @lisp函数库
   
2. ;; 使用@lisp函数库非常简单。只要你在CAD中安装了 @lisp ，在能访问互联网的情况下。就可以远程加载 @lisp函数库调用函数了。
   
3. 
   
4. ;; 当远程导入成功后，会提示 成功输入的函数 数量。生成函数列表到 lisp变量 @:*functions* 。
   
5. 
   
6. ;; @:*functions* 为最后一次成功导入的函数列表。
   
7. 
   
8. (require 'ui:*) ;;导入 ui 相关函数库
   
9. (require 'block:*) ;;导入 block 相关函数库
   
10. (require 'entity:*) ;;导入 entity 图关 相关函数库
    
11. (require '(ui:* block:* entity:*)) ;; 一次导入多个库
    
12. (import 'ui:*)   ;; import 与 require 用法相同
    
13. (import 'block:*) ;; import 为 require 别名
    
14. (import '(ui:* block:* entity:*) ;; import 与 require 用法相同
    
15. 
    
16. (princ @:*functions*)  ;; @:*functions* 为最后一次成功导入的函数列表。
    
17. ;; 导入函数后，就可以使用这些函数了
    
18. (entity:make-line '(0 0 0) '(10 10 0)) ;; 使用库函数创建一条直线
    
19. (ui:select "请选择" '("张三" "李四" "王五")) ;; 使用库函数创建一个单选对话框

;; 如何使用 @lisp函数库<br /> ;; 使用@lisp函数库非常简单。只要你在CAD中安装了 @lisp ，在能访问互联网的情况下。就可以远程加载 @lisp函数库调用函数了。<br /> <br /> ;; 当远程导入成功后，会提示 成功输入的函数 数量。生成函数列表到 lisp变量 @:*functions* 。<br /> <br /> ;; @:*functions* 为最后一次成功导入的函数列表。<br /> <br /> (require 'ui:*) ;;导入 ui 相关函数库<br /> (require 'block:*) ;;导入 block 相关函数库<br /> (require 'entity:*) ;;导入 entity 图关 相关函数库<br /> (require '(ui:* block:* entity:*)) ;; 一次导入多个库<br /> (import 'ui:*)   ;; import 与 require 用法相同<br /> (import 'block:*) ;; import 为 require 别名<br /> (import '(ui:* block:* entity:*) ;; import 与 require 用法相同<br /> <br /> (princ @:*functions*)  ;; @:*functions* 为最后一次成功导入的函数列表。<br /> ;; 导入函数后，就可以使用这些函数了<br /> (entity:make-line '(0 0 0) '(10 10 0)) ;; 使用库函数创建一条直线<br /> (ui:select "请选择" '("张三" "李四" "王五")) ;; 使用库函数创建一个单选对话框