偏移后自动两端封头

fan_zh · 发表于 2014-2-20 13:08:11

本帖最后由 fan_zh 于 2014-2-20 13:09 编辑

感谢版主出手

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

xyp1964 · 发表于 2014-2-20 15:17:49

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

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

fan_zh · 发表于 2014-2-20 15:53:00

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

xyp1964 · 发表于 2014-2-20 18:30:57

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

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

lucas_3333 · 发表于 2014-2-26 17:30:50

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

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

贴一段类似的代码

fan_zh · 发表于 2014-2-27 10:33:01

感谢版主及楼上

lucas_3333 · 发表于 2014-2-27 20:16:51

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

不客气，大家共同学习

hgf876 · 发表于 2014-3-1 10:57:17

学习了

放羊去的 · 发表于 2014-9-3 11:25:59

学习中，膜拜中

账号		自动登录	找回密码
密码			注册

[提问] 偏移后自动两端封头

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源

评分