【已解决】麻烦大神们，编一个类似CAD自带的线性标注，的尺寸标注

lizhaojun45 · 发表于 2019-9-15 12:02:40

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 lizhaojun45 于 2019-10-4 10:19 编辑

我整的这些代码，线性标注，选择两点，和右击切换到直选对象都可以做到
而且点捕捉的设置，图层的控制，都没有一点问题了。
但是，还达不到自动重复的功能。一般情况下，标注尺寸，都是标好些尺寸，在退出标注模式的。
我按以往的经验，在倒数第二行的前面，在插入一行 (C:D2) 就可以了
我试了一下，那样会使，(setvar "clayer" #la)这行代码失去作用的。

麻烦，各位大神，帮忙修改一下。小弟在此万分感谢。

(defun c:D2 ()
(setvar "dynmode" 1)
(setvar "dynprompt" 1)
(setvar "autosnap" 23)
(setvar "osmode" 167)

(setq #la (getvar "clayer"))
(setvar "clayer" "dim")

(command "dimlinear" pause pause pause)

(setvar "autosnap" 55)
(setvar "clayer" #la)
;;;;;(C:D2)

(princ)
)

王鹏_pBZlo · 发表于 2019-9-15 15:10:32

(defun c:tt()
  (setq ss (ssget "x" (list (cons 0 "dimension"))))
  (command "change" ss "" "p" "la" "dim" "")
  (princ)
)
换一个思路，用一个命令把所有标注改到图层"dim"不就解决了
来自: 微社区

tzfcn · 发表于 2019-9-15 15:13:52

这个想法很棒！

lizhaojun45 · 发表于 2019-9-15 16:36:42

本帖最后由 lizhaojun45 于 2019-9-16 11:50 编辑

要使代码重复执行，右击/回车/空格，就退出，除了 (C:****) 的方法，还有其它的方法没有。

zhystar · 发表于 2019-9-16 14:58:27

学习了，谢谢分享，与CAD自带的标注功能有什么加强功能或者优点么？

哈恩 · 发表于 2019-9-18 11:16:54

坐下观看，顶顶顶，O(∩_∩)O哈哈~

账号		自动登录	找回密码
密码			立即注册

[已解决] 【已解决】麻烦大神们，编一个类似CAD自带的线性标注，的尺寸标注

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

使命令重复执行