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

vampire

呵呵 不知道能不能实现啊?

我现在的标注的命令是

(defun-q C:da ( )
(command "_dimlinear")
(princ)
)
(defun-q C:ds ( )
(command "_dimaligned")
(princ)
)
(defun-q C:dr ( )
(command "_dimradius")
(princ)
)
(defun-q C:dd ( )
(command "_dimdiameter")
(princ)
)

不需要cad原始的标注放在固定的层里

可以是新定义一个命令 绘制标注的时候把标注放在特定层里就好

谢谢啊

vampire

:)

xbtang

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

sailorcwx

(defun C:da ( )
(command "layer" "s" "图层名称" "" "_dimlinear")
(princ)
)
(defun C:ds ( )
(command "layer" "s" "图层名称" "" "_dimaligned")
(princ)
)
(defun C:dr ( )
(command "layer" "s" "图层名称" "" "_dimradius")
(princ)
)
(defun C:dd ( )
(command "layer" "s" "图层名称" "" "_dimdiameter")
(princ)
)

随便逛一逛

1:建立层，最好是可以调用的程序。

2：设为clayer.

3:command "_dimdiameter") 什么的可/

liyuwen

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

天龙八部

就是把标注自动放到标注层，文字放到文字层，等等吧！在标注的时候切换到标注层吧！

1.判断选择的是哪种类型的数据，用判断语句判断，如DIMENSION,TEXT，line等

2.根据判断的语句在图层中找到相应的图层

3.最后把ACTIVELAYER改为此当前图层

sub sdssdsfsfsdfsdsdfsfsdsdfsdfsdfsfsdf()

dim sdfdsds as acadentity

dim sdssdfsfsd as variant

thisdrawing..........getentity sdfdsds,sdssdfsfsd,"afdfdsf"

dim xxvcvc as acadlayer

dim ppppa2222 as acadlayer

if typeof sdfdsds is "dimension" then

   for each xxvcvc in thisdrawing.layers

    if xxvcvc.name="dim"

  set ppppa2222=thisdrawing.layers.add(xxvcvc.namae)

  next xxvcvc

thisdrawing.activelayer=ppppa2222

end if

end sub

arming_hz

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

天龙八部

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

wuhenjian

我也有一个类似的问题，就是这个变色命令，

(defun c:1 (/ gp) (setq gp (ssget)) (command "change" gp "" "p" "co" "1" ""))

我想在把一个对象变色的同时，还能自动把这个对象定义到一个特定图层里面，比如图层1。如果没有有图层1，就自动新建一个，如果有了的话，则自动就归到图层1里面去了。

希望热心人帮帮我。