vampire 发表于 2006-11-1 10:55:00

[编程申请]不管当前层是什么,所有标注都放在特定的层里

本帖最后由 作者 于 2006-11-1 17:10:21 编辑 <br /><br /> <P>呵呵 不知道能不能实现啊?</P>
<P>我现在的标注的命令是</P>
<P>(defun-q C:da ( ) <BR>(command "_dimlinear")<BR>(princ)<BR>) <BR>(defun-q C:ds ( ) <BR>(command "_dimaligned")<BR>(princ)<BR>) <BR>(defun-q C:dr ( ) <BR>(command "_dimradius")<BR>(princ)<BR>) <BR>(defun-q C:dd ( ) <BR>(command "_dimdiameter")<BR>(princ)<BR>) </P>
<P><BR>不需要cad原始的标注放在固定的层里</P>
<P>可以是新定义一个命令 绘制标注的时候把标注放在特定层里就好</P>
<P>谢谢啊</P>

vampire 发表于 2006-11-1 13:18:00

:)

xbtang 发表于 2006-11-2 10:17:00

这个比较简单吧﹐有空我传上来。

sailorcwx 发表于 2006-11-2 18:42:00

本帖最后由 作者 于 2006-11-26 1:59:06 编辑 <br /><br /> <P>(defun C:da ( ) <BR>(command "layer" "s" "图层名称" "" "_dimlinear")<BR>(princ)<BR>) <BR>(defun C:ds ( ) <BR>(command "layer" "s" "图层名称" "" "_dimaligned")<BR>(princ)<BR>) <BR>(defun C:dr ( ) <BR>(command "layer" "s" "图层名称" "" "_dimradius")<BR>(princ)<BR>) <BR>(defun C:dd ( ) <BR>(command "layer" "s" "图层名称" "" "_dimdiameter")<BR>(princ)<BR>) </P>

随便逛一逛 发表于 2006-11-25 21:40:00

<P>1:建立层，最好是可以调用的程序。</P>
<P>2：设为clayer.</P>
<P>3:command "_dimdiameter") 什么的可/</P>

liyuwen 发表于 2006-12-6 22:21:00

此功能开发起来有点意思。楼主如有兴趣，不妨试试XRCAD V7.0(<A href="http://www.xrsoftware.net/" target="_blank" >http://www.xrsoftware.net</A>)中的“自动分层”功能。

天龙八部 发表于 2007-8-14 17:15:00

<p>就是把标注自动放到标注层，文字放到文字层，等等吧！在标注的时候切换到标注层吧！</p><p>1.判断选择的是哪种类型的数据，用判断语句判断，如DIMENSION,TEXT，line等</p><p>2.根据判断的语句在图层中找到相应的图层</p><p>3.最后把ACTIVELAYER改为此当前图层</p><p>sub sdssdsfsfsdfsdsdfsfsdsdfsdfsdfsfsdf()</p><p>dim sdfdsds as acadentity </p><p>dim sdssdfsfsd as variant</p><p>thisdrawing..........getentity sdfdsds,sdssdfsfsd,"afdfdsf"</p><p></p><p>dim xxvcvc as acadlayer</p><p>dim ppppa2222 as acadlayer</p><p>if typeof sdfdsds is "dimension" then</p><p>&nbsp;&nbsp; for each xxvcvc in thisdrawing.layers</p><p>&nbsp;&nbsp;&nbsp; if xxvcvc.name="dim"</p><p>&nbsp; set ppppa2222=thisdrawing.layers.add(xxvcvc.namae)</p><p>&nbsp; next xxvcvc</p><p></p><p>thisdrawing.activelayer=ppppa2222</p><p>end if</p><p></p><p></p><p></p><p>end sub</p><p></p><p></p>

arming_hz 发表于 2007-8-22 14:27:00

<p>我写过一个带这样功能的程序.不用改写CAD里原来的标注命令,直接监视CAD的命令.遇到标注命令时,就切换到特定的层.再执行原来的CAD命令.</p>

天龙八部 发表于 2007-9-6 15:24:00

直接用CAD命令后，自动切换的话，一，要么你把CAD原来的命令的程序代码修改掉，二，要么写一个屏弊掉原命令的程序，并在执行该程序的时候，自动触发相应的事件

wuhenjian 发表于 2007-10-23 12:18:00

<p>我也有一个类似的问题，就是这个变色命令，</p><p>(defun c:1 (/ gp) (setq gp (ssget)) (command "change" gp "" "p" "co" "1" ""))</p><p>我想在把一个对象变色的同时，还能自动把这个对象定义到一个特定图层里面，比如图层1。如果没有有图层1，就自动新建一个，如果有了的话，则自动就归到图层1里面去了。</p><p>希望热心人帮帮我。</p>
页: [1] 2 3
查看完整版本: [编程申请]不管当前层是什么,所有标注都放在特定的层里