夏生生 发表于 2012-7-26 15:57:26

500w008 发表于 2012-7-26 15:40 static/image/common/back.gif
怎么把标注 改成 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 . "}")
                   )
             )
           )
)
)

500w008 发表于 2012-7-26 16:26:06

pxt2001 发表于 2012-8-5 00:41:42

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

这个程序不错，收藏了。

zzl9105 发表于 2012-8-28 22:49:26

谢谢大虾提供源码！！！

mycad 发表于 2013-5-10 15:04:55

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

TPG辉 发表于 2013-7-26 09:12:41

彳余 发表于 2014-3-30 22:18:08

开源的一定要顶

彳余 发表于 2014-5-31 16:01:18


感谢楼主分享原码程序!

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

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

同求

kozmosovia 发表于 2016-3-5 15:24:29

恐龙8001 发表于 2016-3-5 10:27 static/image/common/back.gif
同求

可以，读取多义线的顶点坐标，XY分别排序，再根据其boudingbox边界顺次标注
页: 1 2 [3] 4
查看完整版本: 柱定位程序源码