继承填充

preone

学习~~

Andyhon

...不过图层还是当前图层...
意即只继承填充样式而其余依所选框架所在层的设定?
亦或还有其他的规范...

Andyhon

那么在院长的代码中补一句 ...

(while (setq s1 (ssname ss (setq i (1+ i))))
  (command "hatch" hp hs ha s1 "")
  (command "_matchprop" s1 (entlast))   ; add this line
)

raimo

感觉这种操作方式没必要用LISP再来实现。。
难道随意用一种填充图案来填充目标之后，再刷成你需要继承的图案很麻烦吗？一点也不比这样继承填充慢啊，图层也一样


如果你们是固定了几种常用填充样式的话，我介绍一个给你参考一下，看看是否适合你
预设常用填充V1.2——用LISP来快速完成常用填充

xsso

1. (defun c:123 (/ ent1 x0)
   
2.   (setq ent1 (entsel))
   
3.   (initget "1 2")
   
4.   (setq x0 (getkword "1框选 2点选 "))
   
5.   (cond
   
6.     ((= x0 "1") (progn (setq ss1 (ssget))(command "-BHATCH" "s" ss1 "" "p" "solid" "")))
   
7.     ((= x0 "2") (command "-BHATCH" pause "p" "solid" ""))
   
8.   )
   
9.   (setq ent2 (entlast))
   
10.   (command "matchprop" ent1 "L" "")
    
11. )

(defun c:123 (/ ent1 x0)<br />   (setq ent1 (entsel))<br />   (initget "1 2")<br />   (setq x0 (getkword "1框选 2点选 "))<br />   (cond<br />     ((= x0 "1") (progn (setq ss1 (ssget))(command "-BHATCH" "s" ss1 "" "p" "solid" "")))<br />     ((= x0 "2") (command "-BHATCH" pause "p" "solid" ""))<br />   )<br />   (setq ent2 (entlast))<br />   (command "matchprop" ent1 "L" "")<br /> )

弱弱的发一个，点选暂时只能单选

raimo

xyp1964  刷起来不觉得麻烦吗？

回院长，实际应用中可不是这么规则的一个个小方框，我个人感觉一次性填充完再刷快多了。搜索边界也快些
在图形对象很多图层多，边缘情况复杂的情况下选取一个填充样式再去点填充，然后再选另一个填充样式再填充，速度明显很慢的。。


当然我仅针对我自己的工作情况发表观点，也许不适合其他绘图工种，参考参考吧

longer1000

高人不少

adc

谢谢大家帮忙了，不过怎么没有人要悬赏，虽然你们也不在乎这一点明经币，院长或严总随便点一下，就送出去了

adc

adc 发表于 2012-8-3 11:47
谢谢大家帮忙了，不过怎么没有人要悬赏，虽然你们也不在乎这一点明经币，院长或严总随便点一下，就送出去了

(setq orig_layer (getvar "clayer"))
.....
(setvar "clayer" tc_la)
.......
(setvar "clayer" orig_layer)
我是笨办法搞的
还有个问题想请教，如果要点选填充时能连续填充多个要怎样做？还有就是希望多个填充是独立的图案填充要怎样，先设置HPSEPARATE吗，还是有更好的办法？

框选多个时，要求填充是独立的填充，请问要怎样处理？谢谢

無恒的地盘

2. 
   
3. (defun c:jctc (/ tc_e tc_vlae tc_name tc_scle tc_ang tc_la tc_col key e p)
   
4.   (setq tc_e (car (entsel "\n选择填充源图案:")))
   
5.   (while
   
6.     (setq tc_vlae (vlax-ename->vla-object tc_e)
   
7.           tc_name (vla-get-patternname tc_vlae)
   
8.           tc_scle (vla-get-patternscale tc_vlae)
   
9.           tc_ang  (vla-get-patternangle tc_vlae)
   
10.           tc_la          (vla-get-layer tc_vlae)
    
11.           tc_col  (vla-get-color tc_vlae)
    
12.     )
    
13.      (if (= tc_col 256)
    
14.        (setq tc_col (cdr (assoc 62 (entget (tblobjname "layer" tc_la)))))
    
15.      )
    
16.      (prompt "\n选择填充对象:")
    
17.      (setq ss (ssget))
    
18.      (if (= ss nil)
    
19.        (progn
    
20.          (while
    
21.            (setq p (getpoint "\n指定内部点"))
    
22.             (command "boundary" "A" "o" "R" "" p "")
    
23.             (IF (= (vla-get-objectname (setq vlae (vlax-ename->vla-object (setq e (entlast))))) "AcDbRegion")
    
24.                (progn
    
25.                  (command "hatch" "p" tc_name tc_scle (* 180 (/ tc_ang pi)) e "")
    
26.                  (vla-put-color (vlax-ename->vla-object (entlast)) tc_col)
    
27.                  (vla-delete vlae)
    
28.                );;end_progn
    
29.                (princ "\n无法点选填充，请选择填充...")
    
30.             );;;end_if
    
31.          );;end_while
    
32.        );;end_progn
    
33.        (progn
    
34.          (command "hatch" "p" tc_name tc_scle (* 180 (/ tc_ang pi)) ss "")
    
35.          (vla-put-color (vlax-ename->vla-object (entlast)) tc_col)
    
36.        );;end_progn
    
37.      );;;end_if
    
38.   );;end_while
    
39. );;end
    

<br /> (defun c:jctc (/ tc_e tc_vlae tc_name tc_scle tc_ang tc_la tc_col key e p)<br />   (setq tc_e (car (entsel "\n选择填充源图案:")))<br />   (while<br />     (setq tc_vlae (vlax-ename->vla-object tc_e)<br />           tc_name (vla-get-patternname tc_vlae)<br />           tc_scle (vla-get-patternscale tc_vlae)<br />           tc_ang  (vla-get-patternangle tc_vlae)<br />           tc_la          (vla-get-layer tc_vlae)<br />           tc_col  (vla-get-color tc_vlae)<br />     )<br />      (if (= tc_col 256)<br />        (setq tc_col (cdr (assoc 62 (entget (tblobjname "layer" tc_la)))))<br />      )<br />      (prompt "\n选择填充对象:")<br />      (setq ss (ssget))<br />      (if (= ss nil)<br />        (progn<br />          (while<br />            (setq p (getpoint "\n指定内部点"))<br />             (command "boundary" "A" "o" "R" "" p "")<br />             (IF (= (vla-get-objectname (setq vlae (vlax-ename->vla-object (setq e (entlast))))) "AcDbRegion")<br />                (progn<br />                  (command "hatch" "p" tc_name tc_scle (* 180 (/ tc_ang pi)) e "")<br />                  (vla-put-color (vlax-ename->vla-object (entlast)) tc_col)<br />                  (vla-delete vlae)<br />                );;end_progn<br />                (princ "\n无法点选填充，请选择填充...")<br />             );;;end_if<br />          );;end_while<br />        );;end_progn<br />        (progn<br />          (command "hatch" "p" tc_name tc_scle (* 180 (/ tc_ang pi)) ss "")<br />          (vla-put-color (vlax-ename->vla-object (entlast)) tc_col)<br />        );;end_progn<br />      );;;end_if<br />   );;end_while<br /> );;end<br />