柱定位程序源码

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

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 . "}")
   )
      )
   )
  )
)

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

提示: 作者被禁止或删除内容自动屏蔽

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

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

这个程序不错，收藏了。

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

谢谢大虾提供源码！！！

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

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

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

[em0][em0]

彳余 · 发表于 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
没有轴线的剪力墙，定位尺寸能否实现？

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

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

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

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

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

500w008 500w008 当前离线积分 6432 明经币个注册时间 2009-9-28 在线时间小时威望金钱个贡献激情	发表于 2012-7-26 16:26:06 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