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-layerx "辅助")
          )   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

莫着急，莫急燥，静悄悄，答案到
页: [1] 2
查看完整版本: 请问有没有人会多段线批量倒角（直角，圆角）