标注增加或减少固定值

2125762715

大佬们，请问有没有什么小插件能让标注统一加长或减少固定值的，我这边产品生产要提前留出来几毫米安装缝，但是每次标上去产品长度扣多少多少加工师傅都当没看见，手动扣太麻烦了

vitalgg

如果无法播放，请点击此处在新窗口打开

1. (progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""cn/cloud"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))
   
2. 
   
3. (defun c:azf ()
   
4.   (@::prompt "调整尺寸安装缝")
   
5.   (setq anzhuangfeng (getint "请输入要调整尺寸安装缝(mm):"))
   
6.   (mapcar
   
7.    '(lambda(x)
   
8.      (entity:putdxf
   
9.       x
   
10.       1
    
11.       (itoa (fix (+ anzhuangfeng (entity:getdxf x 42))))))
    
12.    (pickset:to-list (ssget '((0 . "DIMENSION"))))))
    

(progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""cn/cloud"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))<br /> <br /> (defun c:azf ()<br />   (@::prompt "调整尺寸安装缝")<br />   (setq anzhuangfeng (getint "请输入要调整尺寸安装缝(mm):"))<br />   (mapcar<br />    '(lambda(x)<br />      (entity:putdxf<br />       x<br />       1<br />       (itoa (fix (+ anzhuangfeng (entity:getdxf x 42))))))<br />    (pickset:to-list (ssget '((0 . "DIMENSION"))))))<br />

已整合进@lisp, 可安装 @lisp标注 应用包使用。

biya

直接改值不讲究吧，不是加公差就好了，写个公差
你硬生生改的话，以后数字不同步了

2125762715

biya 发表于 2025-3-14 16:58
直接改值不讲究吧，不是加公差就好了，写个公差
你硬生生改的话，以后数字不同步了

我也不想，但是不直接把减完安装缝的尺寸标上去，加工师傅根本不会管我标的什么所有长度减少多少多少或者2000-5，就当看不见一样

kuangbiaoa

试试直接改组码