处女贴，发个实体线型在虚线和实线之间变化的函数

tth02

1. ;直线的虚实线型变换
   
2. (defun c:xsbh( / ent el LineType LayerName)
   
3.         (prompt "\n选择需要虚实线型变化的实体：")
   
4.         (while (setq ent (car (entsel)))
   
5.                 (setq el (entget ent))
   
6.                 ;如果bylayer，则需要从层表中得到线型名称
   
7.                 (if (= (setq LineType (cdr (assoc 6 el))) nil)
   
8.                         (progn
   
9.                                 (setq LayerName (cdr (assoc 8 el)))
   
10.                                 ;返回指定图层的线型名称
    
11.                                 (setq LineType (cdr (assoc 6 (tblsearch "layer" LayerName))))
    
12.                                 );progn
    
13.                 );if
    
14.                 (if (or (= LineType "CONTINOUS")
    
15.                                 (= LineType "CONTINUOUS")
    
16.                                 (= LineType "ByBlock"));字母大小写
    
17.                         (setq el (append (list (cons 6 "DASHED")) (reverse el))
    
18.                                 el (reverse el))
    
19.                 );if
    
20.                 (if (= LineType "DASHED")
    
21.                                 (setq el (append (list (cons 6 "CONTINOUS")) (reverse el))
    
22.                                         el (reverse el))
    
23.                 );if
    
24.                 (entmod el)
    
25.         );while
    
26.         (princ)
    
27. );defun

;直线的虚实线型变换<br /> (defun c:xsbh( / ent el LineType LayerName)<br />         (prompt "\n选择需要虚实线型变化的实体：")<br />         (while (setq ent (car (entsel)))<br />                 (setq el (entget ent))<br />                 ;如果bylayer，则需要从层表中得到线型名称<br />                 (if (= (setq LineType (cdr (assoc 6 el))) nil)<br />                         (progn<br />                                 (setq LayerName (cdr (assoc 8 el)))<br />                                 ;返回指定图层的线型名称<br />                                 (setq LineType (cdr (assoc 6 (tblsearch "layer" LayerName))))<br />                                 );progn<br />                 );if<br />                 (if (or (= LineType "CONTINOUS")<br />                                 (= LineType "CONTINUOUS")<br />                                 (= LineType "ByBlock"));字母大小写<br />                         (setq el (append (list (cons 6 "DASHED")) (reverse el))<br />                                 el (reverse el))<br />                 );if<br />                 (if (= LineType "DASHED")<br />                                 (setq el (append (list (cons 6 "CONTINOUS")) (reverse el))<br />                                         el (reverse el))<br />                 );if<br />                 (entmod el)<br />         );while<br />         (princ)<br /> );defun

工作需要，随手写的。尚未考虑复杂情况。与探索者中“虚实变换”功能的差别是点击实体之后立即修改，不需要回车确认。

mandala

不如做成“改变实体的线型”来得实用。稍微修改一下就可以。

raimo

稍嫌麻烦了一些..直接改线型不是更方便

pengfei2010

新手嘛？感觉写的还不错

sdls

试过没有反应，不知道是怎么回事?