柱定位程序源码

夏生生

500w008 发表于 2012-7-26 15:40
怎么把标注 改成 1：150比例 还有 标注形式选择 DIM

;;;建立尺寸
(defun mk_dimension (d_layer
                     d_dist
                     d_name
                     d_pt_p
                     d_pt_s
                     d_pt_e
                     sc_cl
                     sc_qj
                     /
                     en
                     xdata
                     x
                    )
   (If (Not (TblSearch "BLOCK" "_x_DBK"))
      (Progn
     (EntMake '((0 . "BLOCK")(2 . "_x_DBK")(8 . "0") (100 . "AcDbBlockReference")(70 . 0)(10 0.0 0.0 0.0)))
         (EntMake '((0 . "LINE")(100 . "AcDbEntity")(100 . "AcDbLine")(8 . "0")(10 -1 0 0)(11 1 0 0)))
         (EntMake '((0 . "LWPOLYLINE")(100 . "AcDbEntity")(8 . "0")(100 . "AcDbPolyline")(90 . 2)(70 . 0)(43 . 0.15)(10 -0.5 -0.5)(10 0.5 0.5)))
         (EntMake '((0 . "ENDBLK")))
      )
   )
  (entmake (list
             '(0 . "DIMENSION")
             '(100 . "AcDbEntity")
             (cons 8 d_layer)               
             '(100 . "AcDbDimension")
             (cons 10 d_pt_p)               
             '(70 . 32)                       
             (cons 1 d_dist)               
             '(71 . 5)                       
             (cons 3 d_name)
             '(100 . "AcDbAlignedDimension")
             (cons 13 d_pt_s)
             (cons 14 d_pt_e)
             (cons 50 (angle d_pt_s d_pt_e))
             '(100 . "AcDbRotatedDimension")
             (list -3
                   (list "acad"
                         '(1000 . "DSTYLE")
                         '(1002 . "{")
                         '(1070 . 144)       
                         (cons 1040 sc_cl)
                         '(1070 . 40)       
                         (cons 1040 sc_qj)
                         '(1070 . 41)       
                         '(1040 . 1.5)
                         '(1070 . 42)       
                         '(1040 . 2.0)
                         '(1070 . 43)       
                         '(1040 . 0.0)
                         '(1070 . 44)       
                         '(1040 . 2.0)
                         '(1070 . 45)       
                         '(1040 . 1.0)
                         '(1070 . 46)       
                         '(1040 . 1.0)
                         '(1070 . 78)
                         '(1070 . 8)       
                         '(1070 . 141)
                         '(1040 . -2.0)         
                         '(1070 . 143)       
                         '(1040 . 25.4)       
                         '(1070 . 145)       
                         '(1040 . 1.0)       
                         '(1070 . 147)
                         '(1040 . 1.0)       
                         '(1070 . 174)       
                         '(1070 . 1)         
                         '(1070 . 178)       
                         '(1070 . 7)       
                         '(1070 . 271)       
                         '(1070 . 0)         
                         '(1070 . 272)       
                         '(1070 . 0)       
                         '(1070 . 279)       
                         '(1070 . 2)       
                         '(1070 . 342)       
                         (cons 1005 (cdr (assoc 5(entget (Cdr (Assoc 330 (EntGet (TblObjName "BLOCK" "_x_DBK"))))))))
                         '(1002 . "}")
                   )
             )
           )
  )
)

pxt2001

xiaoyingzi 发表于 2012-5-21 20:50
发个用楼主的改的，特点：采用鼠标框选的角点方位来定标注尺寸的位置
命令：dsz 设置图层
命令：dzz 定位 ...

这个程序不错，收藏了。

zzl9105

谢谢大虾提供源码！！！

mycad

感谢楼主无私奉献，开源要顶！没的说

TPG辉

[em0][em0]

彳余

开源的一定要顶

彳余

感谢楼主分享原码程序!

恐龙8001

pxt2001 发表于 2012-4-28 11:49
没有轴线的剪力墙，定位尺寸能否实现？

同求[em0][em0][em0][em0]

kozmosovia

恐龙8001 发表于 2016-3-5 10:27
同求

可以，读取多义线的顶点坐标，XY分别排序，再根据其boudingbox边界顺次标注