修剪梁线（自定义对象）

関吣

鲁班土建软件中修剪的，有个高手传给我的GIF文件，我做不出来，请高手帮忙~~

Free-Lancer

可以用遮盖来自: Android客户端

関吣

补充：红色的线为暗柱跟框架柱边线，填充的为梁线

関吣

Free-Lancer 发表于 2013-7-6 10:31
可以用遮盖

我不是要遮盖哦，我是要修剪的~

XDSoft

関吣 发表于 2013-7-6 10:33
我不是要遮盖哦，我是要修剪的~

为什么不喜欢修剪，遮盖的好处是柱子移动后，继续保持“裁剪”的效果。

Free-Lancer

没有鲁班环境可能无法测试，提供个思路，把线向内偏移，取偏移后线的点表，用trim f，另外如果柱子也是自定义实体，就看软件提供了开放接口没有，当然都是自定义实体，那软件就有命令完成了，或者如天正类，是自动的来自: Android客户端

flytodayddc

1. (defun C:TTR( / en end end_data pmin pmax minp maxp minx miny maxx maxy m n ss midp i)
   
2. (vl-load-com)
   
3. (princ "\n请选择闭合pline:")
   
4. (while(null(setq en (ssget  '((0 . "LINE,LWPOLYLINE,LUBANCIRCLEBEAM,LUBANCOLUMN,LUBANLINEBEAM")))))); (70 . 1)
   
5. (setq i 0)
   
6. (repeat (setq m (sslength en))
   
7.    ;(setq end (ssname en (setq m (1- m))))
   
8.    (setq end (ssname en i))
   
9.    (setq end_data (entget end))
   
10.    (ttrMin_Max)
    
11.    (setq midp (mapcar '* '(0.5 0.5 0.5) (mapcar '+ pmin pmax)))
    
12.    (setq ss (ssget "c" Pmin Pmax))
    
13.    (ssdel end ss)
    
14.    (command ".trim" end "")
    
15.    (repeat (setq n (sslength ss))
    
16.      (command (list (ssname ss (setq n (1- n))) midp))
    
17.    )
    
18.    (COMMAND "")
    
19.    (setq i (1+ i))
    
20. )
    
21. 
    
22. (princ "完成！")
    
23. )
    
24. 
    
25. (defun ttrMin_Max()
    
26. (vla-getboundingbox(vlax-ename->vla-object end) 'minp 'maxp)
    
27. (setq minp (vlax-safearray->list minp)
    
28.        maxp (vlax-safearray->list maxp))
    
29. (setq minx (car minp)
    
30.        maxx (car maxp)
    
31.        miny (cadr minp)
    
32.        maxy (cadr maxp))
    
33. (setq pmin (list minx miny)
    
34.        pmax (list maxx maxy))
    
35. )
    
36. (princ "命令TTR")
    

(defun C:TTR( / en end end_data pmin pmax minp maxp minx miny maxx maxy m n ss midp i)<br /> (vl-load-com)<br /> (princ "\n请选择闭合pline:")<br /> (while(null(setq en (ssget  '((0 . "LINE,LWPOLYLINE,LUBANCIRCLEBEAM,LUBANCOLUMN,LUBANLINEBEAM")))))); (70 . 1)<br /> (setq i 0)<br /> (repeat (setq m (sslength en))<br />    ;(setq end (ssname en (setq m (1- m))))<br />    (setq end (ssname en i))<br />    (setq end_data (entget end))<br />    (ttrMin_Max)<br />    (setq midp (mapcar '* '(0.5 0.5 0.5) (mapcar '+ pmin pmax)))<br />    (setq ss (ssget "c" Pmin Pmax))<br />    (ssdel end ss)<br />    (command ".trim" end "")<br />    (repeat (setq n (sslength ss))<br />      (command (list (ssname ss (setq n (1- n))) midp))<br />    )<br />    (COMMAND "")<br />    (setq i (1+ i))<br /> )<br /> <br /> (princ "完成！")<br /> )<br /> <br /> (defun ttrMin_Max()<br /> (vla-getboundingbox(vlax-ename->vla-object end) 'minp 'maxp)<br /> (setq minp (vlax-safearray->list minp)<br />        maxp (vlax-safearray->list maxp))<br /> (setq minx (car minp)<br />        maxx (car maxp)<br />        miny (cadr minp)<br />        maxy (cadr maxp))<br /> (setq pmin (list minx miny)<br />        pmax (list maxx maxy))<br /> )<br /> (princ "命令TTR")<br />

这个可以~:loveliness:

yzr2002626

修剪柱子内的线，谢谢分享！

関吣

flytodayddc 发表于 2013-7-12 14:04
这个可以~

原来你是过客啊~

flytodayddc

这个可愉满足要求

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:TTY-1.rar 
下载次数:40  文件大小:212.56 KB 
下载权限: 不限 以上  [免费赚D豆]

希望哪个大大可以改下。。相对于天正中闭合的图元，如天正柱一样能当闭合的PL线使用。

Free-Lancer

炸开就是了来自: Android客户端

flytodayddc

Free-Lancer 发表于 2013-7-15 22:58
炸开就是了

老大这个就是不能炸开……这个基于CAD基础上的算量软件…封闭多边形是一个实体炸开后属性变了就不能用了……就象天正柱一样炸开后不能变成三维一样

Lispboy

flytodayddc 发表于 2013-7-15 23:18
老大这个就是不能炸开……这个基于CAD基础上的算量软件…封闭多边形是一个实体炸开后属性变了就不能用了 ...

看了半天，鲁班软件本身没提供这样批量裁剪的工具吗？

関吣

{:soso_e113:}炸开识别不到了。软件没有相应工具~
这个TTY的话，只对矩形的有效哦~
上次TTR的那个，也一样的~L型的，经常出错，关键是他取的是形心修剪的~

関吣

PS:函数加载晓东工具的话，软件有时候识别不了一些函数，CAD都识别得到