(defun c:tt ()
(setq rnd (Ureal 5 "" "舍入值" rnd))
(setvar "DIMRND" rnd)
(if (setq ss (ssget '((0 . "dim*"))))
(command "dim1" "upd" ss "")
)
(princ)
)
这是一位大神写的那位大神可以改动一下 这个还运行不了 顶一下求大神啊 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)
) xazhji 发表于 2019-3-28 17:27
;; tt(尺寸进位)
(defun c:tt ()
(setvar "DIMDEC" 0)
大神 用不了啊 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)
)大神我弄成这样可以了可是全部都会变我需要的是个别需要变而变... a6262846 发表于 2019-3-29 14:46
;; tt(尺寸进位)
(defun c:tt ()
(setvar "DIMRND" 5)
我改的测试可以的，你再试试？还不行，联系我吧 xazhji 发表于 2019-4-2 19:07
我改的测试可以的，你再试试？还不行，联系我吧
大神 我没有权限联系你:Q
大神大神 你那个写的lsp是加小数点的 不是取整我的意思是标注121会变成120222会变成220的这种我改了一下 然后可以改但是模型文件的变量都变了我要的是选择的标注变成整数而已模型文件还是不变的 a6262846 发表于 2019-4-8 09:15
大神 我没有权限联系你
大神大神 你那个写的lsp是加小数点的 不是取整我的意思是标注121会变成 ...
既然已经到了写程序的地步，那就不改系统参数，直接修改标注值吧交流群:283014818 QQ:461202580 highflybir 发表于 2019-3-11 15:08
选择你要的标注，调整这个地方即可。
或者调整一个，用刷子刷也行。
大神厉害，学了一招 谢谢，又学了一招！
页:
1
[2]