多个 闭合 多段线 的 填充 求余 循环

zzmm

图中有很多个 闭合的多段线 我给定了16个填充图案 我想到0~15个填充完成后又从0~15填充 用 rem 求余在循环 但是不会用 我写了一个 又臭有长的代码 新手 只能想到一些简单的东西去一个个的判断 求高手指点迷津

2. (defun c:ttx()
   
3.   (vl-load-com)
   
4.   (setvar "cmdecho" 0)
   
5.   (setvar "osmode" 0)
   
6.   (setq b (getreal "\n输入线性比例<0.05>"))
   
7.   (if (or (= b nil)(= b 0))
   
8.     (setq b 0.05)
   
9.   )
   
10.   (setq s 0)
    
11.   (if (setq ss (ssget '((0 . "*POLYLINE"))))
    
12.     (progn
    
13.       (setq i -1)
    
14.       (command "layer"  "n" "填充" "c" 4   "填充" "s" "填充" "" )
    
15.       (repeat (sslength ss)
    
16.         (setq en (ssname ss (setq i (1+ i)))) ;_图元名
    
17.         (setq ent (entget en))
    
18.     (if (= i 0)
    
19.             (command "_bhatch" "p" "TRIANG" b "0" "s" en "" "")
    
20.     )
    
21.     (if (= i 1)
    
22.             (command "_bhatch" "p" "GRAVEL" b "0" "s" en "" "")
    
23.     )
    
24.     (if (= i 2)
    
25.             (command "_bhatch" "p" "HEX" b "0" "s" en "" "")
    
26.     )
    
27.     (if (= i 3)
    
28.             (command "_bhatch" "p" "HONEY" b "0" "s" en "" "")
    
29.     )
    
30.     (if (= i 4)
    
31.             (command "_bhatch" "p" "MUDST" b "0" "s" en "" "")
    
32.     )
    
33.     (if (= i 5)
    
34.             (command "_bhatch" "p" "PLAST" b "0" "s" en "" "")
    
35.     )
    
36.     (if (= i 6)
    
37.             (command "_bhatch" "p" "SQUARE" b "0" "s" en "" "")
    
38.     )
    
39.     (if (= i 7)
    
40.             (command "_bhatch" "p" "TRANS" b "0" "s" en "" "")
    
41.     )
    
42.     (if (= i 8)
    
43.             (command "_bhatch" "p" "PLASTI" b "0" "s" en "" "")
    
44.     )
    
45.     (if (= i 9)
    
46.             (command "_bhatch" "p" "NET" b "0" "s" en "" "")
    
47.     )
    
48.     (if (= i 10)
    
49.             (command "_bhatch" "p" "ZIGZAG" b "0" "s" en "" "")
    
50.     )
    
51.     (if (= i 11)
    
52.             (command "_bhatch" "p" "STEEL" b "0" "s" en "" "")
    
53.     )
    
54.     (if (= i 12)
    
55.             (command "_bhatch" "p" "NET3" b "0" "s" en "" "")
    
56.     )
    
57.     (if (= i 13)
    
58.             (command "_bhatch" "p" "BRICK" b "0" "s" en "" "")
    
59.     )
    
60.     (if (= i 14)
    
61.             (command "_bhatch" "p" "BOX" b "0" "s" en "" "")
    
62.     )
    
63.     (if (= i 15)
    
64.             (command "_bhatch" "p" "HOUND" b "0" "s" en "" "")
    
65.     )
    
66.         )
    
67.       )
    
68.     )
    
69. )

(defun c:ttx()<br />   (vl-load-com)<br />   (setvar "cmdecho" 0)<br />   (setvar "osmode" 0)<br />   (setq b (getreal "\n输入线性比例<0.05>"))<br />   (if (or (= b nil)(= b 0))<br />     (setq b 0.05)<br />   )<br />   (setq s 0)<br />   (if (setq ss (ssget '((0 . "*POLYLINE"))))<br />     (progn<br />       (setq i -1)<br />       (command "layer"  "n" "填充" "c" 4   "填充" "s" "填充" "" )<br />       (repeat (sslength ss)<br />         (setq en (ssname ss (setq i (1+ i)))) ;_图元名<br />         (setq ent (entget en))<br />     (if (= i 0)<br />             (command "_bhatch" "p" "TRIANG" b "0" "s" en "" "") <br />     )<br />     (if (= i 1)<br />             (command "_bhatch" "p" "GRAVEL" b "0" "s" en "" "") <br />     )<br />     (if (= i 2)<br />             (command "_bhatch" "p" "HEX" b "0" "s" en "" "") <br />     )<br />     (if (= i 3)<br />             (command "_bhatch" "p" "HONEY" b "0" "s" en "" "") <br />     )<br />     (if (= i 4)<br />             (command "_bhatch" "p" "MUDST" b "0" "s" en "" "") <br />     )<br />     (if (= i 5)<br />             (command "_bhatch" "p" "PLAST" b "0" "s" en "" "") <br />     )<br />     (if (= i 6)<br />             (command "_bhatch" "p" "SQUARE" b "0" "s" en "" "") <br />     )<br />     (if (= i 7)<br />             (command "_bhatch" "p" "TRANS" b "0" "s" en "" "") <br />     )<br />     (if (= i 8)<br />             (command "_bhatch" "p" "PLASTI" b "0" "s" en "" "") <br />     )<br />     (if (= i 9)<br />             (command "_bhatch" "p" "NET" b "0" "s" en "" "") <br />     )<br />     (if (= i 10)<br />             (command "_bhatch" "p" "ZIGZAG" b "0" "s" en "" "") <br />     )<br />     (if (= i 11)<br />             (command "_bhatch" "p" "STEEL" b "0" "s" en "" "") <br />     )<br />     (if (= i 12)<br />             (command "_bhatch" "p" "NET3" b "0" "s" en "" "") <br />     )<br />     (if (= i 13)<br />             (command "_bhatch" "p" "BRICK" b "0" "s" en "" "") <br />     )<br />     (if (= i 14)<br />             (command "_bhatch" "p" "BOX" b "0" "s" en "" "") <br />     )<br />     (if (= i 15)<br />             (command "_bhatch" "p" "HOUND" b "0" "s" en "" "") <br />     )<br />         )<br />       )<br />     )<br /> )

Gu_xl

将填充图案列成表
(setq l '( "TRIANG" "GRAVEL" ...)
(repeat (sslength ss)
...
(setq k (rem i 16))
(command "_bhatch" "p" (nth k l) b "0" "s" en "" "")
)

ZZXXQQ

1. ;循环填充 明经 zzmm 2012.12.13 ZZXXQQ 改
   
2. (defun c:ttx()
   
3. (vl-load-com)
   
4. (setvar "cmdecho" 0)
   
5. (setvar "osmode" 0)
   
6. (setq b (getreal "\n输入线性比例<0.05>"))
   
7. (if (or (= b nil)(= b 0)) (setq b 0.05))
   
8. (setq s 0)
   
9. (if (setq ss (ssget '((0 . "*POLYLINE")))) (progn
   
10.   (setq i -1)
    
11.   (command "layer" "M" "填充" "c" 4 "" "")
    
12.   (setq hlst
    
13.    '("TRIANG" "GRAVEL" "HEX" "HONEY" "MUDST" "PLAST" "SQUARE" "TRANS"
    
14.    "PLASTI" "NET" "ZIGZAG" "STEEL" "NET3" "BRICK" "BOX" "HOUND"))
    
15.   (repeat (sslength ss)
    
16.    (setq en (ssname ss (setq i (1+ i)))) ;_图元名
    
17. ;   (setq ent (entget en))
    
18.    (setq hname (nth (rem i 16) hlst))
    
19.    (command "_bhatch" "p" hname b "0" "s" en "" "")
    
20.   )
    
21. ))
    
22. (princ)
    
23. )
    

;循环填充 明经 zzmm 2012.12.13 ZZXXQQ 改<br /> (defun c:ttx()<br /> (vl-load-com)<br /> (setvar "cmdecho" 0)<br /> (setvar "osmode" 0)<br /> (setq b (getreal "\n输入线性比例<0.05>"))<br /> (if (or (= b nil)(= b 0)) (setq b 0.05))<br /> (setq s 0)<br /> (if (setq ss (ssget '((0 . "*POLYLINE")))) (progn<br />   (setq i -1)<br />   (command "layer" "M" "填充" "c" 4 "" "")<br />   (setq hlst<br />    '("TRIANG" "GRAVEL" "HEX" "HONEY" "MUDST" "PLAST" "SQUARE" "TRANS"<br />    "PLASTI" "NET" "ZIGZAG" "STEEL" "NET3" "BRICK" "BOX" "HOUND"))<br />   (repeat (sslength ss)<br />    (setq en (ssname ss (setq i (1+ i)))) ;_图元名<br /> ;   (setq ent (entget en))<br />    (setq hname (nth (rem i 16) hlst))<br />    (command "_bhatch" "p" hname b "0" "s" en "" "") <br />   )<br /> ))<br /> (princ)<br /> )<br />

wowan1314

选择集应该排个序吧。不然都看不出是按顺序填充的不同图案了。

xyp1964

2. 
   
3. (defun c:tt ()
   
4. (setq lst '("TRIANG" "GRAVEL" "HEX" "HONEY" "MUDST" "PLAST" "SQUARE" "TRANS" "PLASTI" "NET" "ZIGZAG" "STEEL" "NET3" "BRICK" "BOX" "HOUND")
   
5. i   -1
   
6.   )
   
7.   (xyp-MkLaCo "填充" 4)
   
8.   (if (setq ss (ssget '((0 . "*POLYLINE"))))
   
9.     (while (setq s1 (ssname ss (setq i (1+ i))))
   
10.       (setq name (nth (rem i 16) lst))
    
11.       (command "_bhatch" "p" name 1 0 "s" s1 "" "")
    
12.     )
    
13.   )
    
14.   (princ)
    
15. )
    

<br /> (defun c:tt ()<br /> (setq lst '("TRIANG" "GRAVEL" "HEX" "HONEY" "MUDST" "PLAST" "SQUARE" "TRANS" "PLASTI" "NET" "ZIGZAG" "STEEL" "NET3" "BRICK" "BOX" "HOUND")<br /> i   -1<br />   )<br />   (xyp-MkLaCo "填充" 4)<br />   (if (setq ss (ssget '((0 . "*POLYLINE"))))<br />     (while (setq s1 (ssname ss (setq i (1+ i))))<br />       (setq name (nth (rem i 16) lst))<br />       (command "_bhatch" "p" name 1 0 "s" s1 "" "")<br />     )<br />   )<br />   (princ)<br /> )<br />

zzmm

填充 图案的填充比例是整体去统计的
问：图案填充比例能否根据整体调整的 也可以根据 dat 文件 单一的去改动 填充样式与填充比例吗？
      也就是说 首先设定 dat文件里的 样式 与 比例 在次运行程序时可以根据dat文件里面的样式比例来做到？

wowan1314

(command "_.bhatch" "s" SS "" "P" "图案名称" "填充比例" "0" "")

自己调试看看(command "_.bhatch")然后看它的选项有哪些

阿酱

wowan1314 发表于 2012-12-14 10:11
(command "_.bhatch" "s" SS "" "P" "图案名称" "填充比例" "0" "")

自己调试看看(command "_.bhatch")然 ...

高手啊，，，我好郁闷啊