多边形一次内偏移2个距离 并延伸到外框

zhuzhi1631

多边形一次内偏移2个距离
并延伸到外框

start4444

zhuzhi1631 发表于 2019-12-2 15:16
就是出现这种情况

这个只应付矩形，其他形不行
(defun c:tt5 (/ d1 d2 enn i lst ptc ss)
        (setq  D1 (getdist "\n偏移距离1:") D2 (getdist "\n偏移距离2:") ss (ssget) i -1)
        (while (setq enn (ssname ss (setq i (1+ i))))
                (setq lst  (juxing4pt enn)  ptc (inters (car lst) (caddr lst) (cadr lst) (cadddr lst) nil))
                (mapcar  '(lambda (x)          (command "OFFSET" x enn "non" ptc "") (setq lst2 (juxing4pt (entlast))) (command "EXPLODE" (entlast) "" "EXTEND" enn "" "f" "non" (car lst2) "non" (cadr lst2) "non" (caddr lst2) "non" (cadddr lst2) "non" (car lst2) "" "")) (list D1 (+ D1 D2)))
        );while
        (princ)
)
(defun juxing4pt (enn / ent lst p1 p2 p3 p4)
        (setq ent (entget enn))
        (setq lst (list))
        (foreach x ent (if (= (car x) 10) (setq lst (cons (cdr x) lst))))
        (setq p1 (car lst) p2 (cadr lst)
                p3 (caddr lst) p4 (last lst))
        (list p1 p2 p3 p4)
)

start4444

直接画8根线就得了

zhuzhi1631

start4444 发表于 2019-12-1 23:57
直接画8根线就得了

主要是需要重复性做 大神帮忙写下

start4444

zhuzhi1631 发表于 2019-12-2 11:28
主要是需要重复性做 大神帮忙写下

试试看············

zhuzhi1631

start4444 发表于 2019-12-2 11:33
试试看············

谢谢大神，上下右边都可以 就是左边的没延长，麻烦大神再改一下在加个记忆上次数据功能

start4444

zhuzhi1631 发表于 2019-12-2 14:47
谢谢大神，上下右边都可以 就是左边的没延长，麻烦大神再改一下在加个记忆上次数据功能

截图说明问题

zhuzhi1631

start4444 发表于 2019-12-2 15:05
截图说明问题

就是出现这种情况

start4444

zhuzhi1631 发表于 2019-12-2 15:16
就是出现这种情况

补充了一下，可以适用多边形了

bai2000

为什么总出现：VVC: Internal Error 大神们能出个解决方案么？