【e派】自定义填充图案

xyp1964

zhouwanweihf 发表于 2014-6-13 23:24
见附件，其中产品直径是可变的.

螺旋纹理.pat

zhouwanweihf

xyp1964 发表于 2014-6-14 10:31
螺旋纹理.pat

感谢你的回复，

我需要的是这样的：
一个圆内部只填充一个螺旋纹理，以圆心为中心点，纹理可随圆大小而变化.

Excel2119

实在是佩服的一塌糊涂

xyp1964

zhouwanweihf 发表于 2014-6-15 09:42
感谢你的回复，

我需要的是这样的：

1. (defun c:tt ()
   
2.   (xyp-CMDLA0)
   
3.   (setq i -1)
   
4.   (if (setq ss (ssget '((0 . "CIRCLE"))))
   
5.     (while (setq s1 (ssname ss (setq i (1+ i))))
   
6.       (setq pt (xyp-DXF 10 s1)
   
7.             rr (/ (xyp-DXF 40 s1) 50.)
   
8.       )
   
9.       (command "ucs" "n" pt)
   
10.       (command "hatch" "螺旋纹理" rr (* (xyp-rand)1000) s1 "")
    
11.       (command "ucs" "")
    
12.     )
    
13.   )
    
14.   (xyp-CMDLA1)
    
15. )
    

(defun c:tt ()<br />   (xyp-CMDLA0)<br />   (setq i -1)<br />   (if (setq ss (ssget '((0 . "CIRCLE"))))<br />     (while (setq s1 (ssname ss (setq i (1+ i))))<br />       (setq pt (xyp-DXF 10 s1)<br />             rr (/ (xyp-DXF 40 s1) 50.)<br />       )<br />       (command "ucs" "n" pt)<br />       (command "hatch" "螺旋纹理" rr (* (xyp-rand)1000) s1 "")<br />       (command "ucs" "")<br />     )<br />   )<br />   (xyp-CMDLA1)<br /> )<br />

zhouwanweihf

非常感谢，正是我想要的，但我使用时出现错误，如何解决呢？

xyp1964

;; 横平竖直及对角线的都简单

1. ;; xyp-MkPat (xyp-MkPat 基点 起点 终点 单元宽度 单元高度);; delta-x:x轴位移;delta-y:y轴位移;dash-1画线长;dash-2空移长
   
2. (defun xyp-MkPat (p0 p1 p2 dx dy / rad ang ang0        ang01 ll dash-1        dash-2 x-origin        y-origin dash-2        delta-x        delta-y delta-y1)
   
3.   (setq  rad (angle p1 p2)
   
4.         ang (xyp-r2d rad)
   
5.         lst (list p1 p2)
   
6.   )
   
7.   (if (and (>= ang 180) (not (equal ang 360 1e-5)))
   
8.     (setq p2 (car lst)
   
9.           p1 (cadr lst)
   
10.     )
    
11.   )
    
12.   (setq        p0         (xyp-3d2d p0)
    
13.         p1         (xyp-3d2d p1)
    
14.         p2         (xyp-3d2d p2)
    
15.         p1         (mapcar '- p1 p0)
    
16.         p2         (mapcar '- p2 p0)
    
17.         rad         (angle p1 p2)
    
18.         ang         (xyp-r2d rad)   ; 角度
    
19.         dash-1         (distance p1 p2)  ; 线长
    
20.         r0         (angle '(0 0) (list dx dy))
    
21.         ang0         (xyp-r2d r0)  ; 矩形对角线角度
    
22.         ang01         (angle '(0 0) (list (- dx) dy))
    
23.         ll         (distance '(0 0) (list dx dy))   ; 矩形对角线长度
    
24.         x-origin (car p1)
    
25.         y-origin (cadr p1)
    
26.         dash-2         (- dash-1 ll)
    
27.         delta-x         (* dx (cos r0))
    
28.         delta-y         (* dx (sin r0))
    
29.         delta-y1 (- delta-y)
    
30.   )
    
31.   (cond        ((equal y-origin (cadr p2) 1e-5)  ;水平方向
    
32.          (list ang x-origin y-origin dx dy dash-1 (- dash-1 dx))
    
33.         )
    
34.         ((equal x-origin (car p2) 1e-5)  ; 垂直方向
    
35.          (list ang x-origin y-origin dy dx dash-1 (- dash-1 dy))
    
36.         )
    
37.         ((equal ang ang0 1e-5)  ;对角线方向(第1象限)
    
38.          (list ang x-origin y-origin delta-x delta-y1 dash-1 dash-2)
    
39.         )
    
40.         ((equal rad ang01 1e-5)   ; 对角线方向(第2象限)
    
41.          (list ang x-origin y-origin delta-x delta-y dash-1 dash-2)
    
42.         )
    
43.         (t (xyp-PattenCal p1 p2 dx dy))   ;★ 其它方向，这个是难度之处★
    
44.   )
    
45. )

;; xyp-MkPat (xyp-MkPat 基点 起点 终点 单元宽度 单元高度);; delta-x:x轴位移;delta-y:y轴位移;dash-1画线长;dash-2空移长<br /> (defun xyp-MkPat (p0 p1 p2 dx dy / rad ang ang0        ang01 ll dash-1        dash-2 x-origin        y-origin dash-2        delta-x        delta-y delta-y1)<br />   (setq  rad (angle p1 p2)<br />         ang (xyp-r2d rad)<br />         lst (list p1 p2)<br />   )<br />   (if (and (>= ang 180) (not (equal ang 360 1e-5)))<br />     (setq p2 (car lst)<br />           p1 (cadr lst)<br />     )<br />   )<br />   (setq        p0         (xyp-3d2d p0)<br />         p1         (xyp-3d2d p1)<br />         p2         (xyp-3d2d p2)<br />         p1         (mapcar '- p1 p0)<br />         p2         (mapcar '- p2 p0)<br />         rad         (angle p1 p2)<br />         ang         (xyp-r2d rad)   ; 角度<br />         dash-1         (distance p1 p2)  ; 线长<br />         r0         (angle '(0 0) (list dx dy))<br />         ang0         (xyp-r2d r0)  ; 矩形对角线角度<br />         ang01         (angle '(0 0) (list (- dx) dy))<br />         ll         (distance '(0 0) (list dx dy))   ; 矩形对角线长度<br />         x-origin (car p1)<br />         y-origin (cadr p1)<br />         dash-2         (- dash-1 ll)<br />         delta-x         (* dx (cos r0))<br />         delta-y         (* dx (sin r0))<br />         delta-y1 (- delta-y)<br />   )<br />   (cond        ((equal y-origin (cadr p2) 1e-5)  ;水平方向<br />          (list ang x-origin y-origin dx dy dash-1 (- dash-1 dx))<br />         )<br />         ((equal x-origin (car p2) 1e-5)  ; 垂直方向<br />          (list ang x-origin y-origin dy dx dash-1 (- dash-1 dy))<br />         )<br />         ((equal ang ang0 1e-5)  ;对角线方向(第1象限)<br />          (list ang x-origin y-origin delta-x delta-y1 dash-1 dash-2)<br />         )<br />         ((equal rad ang01 1e-5)   ; 对角线方向(第2象限)<br />          (list ang x-origin y-origin delta-x delta-y dash-1 dash-2)<br />         )<br />         (t (xyp-PattenCal p1 p2 dx dy))   ;★ 其它方向，这个是难度之处★ <br />   )<br /> )

风树

很好                             

xyp1964

acad帮助从没能把自定义填充图案的原理讲清楚

裤裆有异味

精品啊    ，
干得上里正的制作插件了

hooboxu

长见识了，明天研究下