请问有没有人会多段线批量倒角（直角，圆角）

bh89757 · 发表于 2019-7-13 17:28:37

本帖最后由 bh89757 于 2019-7-13 17:43 编辑

本人新手，目前要画公路边坡的框架梁，想编一个程序，就是偏移批量倒角，偏移框架已经编出来了，无奈不知道怎么能批量倒角。还请各位大神指导一下。
这是代码
(defun c:dd (/  ss i lst x )
(vl-load-com)
  (setq laysel1(vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
      layobj1(vla-add laysel "地质"))
(setq laysel2(vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
      layobj2(vla-add laysel "辅助"))
  (vla-put-color layobj1 acred)
  (vla-put-color layobj2 8)
  (setq ss (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE,PLINE,SPLINE"))))
  (setq i 0 lst nil dis 0.2)
  (while (< i (sslength ss))
(vla-put-layer (vlax-ename->vla-object (ssname ss i)) "地质")
(setq lst (cons (vlax-ename->vla-object (ssname ss i)) lst)
      i (1+ i)    ) )
(mapcar '(lambda (x)       (vla-offset x dis))    lst )
(mapcar '(lambda (x)       (vla-offset x (- dis))
(vla-put-layer  x "辅助")
      ) lst  )
  (command "LAYER" "Off" "辅助" "")
(princ) )

代码目前只能执行到这一步
想要的效果是倒角1 和倒角2 这种格式。

lee50310 · 发表于 2021-1-9 14:29:06

本帖最后由 lee50310 于 2021-5-27 21:49 编辑

程式已寫好,在cad2018測試 ok
執行指令:pp2

這是程式執行效果

lee50310 · 发表于 2020-12-29 12:29:11

本帖最后由 lee50310 于 2021-1-4 14:10 编辑

你這個跟我先前發表的 [道路十字路口生成器+修補 ] 有部份功能類似
你可先前往參考看看 ,是否對你有所幫助

位置: 道路十字路口生成器+修補

bh89757 · 发表于 2019-8-23 11:45:39

注册发表于 2019-8-21 14:21
http://bbs.mjtd.com/thread-108247-1-1.html

这种平行的比较好弄哦，哥，我的主要是各种交叉的倒角成四边形

bh89757 · 发表于 2019-7-13 17:42:37

bh89757 · 发表于 2019-7-15 12:44:37

没得人撒。。。

bh89757 · 发表于 2019-8-20 13:25:10

bh89757 · 发表于 2019-8-20 13:26:00

有没有人会批量倒角呀？

注册 · 发表于 2019-8-21 14:21:17

http://bbs.mjtd.com/thread-108247-1-1.html

999999 · 发表于 2020-12-21 09:26:04

路过，支持一下，

xj6019 · 发表于 2020-12-29 18:42:30

莫着急，莫急燥，静悄悄，答案到

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

[讨论] 请问有没有人会多段线批量倒角（直角，圆角）

本帖子中包含更多资源

本帖子中包含更多资源