0人已收藏
0人已打赏
免费0人已点赞
分享
阅读下一篇
《建筑施工企业安全生产许可证》申报资料你好： 根据建设部令第128号《建筑施工企业安全生产许可证管理规定》，在中华人民共和国境内从事土木工程、建筑工程、线路管道和设备安装工程及装修工程的新建、扩建、改建和拆除等有关活动，依法取得工商行政管理部门颁发的《企业法人营业执照》的建筑施工企业必须取得《建筑施工企业安全生产许可证》，未取得安全生产许可证的，不得从事建筑施工活动。 据此，本人为建筑施工企业单位提供《建筑施工企业安全生产许可证》申报资料，资料中含企业各级安全生产责任制、企业规章制度、各工种操作规程、安全生产投入证明文件、安全生产机构职责、职业危害防治措施、危险、易发生重大事故部位（环节）监控措施和应急预案、应急救援预案等，全套资料300元人民币，就近单位也可提供包办申报资料服务，费用另计。
回帖成功
经验值 +10
全部回复（2 ）
只看楼主 我来说两句抢地板dvb程序如下：
'两对象是否相交
Sub IntersectionPointIsExist()
On Error Resume Next
Dim object1 As AcadEntity
Dim Pnt1 As Variant
Dim object2 As AcadEntity
Dim Pnt2 As Variant
ThisDrawing.Utility.GetEntity object1, Pnt1, vbCr & "选择第一个对象："
object1.Highlight (True)
If Err Then Err.Clear: Exit Sub
ThisDrawing.Utility.GetEntity object2, Pnt2, vbCr & "选择第二个对象："
If Err Then Err.Clear: Exit Sub
object2.Highlight (True)
Dim intPoints As Variant
intPoints = object1.IntersectWith(object2, acExtendNone)
If UBound(intPoints) <> -1 Then
MsgBox "T"
Else
MsgBox "NIL"
End If
End Sub
回复 举报
p1 p2 p3 p4 分别为四个点
反正p1 p2 构成的直线 和p3 p4构成的直线相交的话就返回交点，否则NIL
(inters p1 p2 p3 p4 nil)
这种是延长线相交
不知道你是不是想要这个
LISP函数
回复 举报