mcxiangxin 发表于 2008-9-23 08:57:00

[求助]关于新建图层的一个问题

<p>帮我看一下我程序哪里出了点问题：</p><p>我想新建一个名为"cen"，线型为center的图层，但是用下面程序老是新建不了。请教怎么修改一下可以解决这个问题</p><p>(defun c:nn ()<br/>(make_lay "cen" 1 "center")<br/>(princ)<br/>)</p><p>(defun make_lay (name color lt)<br/>(entmake (list <br/>&nbsp;'(0 . "LAYER")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '(100 . "AcDbSymbolTableRecord")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '(100 . "AcDbLayerTableRecord")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '(70 . 0)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '(290 . 1)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (cons 2 name)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (cons 6 lt)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (cons 62 color)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp; )<br/>(princ)<br/>)</p>

caoyin 发表于 2008-9-23 09:40:00

线型需要先加载！！

mcxiangxin 发表于 2008-9-23 20:43:00

<p>谢了，除可用command "linetype"加载外还有没有其他方法呢？</p>

caoyin 发表于 2008-9-24 09:19:00

vla-load

mcxiangxin 发表于 2008-9-24 13:41:00

具体怎么用这个vla-load？找不到这个函数的用法

caoyin 发表于 2008-9-24 14:41:00

<p>(defun ltype-load (ltName ltFile)<br/>&nbsp; (vl-catch-all-apply<br/>&nbsp;&nbsp;&nbsp; 'vla-load<br/>&nbsp;&nbsp;&nbsp; (list (vla-get-Linetypes (vla-get-activedocument (vlax-get-acad-object)))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ltName<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ltFile<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp; )<br/>)</p><p>;;test</p><p>(ltype-load "dot" "acadiso.lin")<br/></p>

AMTONNY 发表于 2008-10-1 13:44:00

<p>(defun c:12()<br/>(command "layer" "n" "cen" "c" "4" "cen" "")<br/>(command "layer" "l" "center" "PT" "lw" 0 "cen" "")<br/>)</p><p>这样就可以建好了图层了</p><p></p>

ryljun 发表于 2008-10-3 04:44:00

楼上说的不错，不要把简单问题复杂化!

灬北方狼灬 发表于 2013-10-26 16:43:37

学习学习
页: [1]
查看完整版本: [求助]关于新建图层的一个问题