社区 › AutoLISP/Visual LISP 编程技术 › 帮小弟写个自动标注多段线程序，谢谢哦！

惊寒 发表于 2013-7-25 23:55:33

帮小弟写个自动标注多段线程序，谢谢哦！

帮小弟写个自动标注多段线程序，谢谢哦！ 问题还没解决呢

wowan1314 发表于 2013-7-26 21:32:33

尝试写个，还不完善。 楼主 自己 去完善下吧。;;标注的两边长
(defun c:t11 nil
    (mapcar
      '(lambda(x)
            (entmake
                (list '(0 . "DIMENSION") '(100 . "AcDbEntity") '(100 . "AcDbDimension")
                  (cons 10 (car x))
                  '(70 . 33) '(1 . "") '(100 . "AcDbAlignedDimension")
                  (cons 13 (car x)) (cons 14 (cadr x))
                )
            )
            (entmake
                (list '(0 . "DIMENSION") '(100 . "AcDbEntity") '(100 . "AcDbDimension")
                  (cons 10 (cadr x))
                  '(70 . 33) '(1 . "") '(100 . "AcDbAlignedDimension")
                  (cons 13 (cadr x)) (cons 14 (caddr x))
                )
            )
      )
      (mapcar
            '(lambda(a)
                (mapcar 'cdr
                  (vl-remove-if
                        '(lambda (b)
                            (/= (car b) 10)
                        )
                        (entget a)
                  )
                )
            )
            (vl-remove-if-not
                '(lambda(c) (= (type c) 'ename))
                (mapcar
                  'cadr
                  (ssnamex (ssget '((0 . "LWPOLYLINE")(70 . 1))
                        )
                  )
                )
            )
      )
    )
)

52幕墙设计 发表于 2013-7-26 02:19:20

什么多段线？ 只标注矩形两边？

惊寒 发表于 2013-7-26 20:15:11

52幕墙设计 发表于 2013-7-26 02:19 static/image/common/back.gif
什么多段线？ 只标注矩形两边？

是的

hooboxu 发表于 2014-7-20 23:02:38

怎么用~~~~~~~~~

查看完整版本: 帮小弟写个自动标注多段线程序，谢谢哦！