bjs0448 发表于 2006-6-13 00:03:00

[求助][求助]：如何设计图层中的线宽

<FONT face=宋体,verdana,arial,helvetica>[求助]：如何设计图层中的线宽</B></FONT> <INPUT class=btn style="FONT-SIZE: 9pt; FONT-FAMILY: 宋体" onclick="text1.style.fontSize='12pt';" type=button value=12号字> <OPTION value="9pt">9pt</OPTION> <OPTION value="10pt" selected>10pt</OPTION> <OPTION value="11pt">11pt</OPTION> <OPTION value="12pt">12pt</OPTION> <OPTION value="13pt">13pt</OPTION> <OPTION value="15pt">15pt</OPTION> <FONT id=text1 style="FONT-SIZE: 10pt" face="宋体,verdana, arial, helvetica"><BR>(defun sub_chk_layer()<BR>(setq chklay (tblsearch "layer" "str"))<BR>(if (= chklay nil)<BR>(command "layer" "n" "str" "c" "4" "str" "")<BR><BR>)<BR>(setq chklay (tblsearch "layer" "txt"))<BR>(if (= chklay nil)<BR>(command "layer" "n" "txt" "c" "3" "txt" "")<BR><BR>)<BR>...........<BR><BR>请班竹指教:此段程序执行完后,新层,线型,颜色均能顺利创建,但是图层中的线宽好像没变,我想把str层中的线宽设定为0.5,txt层中的线宽设定为0.3,请问如何操作!用什么命令把str设为当前层,进行绘图,接着用什么令把txt层设为当前层,写文字!层的锁定,天关用哪个命令?谢谢!</FONT>

Student 发表于 2006-6-13 08:42:00

<P>(command "layer" "n" "txt" "c" "3" "txt" "lw" 2 "txt" "");线宽2mm</P>
<P>&nbsp;</P>

caoyin 发表于 2006-6-22 13:59:00

<P>&nbsp; (if (= (tblobjname "LAYER" "str") nil)<BR>&nbsp;&nbsp;&nbsp; (progn<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (entmake (list<BR>&nbsp;&nbsp; '(0 . "LAYER")<BR>&nbsp;&nbsp; '(100 . "AcDbSymbolTableRecord")<BR>&nbsp;&nbsp; '(100 . "AcDbLayerTableRecord")<BR>&nbsp;&nbsp; '(6 . "CONTINUOUS");线型<BR>&nbsp;&nbsp; '(62 . 4);颜色</P>
<P>&nbsp;&nbsp; '(370 . 50);线宽(50就是0.5MM)<BR>&nbsp;&nbsp; '(70 . 0)<BR>&nbsp;&nbsp; (cons 2 "str");层名<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<BR>&nbsp;&nbsp;&nbsp; )<BR>&nbsp; )</P>

hhc 发表于 2006-6-22 17:04:00

用3楼的方法如果线型不是"CONTINUOUS",则该线型不会自动加载,而都用"CONTINUOUS"代替,而用Command就会自动加载各种线型,如:CenterHidden phantom 等等

caoyin 发表于 2006-6-23 14:19:00

本帖最后由 作者 于 2006-6-23 14:46:00 编辑

请教大家:不用Command 加载线型的最简洁的方法??
页: [1]
查看完整版本: [求助][求助]：如何设计图层中的线宽