求助 多个图元 内部偏移

luwei5593315

请教一下大佬们，多个图元向内部偏移怎么做，目前最接近的是贱人工具箱的双向偏移

统一网名

• (defun c:tt (/ ename i len pycs pyjl s ss v)
•   (setq
•     ss (ssget '((0 . "LWPOLYLINE")))
•     pyjl (getreal "/n 输入偏移距离")
•     pycs (getint "/n 输入偏移次数")
•   )
•   (repeat (setq len (sslength ss))
•     (setq ename (ssname ss (setq len (1- len))))
•     (setq v (cdr (assoc 90 (entget ename))))
•     (setq i 1)
•     (repeat pycs
•       (if(< v 5)
•         (vla-offset (vlax-ename->vla-object ename) (* pyjl i))
•         (vla-offset (vlax-ename->vla-object ename) (* pyjl i -1))
•       )
•       (vla-put-Color (vlax-ename->vla-object (entlast)) 3)
•       (setq i (1+ i))
•     )
•   )
•   (princ)
• )
  

lzspain

谜你工具箱可以，命令: MINI_BO_INTER，【内偏移内轮廓】选择多个实体，智能生成内轮廓，对轮廓可进行内偏移或其他处理

null.

你先发程序，才能知道，你的问题是1个，还是无限个。

你有种再说一遍

点偏移就是pt+ve,
线偏移就是pt1+ve1,pt2+ve2,然后联立方程得到交点.
面偏移就是...得到交线

luwei5593315

统一网名 发表于 2025-1-22 20:53

(defun c:tt (/ ename i len pycs pyjl s ss v)

  (setq

    ss (ssget '((0 . "LWPOLY ...

谢谢大佬。实测过程中，自己画的封闭图形向内，原图纸有的向内 有的向外，有的双向

luwei5593315

lzspain 发表于 2025-1-22 17:52
谜你工具箱可以，命令: MINI_BO_INTER，【内偏移内轮廓】选择多个实体，智能生成内轮廓，对轮廓可进行内偏 ...

谢谢大佬 ，实测中 这个最适用 目前没发现什么BUG