bios 发表于 2004-5-27 19:04:00

申请编辑两个程序

命令1:点取现有的标注形式为当前标注形式,由于标注格式多了,经常遇到要切换标注格式的问题


命令2:查看两线是否重合,由于常常遇到两线挨得很近 的问题,有些又上是重合的.,没注意很容易出现画图误差

meflying 发表于 2004-5-28 07:59:00

1、


(defun c:test( / ent dimstyle)<BR>       (setq ent (car (entsel "选择标注...")))<BR>       (setq dimstyle (cdr (assoc 3 (entget ent))))<BR>       (command "_.dimstyle" "r" dimstyle)<BR>       (princ)<BR>)


2、参考


<A href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=10613" target="_blank" >http://bbs.mjtd.com/forum.php?mod=viewthread&tid=10613</A>

bios 发表于 2004-5-31 21:05:00

还有的东西要申请，我在基础版面上有写，不用在多发水贴，就在着楼下写了


申请一个交点打断的命令。框选之后就能打断所选的线段。 3q

雪山飞狐_lzh 发表于 2004-5-31 21:21:00

本帖最后由 作者 于 2004-5-31 23:57:32 编辑

贴个VBA的，可以打断直线、圆弧、圆和椭圆要引用TLSBOUNBARY类（不过Spline不支持） TLSBOUNBARY类：dispbbs.asp?boardID=4&ID=20994&page=2Sub Sample_TlsBoundary_Break()
       Dim pBoundary As New TlsBoundary
       Dim SS As AcadSelectionSet
       Dim pnts As Variant
       Dim i As AcadEntity
       Dim ft(0) As Integer, fd(0)
       ft(0) = 0
       fd(0) = "Line,Circle,Arc,Ellipse"
       Set SS = ThisDrawing.ActiveSelectionSet
       pBoundary.WorkSpace = SS
       SS.SelectOnScreen ft, fd
       pBoundary.BreakAllAtPoint
End Sub
页: [1]
查看完整版本: 申请编辑两个程序