对区域进行填充,填充后的图案的颜色自动变成指定的颜色,用lisp程序完成

edata

李青松 发表于 2014-1-8 17:34
edata的程序非常好,块准狠,要的就是这个效果,多谢

主要原因是command函数调用命令，如果需要交互，比如指定点的时候，一定要用pause等待完成后会，根据命令提示情况""结束。。
(command "line" pause pause "")
(command "line" pause pause pause ""
有几个交互操作就需要几个pause...否则会出问题。
原因是autolisp是按行执行语句而你用
(command "-BHATCH" "co" "252" "." "p" "ansi31" "3" "0")
执行的时候，这行语句已经执行完成，但是命令还需要指定点，并确认。
因此等你确认的时候，lisp已经执行下一个语句了。
(setq hat (entlast))
-----------
因此后面的设置颜色之类的语句全部因为没有(entlast)获得正确的图元而失效。。。
-----------

edata

李青松 发表于 2014-1-8 17:46
edata的程序再改成另1种方式,就是点区域点的时候可以点多个点,不要点1下就结束命令

按理说，用6楼第二个可以多选。。。

llsheng_73

1. (defun c:tt(/ p)
   
2.   (vl-load-com)
   
3.   (command "BHATCH" "p" "ansi31" "3" "0")
   
4.   (while(setq p(getpoint))(command p))
   
5.   (command "")
   
6.   (vlax-put(vlax-ename->vla-object(entlast))'color 1))
   
7. (defun c:tt1(/ p oldcolor)
   
8.   (setq oldcoldr(getvar"CECOLCR"))
   
9.   (setvar"CECOLOR""1")
   
10.   (command "BHATCH" "p" "ansi31" "3" "0")
    
11.   (while(setq p(getpoint))(command p))
    
12.   (command "")
    
13.   (setvar"CECOLOR"oldcoldr)
    
14.   )
    
15. (defun c:tt2(/ oldcolor)
    
16.   (setq oldcoldr(getvar"CECOLCR"))
    
17.   (setvar"CECOLOR""1")
    
18.   (command "BHATCH")
    
19.   (setvar"CECOLOR"oldcoldr)
    
20.   )

(defun c:tt(/ p)<br />   (vl-load-com)<br />   (command "BHATCH" "p" "ansi31" "3" "0")<br />   (while(setq p(getpoint))(command p))<br />   (command "")<br />   (vlax-put(vlax-ename->vla-object(entlast))'color 1))<br /> (defun c:tt1(/ p oldcolor)<br />   (setq oldcoldr(getvar"CECOLCR"))<br />   (setvar"CECOLOR""1")<br />   (command "BHATCH" "p" "ansi31" "3" "0")<br />   (while(setq p(getpoint))(command p))<br />   (command "")<br />   (setvar"CECOLOR"oldcoldr)<br />   )<br /> (defun c:tt2(/ oldcolor)<br />   (setq oldcoldr(getvar"CECOLCR"))<br />   (setvar"CECOLOR""1")<br />   (command "BHATCH")<br />   (setvar"CECOLOR"oldcoldr)<br />   )

李青松

llsheng_73的程序运行不了

llsheng_73

李青松 发表于 2014-1-9 11:53
llsheng_73的程序运行不了

第一个里边while那一行有个反括号写错位置了

李青松

llsheng_73的程序经过修改后非常好,谢谢你的热情帮助

fire9527

edata 发表于 2014-1-8 16:44

老大，能不能改一个能框选区域，然后自动填充的程序呢？被填充的区域就是框出来的矩形，填充图案和颜色能预先设定最好

edata

fire9527 发表于 2014-6-16 08:40
老大，能不能改一个能框选区域，然后自动填充的程序呢？被填充的区域就是框出来的矩形，填充图案和颜色能 ...

你的意思是框选多段线，填充多段线，还是指对角点的方式绘制矩形并填充。
填充名称比例有时候不好匹配。设置。
有的情况可以直接填充，有的时候比例需要设置。根据填充边界的大小，自动调整比例不太好处理。
可以做到固定填充名，和相应比例。

fire9527

edata 发表于 2014-6-16 09:17
你的意思是框选多段线，填充多段线，还是指对角点的方式绘制矩形并填充。
填充名称比例有时候不好匹配。 ...

不框选任何实体，只是使用对角点绘制矩形并填充，需要固定填充图案和固定比例、固定图层及颜色
好感动，怎么快就回复了！

dforme

都是高手啊。虚心学习来了