求改变线型的小程序!

泉(Ango)

各位,
      大家好!我在画图时，经常需要画一些虚线，所我希望能在不改变我已画线所在的图层，而只是改变该线条的线型。故,现请各位帮忙编写这样的一条LISP程序!（如：我画好的一条直线，它的1号图层的-实线，然后选择该线条输入xx，则该线条变为虚线，但该线条仍然属于1号图层，只是线型变为虚线，其它的属性都不变。）
希望大家不怜指教！
谢谢！

nzl1116

;;;加载虚线和点划线

1. (defun g/getAllLineTypes (/ g/1/LVar0 g/1/LVar1 g/1/LVar2 g/1/LVar3 g/1/LVar4)
   
2.   (setq        g/1/LVar0 (vla-get-LineTypes cDocum) ; 获取线形集合
   
3.         g/1/LVar1 (vla-get-Count g/1/LVar0)  ; 获取集合中元素的个数
   
4.         g/1/LVar2 0                             ; 初始化索引号
   
5.         g/1/LVar3 nil                             ; 初始化所有线形的表
   
6.   )
   
7.   (while (< g/1/LVar2 g/1/LVar1)
   
8.     (setq g/1/LVar4 (vla-get-name (vla-item g/1/LVar0 g/1/LVar2))
   
9.           g/1/LVar3 (cons g/1/LVar4 g/1/LVar3)
   
10.           g/1/LVar2 (1+ g/1/LVar2)
    
11.     )
    
12.   )
    
13.   (if (not (member "CENTER2" g/1/LVar3))
    
14.     (progn
    
15.       ;;获取测量单位是英制还是公制
    
16.       (setq g/1/LVar2 (getvar "MEASUREMENT"))
    
17.       (if (= g/1/LVar2 0)
    
18.         (setq g/1/LVar4 "acad.lin")
    
19.         (setq g/1/LVar4 "acadISO.lin")
    
20.       )
    
21.       (setq g/1/LVar1 (findfile g/1/LVar4))
    
22.       (vla-load g/1/LVar0 "CENTER2" g/1/LVar1)
    
23.       (setq g/1/LVar3 (cons "CENTER2" g/1/LVar3))
    
24.     )
    
25.   )
    
26.   (if (not (member "HIDDEN2" g/1/LVar3))
    
27.     (progn
    
28.       (setq g/1/LVar2 (getvar "MEASUREMENT"))
    
29.       (if (= g/1/LVar2 0)
    
30.         (setq g/1/LVar4 "acad.lin")
    
31.         (setq g/1/LVar4 "acadISO.lin")
    
32.       )
    
33.       (setq g/1/LVar1 (findfile g/1/LVar4))
    
34.       (vla-load g/1/LVar0 "HIDDEN2" g/1/LVar1)
    
35.       (setq g/1/LVar3 (cons "HIDDEN2" g/1/LVar3))
    
36.     )
    
37.   )
    
38.   g/1/LVar3
    
39. )

(defun g/getAllLineTypes (/ g/1/LVar0 g/1/LVar1 g/1/LVar2 g/1/LVar3 g/1/LVar4)<br />   (setq        g/1/LVar0 (vla-get-LineTypes cDocum) ; 获取线形集合<br />         g/1/LVar1 (vla-get-Count g/1/LVar0)  ; 获取集合中元素的个数<br />         g/1/LVar2 0                             ; 初始化索引号<br />         g/1/LVar3 nil                             ; 初始化所有线形的表<br />   )<br />   (while (< g/1/LVar2 g/1/LVar1)<br />     (setq g/1/LVar4 (vla-get-name (vla-item g/1/LVar0 g/1/LVar2))<br />           g/1/LVar3 (cons g/1/LVar4 g/1/LVar3)<br />           g/1/LVar2 (1+ g/1/LVar2)<br />     )<br />   )<br />   (if (not (member "CENTER2" g/1/LVar3))<br />     (progn<br />       ;;获取测量单位是英制还是公制<br />       (setq g/1/LVar2 (getvar "MEASUREMENT"))<br />       (if (= g/1/LVar2 0)<br />         (setq g/1/LVar4 "acad.lin")<br />         (setq g/1/LVar4 "acadISO.lin")<br />       )<br />       (setq g/1/LVar1 (findfile g/1/LVar4))<br />       (vla-load g/1/LVar0 "CENTER2" g/1/LVar1)<br />       (setq g/1/LVar3 (cons "CENTER2" g/1/LVar3))<br />     )<br />   )<br />   (if (not (member "HIDDEN2" g/1/LVar3))<br />     (progn<br />       (setq g/1/LVar2 (getvar "MEASUREMENT"))<br />       (if (= g/1/LVar2 0)<br />         (setq g/1/LVar4 "acad.lin")<br />         (setq g/1/LVar4 "acadISO.lin")<br />       )<br />       (setq g/1/LVar1 (findfile g/1/LVar4))<br />       (vla-load g/1/LVar0 "HIDDEN2" g/1/LVar1)<br />       (setq g/1/LVar3 (cons "HIDDEN2" g/1/LVar3))<br />     )<br />   )<br />   g/1/LVar3<br /> )

nzl1116

这不就是改一下线型名就可以了吗？，组码是6

泉(Ango)

nzl1116 发表于 2013-7-15 16:04
这不就是改一下线型名就可以了吗？，组码是6

@nzl1116
你好!谢谢你的回复.
     我就是不想去点选线条,然后再点线型为虚线那样.
我就用个LISP程序,用快捷键xx,就能通过键盘操作,提高画图速度!
希望得到你的帮忙!
谢谢!

wowan1314

论坛上有ZZXXQQ写的  虚实变换 程序。。 你搜索下看看

nzl1116

泉(Ango) 发表于 2013-7-15 18:09
@nzl1116
你好!谢谢你的回复.
     我就是不想去点选线条,然后再点线型为虚线那样.

这么简单的东西，你也不想动手？

669423907

(defun c:q1()
(setq ss (ssget":S"))
(command "change" ss "" "P" "lt" "DASHED" "")
(princ))

nzl1116

669423907 发表于 2013-7-15 19:40
(defun c:q1()
(setq ss (ssget":S"))
(command "change" ss "" "P" "lt" "DASHED" "")

是不是要先判断，虚线或点划线要不要先加载呀？

669423907

nzl1116 发表于 2013-7-15 19:51
;;;加载虚线和点划线

谢谢你，只是我不懂

nzl1116

669423907 发表于 2013-7-15 19:55
谢谢你，只是我不懂

你也谦虚了，看你积分也蛮高的