修剪梁线（自定义对象）

関吣 · 发表于 2013-7-6 10:30:55

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

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

Free-Lancer · 发表于 2013-7-6 10:31:56

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

関吣 · 发表于 2013-7-6 10:32:36

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

関吣 · 发表于 2013-7-6 10:33:59

本帖最后由関吣于 2013-7-6 10:43 编辑

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

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

XDSoft · 发表于 2013-7-6 11:07:55

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

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

Free-Lancer · 发表于 2013-7-6 11:35:45

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

flytodayddc · 发表于 2013-7-12 14:04:18

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

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

这个可以~:loveliness:

yzr2002626 · 发表于 2013-7-13 11:17:57

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

関吣 · 发表于 2013-7-13 12:49:11

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

原来你是过客啊~

flytodayddc · 发表于 2013-7-15 22:11:56

这个可愉满足要求

请点击此处下载

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

您的用户组是：游客

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

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

Free-Lancer · 发表于 2013-7-15 22:58:54

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

flytodayddc · 发表于 2013-7-15 23:18:08

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

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

Lispboy · 发表于 2013-7-15 23:21:02

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

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

関吣 · 发表于 2013-7-17 16:55:48

本帖最后由関吣于 2013-7-17 17:00 编辑

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

関吣 · 发表于 2013-7-17 16:57:41

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

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

[求助] 修剪梁线（自定义对象）

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评