[编程申请]：求助！！

SANWELL

能不能帮我编一个程序是每一次填充后线的颜色为81色，谢谢！！！

XDSoft

不用写程序啊，用AUTOCAD交互就足够了。

command:HATCH (填充)

填充后，

command:chprop -> l ->回车->c->81->回车

对于最后一个生成的实体，选择物体的时候用l

SANWELL

这样太麻烦了，能不能一步到位呢？
或帮我编一个每次填充后都到某一图层？谢谢！！！

XDSoft

最初由 SANWELL 发布
[B]这样太麻烦了，能不能一步到位呢？
或帮我编一个每次填充后都到某一图层？谢谢！！！ [/B]

既然你自己做填充，其余的要求，AUTOCAD交互足够了啊，程序也要你选择的，也要交互的，时间上快不了多少，程序应该做大量的做用一件事的时候才能体验出效率。

程序都是特定条件下的，如果知道如何和AUTOCAD交互，那么可以灵活解决很多东西（你找不到程序的情况下），程序应该做通用的东西，比如改层（改一堆你交互选择的实体），改颜色（改很多你选择的实体），而不应该是仅仅对你说的一个实体。

提高绘图效率，我认为一个就是懂得如何构造你要选择的东西，然后用AUTOCAD的编辑命令，把你的选择集提交给他们，这是很快的。你好好看看ddselect命令，如何构造你要编辑的实体选择集。

比如：你说的改层：

1. 你可以实现设置好当前层，然后填充的实体就是这个层了，不用改了。

2. chprop->l->la->层名

3. 找些通用的程序（改层，改颜色等），到“程序库论坛”看看。

总之，你的这个要求，真的不必依赖程序去做。

SANWELL

谢谢，这样画图的速度不快，我是想假如当前层是0层，那能不能每次填充的图案变到指定的图层，而当前层仍然是0层，谢谢！

梦断江南

先选定图层不会花多少时间，也可以用那个 按物体选取图层 的按钮，我经常用的：）
另外，教你一招：如果不改变图层，填充完后，选取hatch实体启用夹点，在图层下拉条中选取相应的图层就可以把实体改到那个图层了。不用启动chprop等修改命令。（改线形，颜色，同理）

                               
登录/注册后可看大图

SANWELL

谢谢，梦断江南！
但这样仍然很麻烦，因为当在画施工图，这样会很累的，能不能帮我编个程序，谢谢！！！

LUCAS

;;;最后全部转可以吗??
;;;把填充转到填充层

2. 
   
