[讨论]：TSSD修改尺寸值不如天正结构方便。

Hipparchus

不只是尺寸的问题，单行文字的处理上也有这个问题，天正里面双击就可以改了，tssd里面还需要点一下特性，有时需要该很多文字的时候就会很麻烦

andycheng1014

支持楼主，我用TSSD2.7尺寸修改麻烦死了

qiaqiadeng

其实我认为TSSD的发展思路是对的，天正的尺寸标注是很方便，但他的尺寸太专业了，到了其他软件里就不能用了，通用性不强，迟早是要走到尽端的，毕竟TSSD和天正都要靠CAD，如果跟CAD相差太远，我认为不是好事情，关于尺寸标注我倒是根据天正做了局部修改，请大家帮我查一下bug:

(princ
  "\nab  完美结合:对齐标注(DIMALIGNED)+连续标注(DIMCONTINUE)"
)

(defun c:ab (/ p1 p2 p3        p4 dimang dimlist newpoint tempp2 p5 p6 movelen objlist)
  (prompt
    "完美结合:对齐标注(DIMALIGNED)+连续标注(DIMCONTINUE)\n"
  )
  (if (setq p1 (getpoint "\n第一点:"))
    (setq p2 (getpoint p1 "第二点"))
  )
  (if (and p1 p2)
    (progn
      (command "DIMALIGNED"
               p1
               p2
               pause
      )
      (setq dimang (angle p1 p2))        ;标注的角度
      (Layer_DIM "DIM" 3)
      (setq objlist (entget (entlast)))               
      (if (setq p5 (getpoint p2 "点取对齐点的位置:"))
        (progn
          (setq        movelen
                 (distance_pt_twoPoint
                   p5
                   p1
                   p2
                 )
          )
          (setq p6 (polar p5 (+ dimang (/ pi 2)) 100))
          (setq p6 (inters p1 p2 p5 p6 nil))
          (setq p1 (polar p1 (angle p6 p5) movelen))
          (setq p2 (polar p2 (angle p6 p5) movelen))
          (setq        objlist        (subst (list 13 (car p1) (cadr p1) 0)
                               (assoc '13 objlist)
                               objlist
                        )
          )
          (setq        objlist        (subst (list 14 (car p2) (cadr p2) 0)
                               (assoc '14 objlist)
                               objlist
                        )
          )
          (entmod objlist)
        )
      )

      (setq p3 T)
      (setq tempp2 p2)
      (while p3
        (if (setq p3 (getpoint tempp2 "\n连续标注下一点:"))
          (progn
            (command "dimcontinue" p3 "" "")
            (setq p4 (polar p3 (- dimang (/ pi 2)) 5000))
            (setq p4 (inters p1 p2 p3 p4 nil))
            (setq dimlist (entget (entlast)))
            (setq newpoint (list 14 (car p4) (cadr p4) 0))
            (setq dimlist (subst newpoint (assoc '14 dimlist) dimlist))
            (entmod dimlist)
            (Layer_DIM "DIM" 3)
            (setq tempp2 p4)
          )
          (setq p3 nil)
        )
      )
    )
  )
  (princ)
)

(princ
  "\nsb  完美结合:线性标注(DIMLINEAR)+连续标注(DIMCONTINUE)"
)
(defun c:sb (/ p1 p2 p3        p4 dimang dimlist newpoint tempp2 p5 p6        movelen
             objlist)
  (prompt
    "完美结合:线性标注(DIMLINEAR)+连续标注(DIMCONTINUE)"
  )
  (if (setq p1 (getpoint "\n第一点:"))
    (setq p2 (getpoint p1 "第二点"))
  )
  (if (and p1 p2)
    (progn
      (command "DIMLINEAR"
               p1
               p2
               pause
      )
      (setq objlist (entget (entlast)))
      (setq dimang (cdr (assoc '50 objlist))) ;标注的角度
      (if (= dimang 0)
        (setq p2 (list (car p2) (cadr p1) 0))
        (setq p2 (list (car p1) (cadr p2) 0))
      )

      (if (setq p5 (getpoint p2 "点取对齐点的位置:"))
        (progn
          (setq        movelen
                 (distance_pt_twoPoint
                   p5
                   p1
                   p2
                 )
          )
          (setq p6 (polar p5 (+ dimang (/ pi 2)) 100))
          (setq p6 (inters p1 p2 p5 p6 nil))
          (setq p1 (polar p1 (angle p6 p5) movelen))
          (setq p2 (polar p2 (angle p6 p5) movelen))
          (setq        objlist        (subst (list 13 (car p1) (cadr p1) 0)
                               (assoc '13 objlist)
                               objlist
                        )
          )
          (setq        objlist        (subst (list 14 (car p2) (cadr p2) 0)
                               (assoc '14 objlist)
                               objlist
                        )
          )
          (entmod objlist)
        )
      )

      (setq dimlist (entget (entlast)))
      (setq newpoint (list 14 (car p2) (cadr p2) 0))
      (setq dimlist (subst newpoint (assoc '14 dimlist) dimlist))
      (entmod dimlist)
      (Layer_DIM "DIM" 3)
      (setq p3 T)
      (setq tempp2 p2)
      (while p3
        (if (setq p3 (getpoint tempp2 "\n连续标注下一点:"))
          (progn
            (command "dimcontinue" p3 "" "")
            (setq p4 (polar p3 (- dimang (/ pi 2)) 5000))
            (setq p4 (inters p1 p2 p3 p4 nil))
            (setq dimlist (entget (entlast)))
            (setq newpoint (list 14 (car p4) (cadr p4) 0))
            (setq dimlist (subst newpoint (assoc '14 dimlist) dimlist))
            (entmod dimlist)
            (Layer_DIM "DIM" 3)
            (setq tempp2 p4)
          )
          (setq p3 nil)
        )
      )
    )
  )
  (princ)
)



(princ "\ngk  将表里不一的标注逮出来")
(defun c:gk (/ ss num i obj strtype str1)
  (princ "将表里不一的标注逮出来\n")
  (setq ss (ssget))
  (setq num (sslength ss))                ;选择集的数量
  (setq i 0)
  (repeat num
    (setq obj (entget (ssname ss i)))
    (setq strtype (cdr (assoc '0 obj)))        ;获得对象的列表
    (if        (= strtype "DIMENSION")
      (progn
        (setq str1 (cdr (assoc '1 obj)))
        (if (/= str1 "")
          (progn
            (setq obj (subst (cons '8 "ff") (assoc '1 obj) obj))
            (entmod obj)
          )
        )
      )
    )
    (setq i (+ 1 i))
  )
  (command "layer" "c" 6 "ff" "")
  (princ)
)

jhw2344

讲的对，我顶1

江江

TSSD本身就提供了修改的功能，就是[通用编辑]，它的简化命令是[BJ]。
且改了后还能还原[DCC]，够方便的了。

159159

最初由 zxfzxf 发布
[B]哈哈。实际上在TSSD找到这个修改键跟在CAD里的功能修改花费的时间相差无几。
TSSD里的那个尺寸数据修改键没有多大用处。冒昧了。 [/B]

偶一直这样。