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

277283904

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

飞雪神光

277283904 发表于 2024-1-2 17:41
就是下面的白线的偏移，不要标注，标注只是给大家看的

用上面网址里的改一下就是了

1. (defun c:tt3 (/ dis1 dis2 en n pt)
   
2.         (setvar "cmdecho" 0)
   
3.         (setq
   
4.                 en (entsel "\n选择需要偏移的对象:")
   
5.                 dis1 (getreal "\n偏移距离1:")
   
6.                 dis2 (getreal "\n偏移距离2:")
   
7.                 pt (getpoint "\n指定偏移方向一点:")
   
8.         )
   
9.         (command "offset" dis1 en pt "")
   
10.         (command "offset" (+ dis1 dis2) en pt "");此处可以和上面的对比
    
11.         (princ)
    
12. )

(defun c:tt3 (/ dis1 dis2 en n pt)<br />         (setvar "cmdecho" 0)<br />         (setq<br />                 en (entsel "\n选择需要偏移的对象:")<br />                 dis1 (getreal "\n偏移距离1:")<br />                 dis2 (getreal "\n偏移距离2:")<br />                 pt (getpoint "\n指定偏移方向一点:")<br />         )<br />         (command "offset" dis1 en pt "")<br />         (command "offset" (+ dis1 dis2) en pt "");此处可以和上面的对比<br />         (princ)<br /> )

飞雪神光

问题不够具体

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 />

帝都划水王

简单的输入两个偏移距离，如果还有其他要求再说

hhh454

这个里面有多重偏移的代码
foreach的故事
http://bbs.mjtd.com/forum.php?mo ... &fromuid=363233
(出处: 明经CAD社区)

277283904

hhh454 发表于 2024-1-2 17:01
这个里面有多重偏移的代码
foreach的故事
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=182258&fro ...

他是固定距离，不是我想要的，谢谢！

277283904

帝都划水王 发表于 2024-1-2 16:55
简单的输入两个偏移距离，如果还有其他要求再说

可以一次性输入两个距离然后偏移两个距离吗，怎么操作呢，谢谢！

277283904

飞雪神光 发表于 2024-1-2 16:37
问题不够具体

就是一次性输入两个距离，然后偏移这两个距离啊

你有种再说一遍

遍历偏移咯

飞雪神光

277283904 发表于 2024-1-2 17:20
就是一次性输入两个距离，然后偏移这两个距离啊

那这不应该叫 偏移啊 这叫输入两个距离 生成标注 且还需要指定点和标注距离 下边的三根白线真有误导性

277283904

飞雪神光 发表于 2024-1-2 17:34
那这不应该叫 偏移啊 这叫输入两个距离 生成标注 且还需要指定点和标注距离 下边的三根白线真有误导性

就是下面的白线的偏移，不要标注，标注只是给大家看的