琴剑江山_10184 发表于 2019-11-22 08:38:48

本帖最后由 琴剑江山_10184 于 2019-11-22 09:56 编辑

xj6019 发表于 2019-11-21 17:11
您好还是不行啊，我是希望图片的效果，如果可以的话，除了这个，我以后实现自己想法的时候可以找你帮忙制作 ...
代码是可以的，你应该是把之前的都加载了，运行的还是以前的命令

start4444 发表于 2019-11-23 12:25:13

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

xj6019 发表于 2019-11-23 15:49:20

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


(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 发表于 2019-11-26 00:08:42

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

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

琴剑江山_10184 发表于 2019-11-26 15:06:59

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

没明白你的意思

ljwsyzf 发表于 2019-11-26 22:55:26

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

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

琴剑江山_10184 发表于 2019-11-30 09:47:29

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

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

ljwsyzf 发表于 2019-11-30 14:29:23

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

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

wym 发表于 2020-1-19 08:12:29

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

您好！请教一下，{\\O<>}这样的代码知识从哪里学习？加上划线是这样，如果我只想改变标注文字颜色又该怎么修改？搜了关于标注的一些内容，但是都没有这方面的介绍，群码表里也没有找到。
页: 1 [2]
查看完整版本: 怎么把标注全部移动到一个图层，另外标注文字可以代码加上划线吗