怎么一次性偏移两个尺寸出来呢

277283904

感谢各位！！！

277283904

xyp1964 发表于 2024-1-2 18:48

感谢版主，这是固定距离了，要修改距离的话要到代码里修改吗？

xyp1964

277283904 发表于 2024-1-3 08:37
感谢版主，这是固定距离了，要修改距离的话要到代码里修改吗？

1. (defun c:tt ()
   
2.   (defun xyp-StrSpr (str sub / lst n)
   
3.     (if (/= sub "")
   
4.       (progn
   
5.         (while (setq n (vl-string-search sub str))
   
6.           (setq lst (cons (substr str 1 n) lst)
   
7.                 str (substr str (+ n (strlen sub) 1))
   
8.           )
   
9.         )
   
10.         (vl-remove "" (reverse (cons str lst)))
    
11.       )
    
12.     )
    
13.   )
    
14.   (princ "\n输入多重距离以分号分开(正负值偏移方向不同)")
    
15.   (or dd (setq dd "-15;-30;20;60;100"))
    
16.   (setq dd (Ustr -1 "距离表" dd nil))
    
17.   (setq lst (xyp-StrSpr dd ";")
    
18.         lst (vl-remove-if-not 'distof lst)
    
19.         lst (mapcar 'distof lst)
    
20.   )
    
21.   (while (setq s1 (car (entsel "\n选择需要偏移的对象: ")))
    
22.     (setq ob (vlax-ename->vla-object s1))
    
23.     (mapcar '(lambda (x) (vla-offset ob x)) lst)
    
24.   )
    
25.   (princ)
    
26. )
    

(defun c:tt ()<br />   (defun xyp-StrSpr (str sub / lst n)<br />     (if (/= sub "")<br />       (progn<br />         (while (setq n (vl-string-search sub str))<br />           (setq lst (cons (substr str 1 n) lst)<br />                 str (substr str (+ n (strlen sub) 1))<br />           )<br />         )<br />         (vl-remove "" (reverse (cons str lst)))<br />       )<br />     )<br />   )<br />   (princ "\n输入多重距离以分号分开(正负值偏移方向不同)")<br />   (or dd (setq dd "-15;-30;20;60;100"))<br />   (setq dd (Ustr -1 "距离表" dd nil))<br />   (setq lst (xyp-StrSpr dd ";")<br />         lst (vl-remove-if-not 'distof lst)<br />         lst (mapcar 'distof lst)<br />   )<br />   (while (setq s1 (car (entsel "\n选择需要偏移的对象: ")))<br />     (setq ob (vlax-ename->vla-object s1))<br />     (mapcar '(lambda (x) (vla-offset ob x)) lst)<br />   )<br />   (princ)<br /> )<br />

Qwer1243

xyp1964 发表于 2024-1-3 12:58

感谢分享......................