(求助)各位大神，看能不能帮小弟解决一下，双边偏移的问题

999999

各位大神，小弟在此打扰大家了，
如果有知道怎么解决的大神，抽空帮小弟解决一下，谢谢啦
代码附件已经发了

目前的情况就是：第一次输入命令时——输入间距为20——批量或只选一根线——结果往两边偏移的总间距是20(意思是左右两边一边偏移了10)（第一次输入命令是没有问题的）

第二次输入命令时（因为这个是带记忆功能的）——间距却变成了10（我想让这个间距还是20）——结果变成了两边偏移的总间距是10(意思是左右两边一边偏移了5)
第三次输入命令时（因为这个是带记忆功能的）——间距却变成了5（我想让这个间距还是20）——结果变成了两边偏移的总间距是5(意思是左右两边一边偏移了2.5)

求求大神，看能不能帮小弟解决这个问题，就是第一次输入的值是20，左右之间的间距是20，后面的不输入值，
默认的还是第一次输入的20，而不是越变越小的值
，感谢大神位的耐心停留

以下是代码

• ;双偏去中线
• (defun c:EE( / en m n pon ename et ppp ouse )
•   (setvar "cmdecho" 1)
•   (COMMAND "OFFSET" PAUSE "")
•   ;(prompt "\n Select Objects to Offset: ")
•   (setq en (ssget))
•   (setq m (sslength en ))
•   (setq n 0)
•   (setvar "cmdecho" 0)
•   (setq x (*(getvar "offsetdist")0.5))
•   (repeat m
•     (setq ename (ssname en n))
•     (setq et  (entget ename))
•     (setq ppp (trans (cdr (assoc 10 et)) 0 1))
•     (setq ouse (list ename ppp))
•     (setq pon  (trans (list (+ (car ppp) 1001) (- (cadr ppp) 1000) ) 0 1 ))
• ;    (command "offset" "" ouse pon "")
• (command "offset" x ouse pon "")
•     (setq ouse (list (entlast) (trans (cdr (assoc 10 (entget (entlast)))) 0 1)))
•     (command "offset" (* (getvar "offsetdist") 2 )  ouse ppp "")
•     (command "offset" (/ (getvar "offsetdist") 2 ) "")
•     (setq n (+ n 1))
•     (if (entget ename) (entdel ename))
•   )
• )
  

xyp1964

1. (defun c:tt ()
   
2.   "双偏去中线"
   
3.   (defun udist (bit kwd msg def bpt / inp)
   
4.    (if def
   
5.      (setq msg (strcat "\n" msg "<" (rtos def) ">: ")
   
6.            bit (* 2 (fix (/ bit 2)))
   
7.      )
   
8.      (setq msg (strcat "\n" msg ": "))
   
9.    )
   
10.   (initget bit kwd)
    
11.   (setq inp(if bpt(getdist msg bpt)(getdist msg)))
    
12.   (if inp inp def)
    
13. )
    
14.   (or dd (setq dd 20.))
    
15.   (setq dd (Udist 7 "" "距离<输入或鼠标直接量取>" dd nil)
    
16.         d1 (* dd 0.5)
    
17.   )
    
18.   (setq i -1)
    
19.   (if (setq ss (ssget))
    
20.     (while (setq s1 (ssname ss (setq i (1+ i))))
    
21.       (setq ob (vlax-ename->vla-object s1))
    
22.       (vla-offset ob d1)
    
23.       (vla-offset ob (- d1))
    
24.       (entdel s1)
    
25.     )
    
26.   )
    
27.   (princ)
    
28. )

(defun c:tt ()<br />   "双偏去中线"<br />   (defun udist (bit kwd msg def bpt / inp)<br />    (if def<br />      (setq msg (strcat "\n" msg "<" (rtos def) ">: ")<br />            bit (* 2 (fix (/ bit 2)))<br />      )<br />      (setq msg (strcat "\n" msg ": "))<br />    )<br />   (initget bit kwd)<br />   (setq inp(if bpt(getdist msg bpt)(getdist msg)))<br />   (if inp inp def)<br /> )<br />   (or dd (setq dd 20.))<br />   (setq dd (Udist 7 "" "距离<输入或鼠标直接量取>" dd nil)<br />         d1 (* dd 0.5)<br />   )<br />   (setq i -1)<br />   (if (setq ss (ssget))<br />     (while (setq s1 (ssname ss (setq i (1+ i))))<br />       (setq ob (vlax-ename->vla-object s1))<br />       (vla-offset ob d1)<br />       (vla-offset ob (- d1))<br />       (entdel s1)<br />     )<br />   )<br />   (princ)<br /> )

xj6019

随便搞搞不就行了





;双偏去中线
(defun c:EE( / en m n pon ename et ppp ouse )
  (setvar "cmdecho" 1)
  (COMMAND "OFFSET" PAUSE "")
  ;(prompt "\n Select Objects to Offset: ")
        (IF (AND
                                (setq en (ssget))
                                (setq m (sslength en ))
                                (setq n 0)
                        )
                (PROGN
                        (setvar "cmdecho" 0)
                        (setq x (*(getvar "offsetdist")0.5))
                        (repeat m
                                (setq ename (ssname en n))
                                (setq et  (entget ename))
                                (setq ppp (trans (cdr (assoc 10 et)) 0 1))
                                (setq ouse (list ename ppp))
                                (setq pon  (trans (list (+ (car ppp) 1001) (- (cadr ppp) 1000) ) 0 1 ))
                                ;    (command "offset" "" ouse pon "")
                                (command "offset" x ouse pon "")
                                (setq ouse (list (entlast) (trans (cdr (assoc 10 (entget (entlast)))) 0 1)))
                                (command "offset" (* (getvar "offsetdist") 2 )  ouse ppp "")
                                (command "offset" (/ (getvar "offsetdist") 2 ) "")
                                (setq n (+ n 1))
                                (if (entget ename) (entdel ename))
                        )
                        (setvar "offsetdist" (*(getvar "offsetdist")2))
                )
        )
        (princ)
)

999999

xyp1964 发表于 2024-1-13 17:16

谢谢院长大人，这个插件非常的好用，感谢感谢

999999

xj6019 发表于 2024-1-13 16:45
随便搞搞不就行了

大神改的正是我想要的，谢谢大神出手

zmzk

非常不错， 收下备用