[讨论]这个程序怎么改
www.dimcax.com
[讨论]这个程序怎么改
这个程序要多加个线宽该怎么改呀？
这里面的(cons 2 layer_name)
数字表示什么意思呢？
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46;;;;创建图层
( c:ccc ( fi tuceng_list
n tuceng layer_name
layer_linetype layer_color
)
;;;取得图层列表
( get_file_tuceng (fi / fil pe fel)
( tuceng_list nil)
( ( fi)
(
( fil ( fi))
( pe ( fil "r"))
( ( fel ( pe))
( tuceng_list ( fel tuceng_list))
)
( pe)
( tuceng_list ( ( tuceng_list)))
;根据文本的内容而定
)
)
)
(get_file_tuceng "tuceng.dat")
;;;_______________________________________________________
( n 0)
( ( ( tuceng_list) n)
( tuceng ( ( "(" ( n tuceng_list) ")")))
( layer_name ( 0 tuceng)) ;图层名
( layer_linetype ( 1 tuceng)) ;图层线型
( layer_color ( 2 tuceng)) ;图层颜色
(
(
'(0 . "layer")
'(100 . "acdbsymboltablerecord")
'(100 . "acdblayertablerecord")
'(70 . 0)
( 6 layer_linetype) ;线型
( 62 layer_color) ;颜色
( 2 layer_name) ;图层名
)
)
( n ( n))
)
( "\n图层以创建 ")
()
)
;;;_______________________________________________________
d
(cons 2 layer_name) 的2就是表示要创建的图层名。
帮助别人，提高自己。
d
好像不对吧～～
我创建出来都没2图层
还要和一个dat文件配合使用的
d
去看看dxf的说明吧。
帮助别人，提高自己。
d
采用entmake好像不能增加线宽，最好用vlisp函数增加图层，并修改图层的属性
(setq acadobj (vlax-get-acad-object)
acdoc (vla-get-activedocument acadobj)
layers (vla-get-layers acdoc)
layer (vla-add layers layer_name)
)
(vla-put-linetype layer layer_linetype)
(vla-put-color layer layer_color)
(vla-put-lineweight layer layer_lineweight) ;;layer_lineweight为新参数线宽，但注意文件中应存放此参数，
)
d