编程申请－－－1

zhangzg

谁帮我编一个程序！
功能是：在屏幕上点选一个（只能一个）块。块属性有sx1，sx2，sx3....若干。
        返回一个属性值给sx。提取第一个属性值。

zhangzg

(defun c:tqksx()
  (setq na (car (entsel)))
  (setq e (entget na));获得属性表


下边我就真的不会了，怎做快帮帮我吧。我都快急死了了！

LUCAS

试试看

2. 
   
3. (defun c:tqksx()
   
4. (setq B2 (car (entsel)))
   
5.   (while (/= "比例" (cdr (assoc 2 (entget B2))));假如"比例"是一属性值
   
6.     (setq B2 (entnext B2))
   
7.   )
   
8.   (setq B2 (entget B2))
   
9.   (setq B1 (cdr (assoc 1 B2)))
   
10.   (prompt "\n")
    
11.   (prompt B1);印出"比例"属性值的内容
    
12.   (princ)
    
13. )
    

<br /> (defun c:tqksx() <br /> (setq B2 (car (entsel))) <br />   (while (/= "比例" (cdr (assoc 2 (entget B2))));假如"比例"是一属性值<br />     (setq B2 (entnext B2))<br />   )<br />   (setq B2 (entget B2))<br />   (setq B1 (cdr (assoc 1 B2)))<br />   (prompt "\n")<br />   (prompt B1);印出"比例"属性值的内容<br />   (princ)<br /> )<br />

:9