对象的属性lisp

lish

lisp如何获取选择对象的属性，并把他提取出来， 置为当前，就像附件动画那样，谢谢！！！

zml84

(entget (car (entsel "\n点取对象: ")))

wowan1314

;;----------------------
;;将所选实体层置为当前层
;;----------------------
(defun c:cl (/ ent ent_data clay olay)
  (setq olay (getvar "clayer"))
  (setq ent (car (entsel (strcat "\n选择物体/当前层为<" olay ">:"))))
  (if (/= nil ent)
    (progn
      (setq ent_data (entget ent))
      (setq clay (cdr (assoc 8 ent_data)))
      (setvar "clayer" clay)
      (prompt (strcat "\n成功将图层设为<" clay ">："))
    )
  )
)
其他类似！

fl202

2. (defun c:get1(/ ff f1 ff1 cc i en data)
   
3. ;该函数用于查看并返回对象的属性值。
   
4.   (setvar "cmdecho" 0)
   
5.   (setq cc nil i -10 en (entsel "请选取要查看属性的对象："))  
   
6.   (setq data (entget (car en ) '("*") ))
   
7.   ;(setq data (entget (car (entsel "请选取对象："))))
   
8.   (setq f1 "对象属性缓冲区1.txt")
   
9.   (setq ff (findfile f1))
   
10.   (setq ff1 (open ff "a"))
    
11.    (if ff1
    
12.       (progn
    
13.           (write-line "" ff1)
    
14.           (write-line "最新得到的属性：" ff1)   
    
15.          (princ data ff1)      
    
16.          (close ff1)
    
17.          (startapp "notepad.exe" ff)
    
18.   ))
    
19.   (repeat 500
    
20.     (setq cc (assoc i data))
    
21.     (if (/= cc nil) (princ cc))
    
22.     (setq i (1+ i) cc nil)   )
    
23. (princ "\n 完 毕 。")
    
24.   (princ)
    
25.    )

(defun c:get1(/ ff f1 ff1 cc i en data)<br /> ;该函数用于查看并返回对象的属性值。<br />   (setvar "cmdecho" 0)<br />   (setq cc nil i -10 en (entsel "请选取要查看属性的对象："))  <br />   (setq data (entget (car en ) '("*") )) <br />   ;(setq data (entget (car (entsel "请选取对象："))))<br />   (setq f1 "对象属性缓冲区1.txt")<br />   (setq ff (findfile f1)) <br />   (setq ff1 (open ff "a")) <br />    (if ff1<br />       (progn<br />           (write-line "" ff1)<br />           (write-line "最新得到的属性：" ff1)    <br />          (princ data ff1)       <br />          (close ff1)<br />          (startapp "notepad.exe" ff)<br />   ))<br />   (repeat 500<br />     (setq cc (assoc i data))<br />     (if (/= cc nil) (princ cc))<br />     (setq i (1+ i) cc nil)   ) <br /> (princ "\n 完 毕 。")<br />   (princ)<br />    )

你说的置为当前，是什么意思？