求助大佬们,调整标注尺寸公差精度的lsp该如何写?

XO-20170910

程序构想:先选择该标注,然后程序变更该标注的公差精度




类似于这种调整标注精度的
(defun c:w2         (/ ss)(setq ss (ssget '((0 . "Dimension"  )))) (command "aidimprec" "2" ss "") (princ))

goldwheat

可以试试下面的代码………………(defun c:ggcha (/ ss n cnt# enlst)
        (vl-load-com)
        (setq jidulst (list 'acDimPrecisionZero
                'acDimPrecisionOne
                'acDimPrecisionTwo
                'acDimPrecisionThree
                'acDimPrecisionFour
                'acDimPrecisionFive
                'acDimPrecisionSix
                'acDimPrecisionSeven
                'acDimPrecisionEight
        ))
        (initget 5 "0 1 2 3 4 5 6 7 8")
        (setq int# (getint "\n请输入精度<保留小数点的位数>[0位,1位,2位,3位,4位，5位，6位，7位，8位]"))
        (while (setq ss (ssget '((0 . "DIMENSION"))))
                (setq n (sslength  ss )
               
                      cnt# n
        )
               
                (repeat n
                (setq ename^ (ssname ss (setq cnt# (1- cnt#))))
                (setq enameobj  (vlax-ename->vla-object ename^ ))
                (vlax-put-property enameobj 'TolerancePrecision (eval (nth int# jidulst))))
        )
       
       
  )

zkq1212

应该是修改指定标注的DIMTDEC系统变量值。(COMMAND "_DIMOVERRIDE" "DIMTDEC" "3" "")，你试下

XO-20170910

zkq1212 发表于 2023-12-4 09:42
应该是修改指定标注的DIMTDEC系统变量值。(COMMAND "_DIMOVERRIDE" "DIMTDEC" "3" "")，你试下

感谢大佬,等会去试试

XO-20170910

goldwheat 发表于 2023-12-4 14:19
可以试试下面的代码………………(defun c:ggcha (/ ss n cnt# enlst)
        (vl-load-com)
        (setq jidu ...

感谢大佬,可以设置公差精度

XO-20170910

goldwheat 发表于 2023-12-4 14:19
可以试试下面的代码………………(defun c:ggcha (/ ss n cnt# enlst)
        (vl-load-com)
        (setq jidu ...

再次感谢大佬,完美解决