3. (defun C:MOVEHATCH (/ HOLDCLAYER A)
   
4.   (setq HOLDCLAYER (getvar "clayer"))
   
5.   (if (= (tblsearch "layer" "填充") NIL)
   
6.     (command "_.layer" "m" "填充" "c" 81 "" "lt" "continuous" "" "")
   
7.   )
   
8.   (setq A (ssget "x" '((0 . "HATCH"))))
   
9.   (if (/= A NIL)
   
10.     (command "_.change"        A "" "p" "la" "填充" "c" "bylayer" "lt"
    
11.              "bylayer" "")
    
12.   )
    
13.   (setvar "clayer" HOLDCLAYER)
    
14.   (princ)
    
15. )
    

<br /> (defun C:MOVEHATCH (/ HOLDCLAYER A)<br />   (setq HOLDCLAYER (getvar "clayer"))<br />   (if (= (tblsearch "layer" "填充") NIL)<br />     (command "_.layer" "m" "填充" "c" 81 "" "lt" "continuous" "" "")<br />   )<br />   (setq A (ssget "x" '((0 . "HATCH"))))<br />   (if (/= A NIL)<br />     (command "_.change"        A "" "p" "la" "填充" "c" "bylayer" "lt"<br />              "bylayer" "")<br />   )<br />   (setvar "clayer" HOLDCLAYER)<br />   (princ)<br /> )<br />

e2002

到www.mjtd.com的下载中心,下载顾文伟的"图层自动切换程序",按说明设定即可.

http://page.zsnet.com/~mccad/download/tools/specifylayer.zip

我也是这样解决和你同样的问题的...


:9 :9 :9

SANWELL

谢谢，斑竹！！
按你所说的安装但不知什么用？命令行中应输入什么？谢谢！！！

LUCAS

;;;改用命令反应器

2. 
   
3. (defun C:REMOVEREACTOR ()
   
4.   (vlr-remove *COMMANDENDED_REACTOR1*)
   
5. )
   
6. 
   
7. (defun COMMANDENDED_HATCH (CALLING-REACTOR COMMANDINFO / INFO)
   
8.   (setq INFO (car COMMANDINFO))
   
9.   (cond
   
10.     ((or (= "BHATCH" INFO) (= "-BHATCH" INFO) (= "HATCH" INFO))
    
11.      (if (= (tblsearch "layer" "填充") NIL)
    
12.        (progn
    
13.          (setq
    
14.            HA
    
15.             (vla-add (vla-get-layers
    
16.                        (vla-get-activedocument (vlax-get-acad-object))
    
17.                      )
    
18.                      "填充"
    
19.             )
    
20.          )
    
21.          (vla-put-color HA 81)
    
22.          (vla-put-linetype HA "Continuous")
    
23.        )
    
24.      )
    
25.      (vla-put-layer (vlax-ename->vla-object (entlast)) "填充")
    
26.     )
    
27.   )
    
28. )
    
29. 
    
30. (defun C:COMMANDREACTOR        ()
    
31.   (vl-load-com)
    
32.   (if (not *COMMANDENDED_REACTOR1*)
    
33.     (setq *COMMANDENDED_REACTOR1*
    
34.            (vlr-editor-reactor
    
35.              NIL
    
36.              '((:vlr-commandended . COMMANDENDED_HATCH))
    
37.            )
    
38.     )
    
39.   )
    
40. )
    
41. 
    
42. (C:COMMANDREACTOR)
    
43. (princ)
    

<br /> (defun C:REMOVEREACTOR ()<br />   (vlr-remove *COMMANDENDED_REACTOR1*)<br /> )<br /> <br /> (defun COMMANDENDED_HATCH (CALLING-REACTOR COMMANDINFO / INFO)<br />   (setq INFO (car COMMANDINFO))<br />   (cond<br />     ((or (= "BHATCH" INFO) (= "-BHATCH" INFO) (= "HATCH" INFO))<br />      (if (= (tblsearch "layer" "填充") NIL)<br />        (progn<br />          (setq<br />            HA<br />             (vla-add (vla-get-layers<br />                        (vla-get-activedocument (vlax-get-acad-object))<br />                      )<br />                      "填充"<br />             )<br />          )<br />          (vla-put-color HA 81)<br />          (vla-put-linetype HA "Continuous")<br />        )<br />      )<br />      (vla-put-layer (vlax-ename->vla-object (entlast)) "填充")<br />     )<br />   )<br /> )<br /> <br /> (defun C:COMMANDREACTOR        ()<br />   (vl-load-com)<br />   (if (not *COMMANDENDED_REACTOR1*)<br />     (setq *COMMANDENDED_REACTOR1*<br />            (vlr-editor-reactor<br />              NIL<br />              '((:vlr-commandended . COMMANDENDED_HATCH))<br />            )<br />     )<br />   )<br /> )<br /> <br /> (C:COMMANDREACTOR)<br /> (princ)<br />

SANWELL

在哪里才能得到命令反应器，谢谢！！

LUCAS

把程序存盘(hatch1.lsp)在autocad找寻路径上,再在命令列(load “hatch1”) ,命令反应器就会起作用。

SANWELL

该如何解决？谢谢！

LUCAS

Sorry!!那只能在autocad2000以上使用!!!