【标注合并和标注断开程序】－附限积分源码

tonylee

现在积分真是不好赚了，难啊！惨哪！馋啊！

lzy9788

8、9楼的尺寸分解有点问题，如果尺寸是斜向的即没在0,90,180,270度，分解尺寸有误，
本人上传一个分解的，不知道各位觉得怎么样

cjrun

;标注断开
  (defun c:db (/ e);/ e e1 e2 p1 p2 pt_lst ep1 ep2 p_mid pt3 ty_dm)
  (vl-load-com)
  (while (not e) (setq e (car (entsel))))
  (setq e1 (entget e))
  (if (/= "DIMENSION" (cdr (assoc 0 e1)))
    (princ "\n你选择的不是尺寸标注!")
    (progn
      (redraw e 3)
      (setq pt3 (getpoint "\n 断开点<等分>:"))
      (redraw e 4)
      (setq ty_dm (cdr (assoc 70 e1)))
      (if (or (= ty_dm 32) (= ty_dm 33))
        (progn
          (setq ep1 (cdr (assoc 13 e1)))
          (setq ep2 (cdr (assoc 14 e1)))
          (if pt3
            (setq p_mid pt3)
            (setq p_mid        (list (/ (+ (car ep1) (car ep2)) 2)
                              (/ (+ (cadr ep1) (cadr ep2)) 2)
                        )
            )
          )
          (if (= ty_dm 33)
            (setq p_mid
                   (inters p_mid
                           (polar p_mid (+ (angle ep1 ep2) (/ pi 2)) 1000)
                           ep1
                           ep2
                           nil
                   )
            )
          )
          (if (= ty_dm 32)
            (setq p_mid
                        (inters        p_mid
                                (polar p_mid (+ (cdr (assoc 50 e1)) (/ pi 2)) 1000)
                                ep1
                                (polar ep1 (cdr (assoc 50 e1)) 1000)
                                nil
                        )
                  ep2
                        (inters        ep2
                                (polar ep2 (+ (cdr (assoc 50 e1)) (/ pi 2)) 1000)
                                ep1
                                (polar ep1 (cdr (assoc 50 e1)) 1000)
                                nil
                        )
            )
          )
          (command "copy" e "" "0,0,0" "@")
          (setq e2 (entget (entlast)))
          (if (equal (car ep1) (car ep2) 0.0001)
            (setq pt_lst
                   (vl-sort (list ep1 ep2 p_mid)
                            '(lambda (s1 s2) (< (cadr s1) (cadr s2)))
                   )
            )
            (setq
              pt_lst
               (vl-sort        (list ep1 ep2 p_mid)
                        '(lambda (s1 s2) (< (car s1) (car s2)))
               )
            )
          )
          (setq
            e1 (subst (cons 13 (nth 0 pt_lst)) (assoc 13 e1) e1)
          )
          (setq
            e1 (subst (cons 14 (nth 1 pt_lst)) (assoc 14 e1) e1)
          )
          (setq        e2 (subst (cons 13 (nth 1 pt_lst))
                          (assoc 13 e2)
                          e2
                   )
          )
          (setq        e2 (subst (cons 14 (nth 2 pt_lst))
                          (assoc 14 e2)
                          e2
                   )
          )

          (entmod e1)
          (entmod e2)
        )
      )
    )
  )
)

2002zjp

17楼也有问题

Command:  CCF
尺寸一分为二<<ver 1.0--by Rokin...>>.
请选择要分解的尺寸:*Cancel*
Command:

lzy9788

我测试了的可以

hnfsf

楼主你的那个程序我在winxp＋acad2002下会出错。

lhg

高手！谢谢！好好学4习！

zjfcumt

有没有源程序，我想学习一下！

烨006

最初由 2002zjp 发布
[B]17楼也有问题

Command:  CCF
尺寸一分为二<<ver 1.0--by Rokin...>>.
请选择要分解的尺寸:*Cancel*
Command: [/B]

这种问题还是存在。

yjtdkj

不知道怎样赚积分呀，能否指点一二？

userzhluserzhl

选择对象:
断开点<等分>:copy
选择对象:   找到 1 个

选择对象: 指定基点或位移，或者 [重复(M)]: 0,0,0 指定位移的第二点或
<用第一点作位移>: @
命令: ((-1 . <图元名: 7e652890>) (0 . "DIMENSION") (330 . <图元名: 7effef58>)
(5 . "F372") (100 . "AcDbEntity") (67 . 1) (410 . "50") (8 . "DIM") (100 .
"AcDbDimension") (2 . "*D128") (10 8.54727 152.115 0.0) (11 -82.4527 154.24
0.0) (12 0.0 0.0 0.0) (70 . 32) (1 . "") (71 . 5) (72 . 1) (41 . 1.0) (42 .
9100.0) (52 . 0.0) (53 . 0.0) (54 . 0.0) (51 . 0.0) (210 0.0 0.0 1.0) (3 .
"PAPER50") (100 . "AcDbAlignedDimension") (13 -173.453 168.203 0.0) (14 8.54727
168.203 0.0) (15 0.0 0.0 0.0) (16 0.0 0.0 0.0) (40 . 0.0) (50 . 0.0) (100 .
"AcDbRotatedDimension"))

为何会这样的？

jkcmmc

我试了，9楼nuance改的dimtools好用。

ysx810210

不知楼主是什么意思?干嘛要设置积分限制呢?试问在论坛中积分达到5分的又有几个,这种做法,反感!!

tanle2020

最初由 nuance 发布
[B]8楼：
我试了一下，合并尺寸时有BUG，没删除e2
另外，1，加上显亮是不是更好，
      2，是否控制一下物体所在层是否锁定？
      3，尺寸断开时，加个循环是不是更好？
      4，(setvar "cmdecho" 0)
      ... [/B]

大哥，我没积分，可不可以发我邮箱里啊，非常的感谢，我将记住你无私的奉献。640244434@qq.com

c_wm

值得学习！好精神