偏移后自动两端封头

xyp1964

fan_zh

感谢版主出手

我希望的是能有如附件效果

xyp1964

fan_zh 发表于 2014-2-20 13:08
感谢版主出手

我希望的是能有如附件效果

fan_zh

版主，看上去正是需要的
能否pm试用下啊

xyp1964

2. ;; 多边形边长外侧偏移封闭 2014年2月20日
   
3. ;; 需要e派工具箱(XCAD)的支持：http://yunpan.cn/QXQKsW9gAPmpF
   
4. ;; http://bbs.mjtd.com/thread-109219-1-1.html
   
5. (defun c:test1520 ()
   
6.   (xyp-CMDLA0)
   
7.   (setq dist (Udist 1 "" "偏移距离<输入或鼠标直接量取>" dist nil)
   
8.         i -1
   
9.         s0 (entlast)
   
10.   )
    
11.   (xyp-MkLaCo "TEST" 1)
    
12.   (if (setq ss (ssget '((0 . "LINE,*polyline"))))
    
13.     (progn
    
14.       (while (setq s1 (ssname ss (setq i (1+ i))))
    
15.         (setq ptn (xyp-get-Vertexs s1 0))
    
16.         (if (= (xyp-DXF 70 s1) 1)
    
17.           (setq ptn (cons (last ptn) ptn))
    
18.         )
    
19.         (if (= (length ptn) 2)
    
20.           (progn
    
21.             (xyp-Offset s1 dist t nil nil)
    
22.             (setq s2 (entlast))
    
23.             (xyp-line (vlax-curve-getStartPoint s1)(vlax-curve-getStartPoint s2))
    
24.             (xyp-line (vlax-curve-getEndPoint s1)(vlax-curve-getEndPoint s2))
    
25.           )
    
26.           (progn
    
27.             (setq ptn (xyp-Ptn2CCW ptn)
    
28.                   j   0
    
29.             )
    
30.             (while (and (setq p1 (nth j ptn))
    
31.                         (setq p2 (nth (setq j (1+ j)) ptn))
    
32.                    )
    
33.               (xyp-LineOffset p2 p1 dist)
    
34.               (setq s2 (entlast))
    
35.               (xyp-line p1 (vlax-curve-getEndPoint s2))
    
36.               (xyp-line p2 (vlax-curve-getStartPoint s2))
    
37.             )
    
38.           )
    
39.         )
    
40.       )
    
41.       (xyp-PeditJoin (xyp-SSelEntnext s0) 0)
    
42.     )
    
43.   )
    
44.   (xyp-CMDLA1)
    
45. )

;; 多边形边长外侧偏移封闭 2014年2月20日<br /> ;; 需要e派工具箱(XCAD)的支持：http://yunpan.cn/QXQKsW9gAPmpF<br /> ;; http://bbs.mjtd.com/thread-109219-1-1.html<br /> (defun c:test1520 ()<br />   (xyp-CMDLA0)<br />   (setq dist (Udist 1 "" "偏移距离<输入或鼠标直接量取>" dist nil)<br />         i -1<br />         s0 (entlast)<br />   )<br />   (xyp-MkLaCo "TEST" 1)<br />   (if (setq ss (ssget '((0 . "LINE,*polyline"))))<br />     (progn<br />       (while (setq s1 (ssname ss (setq i (1+ i))))<br />         (setq ptn (xyp-get-Vertexs s1 0))<br />         (if (= (xyp-DXF 70 s1) 1)<br />           (setq ptn (cons (last ptn) ptn))<br />         )<br />         (if (= (length ptn) 2)<br />           (progn<br />             (xyp-Offset s1 dist t nil nil)<br />             (setq s2 (entlast))<br />             (xyp-line (vlax-curve-getStartPoint s1)(vlax-curve-getStartPoint s2))<br />             (xyp-line (vlax-curve-getEndPoint s1)(vlax-curve-getEndPoint s2))<br />           )<br />           (progn<br />             (setq ptn (xyp-Ptn2CCW ptn)<br />                   j   0<br />             )<br />             (while (and (setq p1 (nth j ptn))<br />                         (setq p2 (nth (setq j (1+ j)) ptn))<br />                    )<br />               (xyp-LineOffset p2 p1 dist)<br />               (setq s2 (entlast))<br />               (xyp-line p1 (vlax-curve-getEndPoint s2))<br />               (xyp-line p2 (vlax-curve-getStartPoint s2))<br />             )<br />           )<br />         )<br />       )<br />       (xyp-PeditJoin (xyp-SSelEntnext s0) 0)<br />     )<br />   )<br />   (xyp-CMDLA1)<br /> )

lucas_3333

1. (defun c:hatsoff ( / ss e ent fp sp el el2 elj)
   
2. (setvar 'cmdecho 0)      
   
3.              
   
4. (if     (and  (setq dist (getdist "\nEnter Offset Distance: "))  
   
5.                       (setq ss (ssget '((0 . "LWPOLYLINE")))))
   
6. (repeat (sslength ss)
   
7.     (if (and
   
8.         (setq e (ssname ss 0))
   
9.         (setq ent (entget e))
   
10.         (setq  fp (assoc 10 ent) ent (member fp ent)
    
11.                sp (cdr (assoc 10 (cdr ent))) fp (cdr fp))
    
12.         (setq fp (polar fp (setq ang (+ (angle fp sp) (/ pi 2.0)))  dist))
    
13.         (not (command "_offset"  dist e "_non" fp "E"))
    
14.         (setq el (entlast))
    
15.         (not (eq el e))
    
16.         (not (command "_offset"  dist e "_non" (setq sp (polar fp (+ ang pi) (+ dist dist))) "E"))
    
17.         (setq el2 (entlast))
    
18.         (not (eq el el2)))
    
19.                 (progn
    
20.                        (if (= 1 (cdr (assoc 70 (entget el))))
    
21.                         (command "_hatch" "ANSI31" "" "" "_s" el el2 "")
    
22.                         (progn  
    
23.                         (command "_pline" "_non" fp "_non" sp "")
    
24.                         (command "_pedit" "_multiple" el el2 (entlast) "" "_join" "" "")
    
25.                         (setq elj (entget (entlast)))
    
26.                         (entmod (subst '(70 . 1) (assoc 70  elj) elj))
    
27.                         (setvar 'Hpname "ANSI31")
    
28.                         (command "_hatch" "" "" ""  (entlast) "")
    
29.                         )
    
30.                           )
    
31.                 )
    
32.         )
    
33.         (ssdel e ss)
    
34.       )
    
35. )
    
36.               (princ)
    
37.              )

(defun c:hatsoff ( / ss e ent fp sp el el2 elj)<br /> (setvar 'cmdecho 0)      <br />               <br /> (if     (and  (setq dist (getdist "\nEnter Offset Distance: "))  <br />                       (setq ss (ssget '((0 . "LWPOLYLINE")))))<br /> (repeat (sslength ss)<br />     (if (and<br />         (setq e (ssname ss 0))<br />         (setq ent (entget e))<br />         (setq  fp (assoc 10 ent) ent (member fp ent)<br />                sp (cdr (assoc 10 (cdr ent))) fp (cdr fp))<br />         (setq fp (polar fp (setq ang (+ (angle fp sp) (/ pi 2.0)))  dist))<br />         (not (command "_offset"  dist e "_non" fp "E"))<br />         (setq el (entlast))<br />         (not (eq el e))<br />         (not (command "_offset"  dist e "_non" (setq sp (polar fp (+ ang pi) (+ dist dist))) "E"))<br />         (setq el2 (entlast))<br />         (not (eq el el2)))<br />                 (progn<br />                        (if (= 1 (cdr (assoc 70 (entget el))))<br />                         (command "_hatch" "ANSI31" "" "" "_s" el el2 "")<br />                         (progn  <br />                         (command "_pline" "_non" fp "_non" sp "")<br />                         (command "_pedit" "_multiple" el el2 (entlast) "" "_join" "" "")<br />                         (setq elj (entget (entlast)))<br />                         (entmod (subst '(70 . 1) (assoc 70  elj) elj))<br />                         (setvar 'Hpname "ANSI31")<br />                         (command "_hatch" "" "" ""  (entlast) "")<br />                         )<br />                           )<br />                 )<br />         )<br />         (ssdel e ss)<br />       )<br /> )<br />               (princ)<br />              )

贴一段类似的代码

fan_zh

感谢版主及楼上

lucas_3333

fan_zh 发表于 2014-2-27 10:33
感谢版主及楼上

不客气，大家共同学习

hgf876

学习了

放羊去的

学习中，膜拜中