填充开关

lucas_3333

很简单的源码

原理很简单
FillMode=0, Regen
FillMode=1, Regen

改组码

1. (defun c:hatchdisplay ( / a b c d e)
   
2. (setq
   
3. a (ssget "x" (list (cons 0 "hatch")))
   
4. b (sslength a)
   
5. c 0.0
   
6. ht (IF ( = ht 0 ) 1 0)
   
7. )
   
8. (while (setq d (ssname a c))
   
9. (setq
   
10. e (entget d)
    
11. e (append e (list (cons 60 ht)))
    
12. )
    
13. (entmod e)
    
14. (setq c (1+ c))
    
15. )
    
16. )

(defun c:hatchdisplay ( / a b c d e)<br /> (setq<br /> a (ssget "x" (list (cons 0 "hatch"))) <br /> b (sslength a)<br /> c 0.0<br /> ht (IF ( = ht 0 ) 1 0) <br /> ) <br /> (while (setq d (ssname a c))<br /> (setq<br /> e (entget d)<br /> e (append e (list (cons 60 ht))) <br /> ) <br /> (entmod e) <br /> (setq c (1+ c))<br /> )<br /> )

lingduwx

非常棒，要是能支持块内填充也开关就更厉害了

yangchao2005090

请问一下，这个怎么用啊

yangchao2005090

不知道如何使用

小师傅

什么好东西啊   

love1030312

dbqtju

sibelle_hu

看看啊，支持源码

CTC

只为看看                           

hao3ren

玩CAD的苦命人

zhengchuan

看看啊，支持源码

yoyoho

支持源码,看看啊!!!

qyming

原理清楚3，一切都简单了