求一个标注取整的插件 求求大神们

a6262846

;; tt(尺寸进位)
(defun c:tt ()
  (setq rnd (Ureal 5 "" "舍入值" rnd))
  (setvar "DIMRND" rnd)
  (if (setq ss (ssget '((0 . "dim*"))))
    (command "dim1" "upd" ss "")
  )
  (princ)
)
  这是一位大神写的  那位大神可以改动一下 这个还运行不了

a6262846

顶一下  求大神啊

xazhji

a6262846 发表于 2019-3-19 15:17
;; tt(尺寸进位)
(defun c:tt ()
  (setq rnd (Ureal 5 "" "舍入值" rnd))

;; tt(尺寸进位)
(defun c:tt ()
  (setvar "DIMDEC" 0)
  (if (setq ss (ssget '((0 . "dim*"))))
    (command "dim1" "upd" ss "")
  )
  (princ)
)

a6262846

xazhji 发表于 2019-3-28 17:27
;; tt(尺寸进位)
(defun c:tt ()
  (setvar "DIMDEC" 0)

大神   用不了啊

a6262846

xazhji 发表于 2019-3-28 17:27
;; tt(尺寸进位)
(defun c:tt ()
  (setvar "DIMDEC" 0)

;; tt(尺寸进位)
(defun c:tt ()
  (setvar "DIMRND" 5)
  (if (setq ss (ssget '((0 . "dim*"))))
    (command "dim1" "upd" ss "")
  )
  (princ)
)  大神  我弄成这样可以了  可是全部都会变  我需要的是个别需要变而变...

xazhji

a6262846 发表于 2019-3-29 14:46
;; tt(尺寸进位)
(defun c:tt ()
  (setvar "DIMRND" 5)

我改的测试可以的，你再试试？还不行，联系我吧

a6262846

xazhji 发表于 2019-4-2 19:07
我改的测试可以的，你再试试？还不行，联系我吧

大神 我没有权限联系你:Q

大神大神    你那个写的lsp是加小数点的 不是取整  我的意思是标注121会变成120  222会变成220的这种  我改了一下 然后可以改  但是模型文件的变量都变了  我要的是选择的标注变成整数而已  模型文件还是不变的

xazhji

a6262846 发表于 2019-4-8 09:15
大神 我没有权限联系你

大神大神    你那个写的lsp是加小数点的 不是取整  我的意思是标注121会变成 ...

既然已经到了写程序的地步，那就不改系统参数，直接修改标注值吧  交流群:283014818   QQ:461202580

狼魔

highflybir 发表于 2019-3-11 15:08
选择你要的标注，调整这个地方即可。
或者调整一个，用刷子刷也行。

大神厉害，学了一招

LHQ

谢谢，又学了一招！