求高手编制大板加腋绘制程序

elitefish

1.设定最小的忽略尺寸A，比如柱子外凸的 200
2.BO 描边 取得PL，并原位复制个PL0
3.炸开PL0，删除长度小于A的线段，将剩余的线组成选择集 SS
4.使用PE命令 模糊距离设置为A 将选择集中重新组成多线段PL1
5.将PL1向点取方向偏移加腋宽度取得PL2
6.将PL1 PL2的对应顶点画上线段L1
7.裁剪 L1 在 PL外的部分
8.删除 PL PL1

xyccf

本人搞桥隧的，只看了动图大致写了十几分钟。关闭立柱的显示后，如果还出错，可能是墙线不闭合或者不在同一z坐标上，还不行那我就不知道为啥了

hdlyt11

(defun c:bb( / dd pt oo bbo ptlst  l1 l2 l3 l4  ptlst1  p1 p2 p3 p4 oo1 p5 p6 p7 p8)
(vl-load-com)(if (setq  dd(-(getreal"\n必强提示:请输入偏移距离")))(progn(defun bb-asssoc (a lst / b lst2)(while (setq b (assoc a lst))
(setq lst  (cdr (member b lst)) lst2 (cons (cdr b) lst2)))(reverse lst2))(defun bb-entline (b b1)(entmake (list '(0 . "LINE")
(cons 10 b) (cons 11 b1)(cons 8 "楼板加腋")(cons 6 "Continuous"))))(defun bb-offset (a )(vl-catch-all-apply 'vla-offset (list (vlax-ename->vla-object
(ssname bbo a)) dd)))(while(setq pt(getpoint"\n必强提示:指定区域楼板加腋"))(if pt(progn(bpoly pt) (setq oo(entlast))(Setq bbo (ssget "f"
(mapcar 'cdr (vl-remove-if '(lambda (x)(/= 10 (car x)))(entget oo)))'((0 . "LINE")(8 . "BEAM,梁实线,梁虚线"))))(bb-offset 0)(setq l1(entlast))
(bb-offset 1)(setq l2(entlast))(bb-offset 2)(setq l3(entlast))(bb-offset 3)(setq l4(entlast))(setq ptlst(bb-asssoc 10 (entget oo))p1 (nth 1 ptlst)p2
(nth 4 ptlst)p3(nth 7 ptlst)p4(nth 10 ptlst))(bpoly (list(/(+(car p1)(car p3))2.0)(/(+(cadr p1)(cadr p3))2.0)))(setq oo1(entlast)ptlst1(bb-asssoc 10 (entget oo1)))
(vl-cmdf "change" oo1 "" "p""la" "楼板加腋" "lt" "continuous" "" )(setq p5 (nth 0 ptlst1)p6 (nth 1 ptlst1)p7(nth 2 ptlst1)p8(nth 3 ptlst1))
(bb-entline p1 p5)(bb-entline p2 p6)(bb-entline p3 p7)(bb-entline p4 p8)(entdel oo)(entdel l1)(entdel l2)(entdel l3)(entdel l4))))))(princ))