有没有批量偏移一定距离（向内或向外）封闭四边形的程序？

风青c · 发表于 2019-7-7 16:10:33

本帖最后由风青c 于 2019-7-7 16:12 编辑

例如，我要批量向内或向外偏移15下面所有的四边形，有没有这种程序？

王鹏_pBZlo · 发表于 2019-7-7 16:10:34

[quote]风青c 发表于 2019-7-7 18:43
这是啥原因呢？(defun c:tt()
(setq SS (ssget (list (cons 0

第2段的前2句中的car改为cdr
来自: 微社区

王鹏_pBZlo · 发表于 2019-7-7 17:51:38

只要能找出四边形内部的一点和外部的一点，就能够用offset命令来实现了
来自: 微社区

王鹏_pBZlo · 发表于 2019-7-7 18:13:55

(defun c:tt()
(setq SS (ssget (list (cons 0 "lwpolyline"))))
(setq ofd (getdist "\n 偏移距离:"))
(setq io (strcase (getstring "\n 向内(I)/向外(O):")))
(setq i -1)
(while (setq pl (ssname ss (setq I (1+ I))))
(setq par (entget pl))
(setq p1 (cdr (assoc 10 par)))
来自: 微社区

王鹏_pBZlo · 发表于 2019-7-7 18:28:41

(setq par (car (member (assoc 10 par) par)))
(setq par (car (member (assoc 10 par) par)))
(setq p2 (cdr (assoc 10 par)))
(setq dpx (- (nth 0 p2) (nth 0 p1)))
(setq dpy (- (nth 1 p2) (nth 1 p1)))
(setq p3 (list (+ (nth 0 p1) (* 0.5 dpx))(+ (nth 1 p1)(* 0.5 dpy))))
来自: 微社区

王鹏_pBZlo · 发表于 2019-7-7 18:34:36

(setq p4 (list (+ (nth 0 p1) (* 1.5 dpx))(+ (nth 1 p1)(* 1.5 dpy))))
(if (= io "O") (setq p3 p4))
(setvar "osmode" 0)
(command "offset" pl "d" ofd p3 "")
)(princ))
来自: 微社区

王鹏_pBZlo · 发表于 2019-7-7 18:36:32

手机上难打字，且每段回复好像有字数限制。把上面几段连在一起试试
来自: 微社区

风青c · 发表于 2019-7-7 18:43:06

本帖最后由风青c 于 2019-7-7 18:46 编辑

王鹏_pBZlo 发表于 2019-7-7 18:36
手机上难打字，且每段回复好像有字数限制。把上面几段连在一起试试

这是啥原因呢？(defun c:tt()
(setq SS (ssget (list (cons 0 "lwpolyline"))))
(setq ofd (getdist "\n 偏移距离:"))
   (setq io (strcase (getstring "\n 向内(I)/向外(O):")))
  (setq i -1)
(while (setq pl (ssname ss (setq I (1+ I))))
(setq par (entget pl))
(setq p1 (cdr (assoc 10 par)))
(setq par (car (member (assoc 10 par) par)))
(setq par (car (member (assoc 10 par) par)))
(setq p2 (cdr (assoc 10 par)))
(setq dpx (- (nth 0 p2) (nth 0 p1)))
(setq dpy (- (nth 1 p2) (nth 1 p1)))
(setq p3 (list (+ (nth 0 p1) (* 0.5 dpx))(+ (nth 1 p1)(* 0.5 dpy))))
(setq p4 (list (+ (nth 0 p1) (* 1.5 dpx))(+ (nth 1 p1)(* 1.5 dpy))))
(if (= io "O") (setq p3 p4))
(setvar  "osmode" 0)
(command "offset" pl "d" ofd p3 "")
)(princ))

王鹏_pBZlo · 发表于 2019-7-7 19:14:47

可以了吗？注意坐标系不是世界坐标系时会出错。答复内外时如果回答了其它均会默认向内偏移。火车上用手机答复，尽量简化了
来自: 微社区

王鹏_pBZlo · 发表于 2019-7-7 19:19:56

可以了吗？注意坐标系不是世界坐标系时会出错。答复内外时如果回答了其它均会默认向内偏移。火车上用手机答复，尽量简化了
来自: 微社区

风青c · 发表于 2019-7-8 05:28:47

王鹏_pBZlo 发表于 2019-7-7 19:19
可以了吗？注意坐标系不是世界坐标系时会出错。答复内外时如果回答了其它均会默认向内偏移。火车上用手机答 ...

已经可以了，谢谢大师。
来自: 微社区

yangjian001 · 发表于 2019-7-8 07:07:48

谢谢楼主分享

王鹏_pBZlo · 发表于 2019-8-7 13:36:24

本帖最后由王鹏_pBZlo 于 2019-8-7 16:54 编辑

王鹏_pBZlo · 发表于 2019-8-7 16:17:28

本帖最后由王鹏_pBZlo 于 2019-8-7 17:34 编辑

适应于任意封闭多义线,封闭样条线,圆
命令: PY

xdzcp · 发表于 2019-8-30 09:35:00

王鹏_pBZlo 发表于 2019-8-7 16:17
适应于任意封闭多义线,封闭样条线,圆
命令: PY

大师（向内或向外）是可以新建图层分开吗？

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

[已解决] 有没有批量偏移一定距离（向内或向外）封闭四边形的程序？

最佳答案