土木君有礼！免费低价薅不停 工程师进阶必备，全套项目资料包来袭！
      土木在线论坛 \ 建筑设计 \ CAD下载及教程 \ 请教如何对一个矩形进行宽度标注

      请教如何对一个矩形进行宽度标注

      请教如何对一个矩形进行宽度标注
      发布于2006-01-16 20:43:16
      我来答
      分享
      举报

      全部回答（1 ）

      • lijian110
        lijian110
        1、选中矩形
        2、读出矩形的角点坐标
        3、计算矩形的边长
        4、根据边长判断计算矩形窄边尺寸标注点
        5、标注尺寸



        (DEFUN C:DWR () ;Dimension Width Rectang
        (SETVAR "CMDECHO" 0)
        (SETQ OLDOS (GETVAR "OSMODE"))
        (SETVAR "OSMODE" 0)
        (IF (SETQ S1 (ENTSEL "\nSelect a rectang :")) (PROGN
        (SETQ ENT (ENTGET (CAR S1))
        L (CDR (ASSOC 0 ENT)))
        (IF (AND (= L "LWPOLYLINE") (= (CDR (ASSOC 90 ENT)) 4)) (PROGN
        (SETQ P1 (CDR (ASSOC 10 ENT))
        EN1 (CDR (MEMBER (ASSOC 10 ENT) ENT))
        P2 (CDR (ASSOC 10 (CDR (MEMBER (ASSOC 10 EN1) EN1))))
        X1 (MIN (CAR P1) (CAR P2))
        X2 (MAX (CAR P1) (CAR P2))
        Y1 (MIN (CADR P1) (CADR P2))
        Y2 (MAX (CADR P1) (CADR P2))
        PT1 (LIST X1 Y1 0)
        PT2 (IF (> (- Y2 Y1) (- X2 X1)) (LIST X2 Y1 0) (LIST X1 Y2 0))
        PT3 (IF (> (- Y2 Y1) (- X2 X1)) (LIST X1 (- Y1 9) 0) (LIST (- X1 9) Y1 0)))
        (COMMAND "DIMLINEAR" PT1 PT2 PT3 "")
        ))
        ))
        (SETVAR "OSMODE" OLDOS)
        (SETVAR "CMDECHO" 1)
        (PRINC)
        )
        2006-01-16 20:44:16 来自 PC 评论 举报
      相关推荐
      lijian110
      这个家伙什么也没有留下。。。

      主题

      6

      回复

      18

      粉丝

      0
      + 关注 私信

      CAD下载及教程

      返回版块

      52.07 万条内容 · 656 人订阅

      猜你喜欢

      回帖成功

      经验值 +10

      关于我们 | 联系我们 | 网站声明 | 帮助中心 | 网站地图 | 土木在线手机版

      Copyright©2000-2024  常州易宝网络服务有限公司版权所有  苏B2-20220726