怎么把标注全部移动到一个图层，另外标注文字可以代码加上划线吗

琴剑江山_10184

xj6019 发表于 2019-11-21 17:11
您好还是不行啊，我是希望图片的效果，如果可以的话，除了这个，我以后实现自己想法的时候可以找你帮忙制作 ...

代码是可以的，你应该是把之前的都加载了，运行的还是以前的命令

start4444

这语言表达水平真是令人抓狂，他意思是200是实际数值，拉伸了还是200，而不是他所谓说的手动的数值

xj6019

帮我写代码的朋友已经帮我又修改过了   现在可以完美实现我想要的效果了，再次表示感谢，以下是代码，有需要的可以参照一下了


(Defun c:HX (/ ss Le en nn tr str dim)
  (princ "\n功能 [標注加上図線]")
  (While (setq ss (ssget ":s" '((0 . "DIMENSION"))))   
      (setq Le (sslength ss))
      (Repeat Le
        (setq nn (ssname ss (setq Le (1- Le))))
        (setq en (entget nn))
        (if (= (setq tr (cdr (assoc 1 en))) "")
          (setq dim (rtos (cdr (assoc 42 en)) 2 1)
                str (cons 1 (strcat "{\\O" dim "}")))
          (setq str (cons 1 (strcat "{\\O" tr "}")))         
          )
        (entmod (subst str (assoc 1 en) en))
        )      
  )
  (princ)
)

ljwsyzf

琴剑江山_10184 发表于 2019-11-20 09:46
;;命令TT标注归到指定层改成你要的层名  T2加上划线

大神，能不能做一个：选中标注的图层归并到指定几个图层之一？

琴剑江山_10184

ljwsyzf 发表于 2019-11-26 00:08
大神，能不能做一个：选中标注的图层归并到指定几个图层之一？

没明白你的意思

ljwsyzf

琴剑江山_10184 发表于 2019-11-26 15:06
没明白你的意思

鼠标选中的尺寸标注的图层改成指定的图层，未选中的尺寸标注图层不变。

琴剑江山_10184

ljwsyzf 发表于 2019-11-26 22:55
鼠标选中的尺寸标注的图层改成指定的图层，未选中的尺寸标注图层不变。

(Defun c:tt (/ ss)
  (princ "[功能 更改标注图层")
  (While (setq ss (ssget ":s" '((0 . "DIMENSION"))))
    (command "_.chprop" ss "" "la" "指定的层名" "")
    )
  (princ)
  )

ljwsyzf

琴剑江山_10184 发表于 2019-11-30 09:47
(Defun c:tt (/ ss)
  (princ "[功能 更改标注图层")
  (While (setq ss (ssget ":s" '((0 . "DIMENSIO ...

谢谢，大神。。论坛一恢复就帮我弄了

wym

琴剑江山_10184 发表于 2019-11-20 09:46
;;命令TT标注归到指定层改成你要的层名  T2加上划线

您好！请教一下，{\\O<>}这样的代码知识从哪里学习？加上划线是这样，如果我只想改变标注文字颜色又该怎么修改？搜了关于标注的一些内容，但是都没有这方面的介绍，群码表里也没有找到。