如何求得图层的线形

ymcui

如何求得图层的线形
(setq ENt (entget ss))
(setq s1  (cdr (aSSoc 6 ENt))
(setq s2  (cdr (aSSoc 48 ENt))

cable2004

(defun c:tt()
(setq ENt (entget (car (entsel))))
(setq s1  (cdr (aSSoc 6 ENt)))；6  线型名（如果不是“随层”，则出现）。特殊名称“随块”表示可变的线型（可选）
(setq s2  (cdr (aSSoc 48 ENt)))；48 线型比例（可选）
)

edata

1. (defun c:tt()
   
2.   (setq ss(car(entsel)))
   
3. (setq ENt (entget ss))
   
4. (setq s0(cdr (aSSoc 8 ENt)));获得图层名
   
5. (setq ent2(entget(tblobjname "layer" s0)));获得图层组码表
   
6. (setq s1  (cdr (aSSoc 6 ENt2)));获得图层线性名称  
   
7. ;(setq s2  (cdr (aSSoc 48 ENt2)));图层无线型比例组码
   
8.   (setq s3(getvar 'CELTSCALE));获得当前线型比例
   
9.   (setq s4(getvar 'LTSCALE));获得全局线型比例
   
10.       )

(defun c:tt()<br />   (setq ss(car(entsel)))<br /> (setq ENt (entget ss))<br /> (setq s0(cdr (aSSoc 8 ENt)));获得图层名<br /> (setq ent2(entget(tblobjname "layer" s0)));获得图层组码表<br /> (setq s1  (cdr (aSSoc 6 ENt2)));获得图层线性名称  <br /> ;(setq s2  (cdr (aSSoc 48 ENt2)));图层无线型比例组码<br />   (setq s3(getvar 'CELTSCALE));获得当前线型比例<br />   (setq s4(getvar 'LTSCALE));获得全局线型比例<br />       )

ymcui

edata 发表于 2015-7-28 13:22

谢谢

2. (defun xianxing ( xia / ss lay la)
   
3. (setq ss (cdr (assoc 6 (entget xia))))
   
4. (if(= ss nil)
   
5.         (setq lay (cdr (assoc 8 (entget xia)))
   
6.                   la (entget (tblobjname "LAYER" lay))
   
7.                   ss (cdr (assoc 6 (entget (cdr (car la))))))
   
8. )
   
9. ss
   
10. )
    
11. 
    
12. (defun c:cx ()
    
13. (princ (xianxing (car (entsel))))
    
14. (princ)
    
15. )

(defun xianxing ( xia / ss lay la)<br /> (setq ss (cdr (assoc 6 (entget xia))))<br /> (if(= ss nil)<br />         (setq lay (cdr (assoc 8 (entget xia)))<br />                   la (entget (tblobjname "LAYER" lay))<br />                   ss (cdr (assoc 6 (entget (cdr (car la))))))<br /> )<br /> ss<br /> )<br /> <br /> (defun c:cx ()<br /> (princ (xianxing (car (entsel))))<br /> (princ)<br /> )

ymcui

改了一下,非常感谢edata 的回复
谢谢