注册 发表于 2013-1-7 20:58:05

如何批量偏移单线到当前图层且偏移后自动倒角

如图，左边为批量偏移前，为两条在wall层的单线line，右边为批量偏移后的效果，能批量偏移出某段距离的在当前层的两条线，且该两条线自动倒角，谢谢。论坛搜索了一下，批量偏移到当前层的资源有，比如院长的plpy。vlx，但偏移后无法自动倒角

Keenir 发表于 2017-11-7 17:13:25

楼主，有没有完整的程序呢

Andyhon 发表于 2013-1-7 21:45:50

...批量偏移...

既是 批量偏移 那么得先知道如何选取对象
对象只此两线 or

注册 发表于 2013-1-7 21:56:00

Andyhon 发表于 2013-1-7 21:45 static/image/common/back.gif
...批量偏移...

既是 批量偏移 那么得先知道如何选取对象


最多4线，首尾相连，可以吗，老大

Andyhon 发表于 2013-1-7 21:58:21

先串接再 Offset 可乎?

注册 发表于 2013-1-7 21:59:00

Andyhon 发表于 2013-1-7 21:58 static/image/common/back.gif
先串接再 Offset 可乎?

可以啊，有吗，老大

Andyhon 发表于 2013-1-7 22:32:37

you might try ...
(defun c:test ()
   (setq ss (ssget))      ; 选 二/四 线可串接

   (setvar 'PeditAccept 1)
   (setvar 'OffsetDist 1000)          ; 距离 自定之
   
   (command "Pedit" "M" ss "" "j" 0.0 "")
   (setq ee (entlast)
      pts (acet-ent-geomextents ee)
         p5 (apply 'acet-geom-midpoint pts)
         pt (car pts)
   )
   (command "offset" "" (list ee pt) (polar pt (angle p5 pt) 1) "")
   (command "Chprop" (entlast) "" "La" (Getvar 'Clayer) "")
)

注册 发表于 2013-1-8 08:17:43

Andyhon 发表于 2013-1-7 22:32 static/image/common/back.gif
you might try ...

3ku，old big，哈哈

注册 发表于 2013-1-8 08:26:20

Andyhon 发表于 2013-1-7 22:32 static/image/common/back.gif
you might try ...

(setvar 'OffsetDist 1000)          ; 距离 自定之
这一句可以改成自己手动输入距离吗，老大，happy 末日宁

zyhandw 发表于 2013-1-8 08:41:16

注册 发表于 2013-1-8 08:17 static/image/common/back.gif
3ku，old big，哈哈

这个"old big"真亮！

daidong013 发表于 2013-1-8 09:22:50

Andyhon 发表于 2013-1-7 22:32 static/image/common/back.gif
you might try ...

建议距离可以手动输入并带有记忆，另外可以点取偏移方向！~~呵呵！~~
页: [1] 2
查看完整版本: 如何批量偏移单线到当前图层且偏移后自动倒角