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

李青松

对区域进行填充,可以自动指定到已经定义的填充图案类型,
比如是ansi31                (command "-BHATCH" "p" "ansi31" "3" "0"
填充完后,填充后的图案的颜色自动变成指定的颜色(注:不是指定的图层)
用lisp程序完成

李青松

比如颜色是252

自贡黄明儒

接着你的代码写
(setq hat (entlast))
(setq hatobj (vlax-ename->vla-object hat))
;;(vlax-get hatobj 'color)
(vlax-put hatobj 'color 1);红色

李青松

完整程序是这样吗?我试了,程序有问题,运行不正常
(defun c:555()  (comm?and "-BHATCH" "p" "ansi31" "3" "0")
(setq hat (entlast))
(setq hatobj (vlax-ename->vla-object hat))
;;(vlax-get hatobj 'color)
(vlax-put hatobj 'color 1));红色

李青松

完整程序是这样吗?我试了,程序有问题,运行不正常
(defun c:555()  (command "-BHATCH" "p" "ansi31" "3" "0")
(setq hat (entlast))
(setq hatobj (vlax-ename->vla-object hat))
;;(vlax-get hatobj 'color)
(vlax-put hatobj 'color 1));红色

kwok

李青松 发表于 2014-1-8 14:34
完整程序是这样吗?我试了,程序有问题,运行不正常
(defun c:555()  (command "-BHATCH" "p" "ansi31" "3" ...

下面2个填充改色我测试都通过OK.
试试这个:
(defun c:555()
(command "-BHATCH" "co" "252" "." "p" "ansi31" "3" "0")
(princ)
  )
也可以这样:
(defun c:555()
(command "-BHATCH" "p" "ansi31" "3" "0")
(while (> (getvar "CMDACTIVE") 0) (vl-cmdf PAUSE))
(setq hat (entlast))
(setq hatobj (vlax-ename->vla-object hat))
;;(vlax-get hatobj 'color)
(vlax-put hatobj 'color 1);红色
)

李青松

不行,颜色没变,

edata

2. (defun c:tt ()
   
3.   (vl-load-com)
   
4.   (command "_.-BHATCH" "p" "ansi31" "3" "0" pause "")
   
5.   (setq hat (entlast))
   
6.   (setq hatobj (vlax-ename->vla-object hat))
   
7.   (vlax-put hatobj 'color 1)                ;0~256
   
8. ) ;_ end of defun
   

(defun c:tt ()<br />   (vl-load-com)<br />   (command "_.-BHATCH" "p" "ansi31" "3" "0" pause "")<br />   (setq hat (entlast))<br />   (setq hatobj (vlax-ename->vla-object hat))<br />   (vlax-put hatobj 'color 1)                ;0~256<br /> ) ;_ end of defun<br />

李青松

edata的程序非常好,块准狠,要的就是这个效果,多谢

李青松

edata的程序再改成另1种方式,就是点区域点的时候可以点多个点,不要点1下就结束命令