有一个公差标注不能修改成指定层

twtysoi · 发表于 2020-5-27 19:02:05

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

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

×

(defun c:ttab (/ ss sl s obj e)
(if (= (tblsearch "Layer" "公差") nil)(command "Layer" "new" "公差" "color" "3" "公差" ""))
  (if (setq ss (ssget "x"(list (cons 0 "DIM*"))))
(progn
   (setq sl (sslength ss)
         s  (ssadd)
   )
   (while (and (setq e (ssname ss (setq sl (1- sl))))
               (setq obj (vlax-ename->vla-object e))
         )
      (if (> (vla-get-ToleranceDisplay obj) 0)
      (ssadd e s)
      )
   )
   (if (> (sslength s) 0)(command "CHANGE" s "" "P" "LA" "公差"  "c" "1" "")
      (sssetfirst nil s)
   )

)
  )
  (princ)
)

可以对一种修改，

newer · 发表于 2020-5-27 20:08:55

请把你的DWG图压缩传上来

twtysoi · 发表于 2020-5-27 21:21:37

newer 发表于 2020-5-27 20:08
请把你的DWG图压缩传上来

帮我用我哪个改下，谢谢，他的标注有时候公差哪里没有

newer · 发表于 2020-5-27 21:24:37

twtysoi 发表于 2020-5-27 21:21
帮我用我哪个改下，谢谢，他的标注有时候公差哪里没有

图内容太多，哪个有问题？你把有问题的留着，做个标记出来，其他删除了吧。

twtysoi · 发表于 2020-5-27 22:10:39

newer 发表于 2020-5-27 21:24
图内容太多，哪个有问题？你把有问题的留着，做个标记出来，其他删除了吧。

这个图中的所有标都是内容改的，原来，
(setq txtss (ssget "x"(list (cons 0 "*TEXT,*dim*") (cons 1 "*+0*,*-0*,*+.*,*-.*"))))
我用这个SETQ到了，但是标注字改不到颜色，

newer · 发表于 2020-5-27 23:10:19

twtysoi 发表于 2020-5-27 22:10
这个图中的所有标都是内容改的，原来，
(setq txtss (ssget "x"(list (cons 0 "*TEXT,*dim*") (cons 1 " ...

一楼说不能改层？现在又是不能改色，到底你想修改哪个遇到问题了？

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

[编程申请] 有一个公差标注不能修改成指定层

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

点评

点评

点评

点评