双向偏移程序

maiko

longer1000 发表于 2016-7-2 08:13
能加一个设置图层功能就完美你

自己加Layer,都钻石会员了还不会?

maiko

longer1000 发表于 2016-7-2 08:13
能加一个设置图层功能就完美你

;函数名称 OFFSET
;函数用法 (OFFSET mode0 mode1 mode2 mode3 mode4 mode5)
;参数 mode0 :图元,选择集,图元表,obj对象
;参数 mode1 :偏移距离,可数据表(INT REAL)类型, 数据表'(2.5 3 3.5 4 4.5 5)
;参数 mode2 :正偏移                  t为偏移 nil为不偏移
;参数 mode3 :负偏移                  t为偏移 nil为不偏移
;参数 mode4 :偏移对象是否移到指定图层     nil为不移到指定层 输入字串为指定层
;参数 mode5 :是否删除原子线            t为删除原子线,nil为不删除
(defun c:tt ( / o d e c )
  (setq d (getdist "\n输入偏移距离<直接量取>:"))
  (setq e (not (getpoint "\n左键不删除 <空格删除>")))
  (setq c (/= "" (getstring "\n是否偏移到当前层<Y>")))
  (if c (setq c nil)(setq c (getvar 'CLAYER)))
  (if (setq ss (ssget '((0 . "Arc,Circle,Ellipse,*Line"))))
    (offset ss d t t c e)
  )
  (princ)
)

2. (defun c:tt1 ( / ss )
   
3.   (if (setq ss (ssget))
   
4.     (offset ss 5 t t nil t)
   
5.   )
   
6. )
   
7. (defun c:tt2 ( / ss )
   
8.   (if (setq ss (ssget))
   
9.     (offset ss '(2.5 3 3.5 4 4.5 5) t t "偏移后对象" nil)
   
10.   )
    
11.   (princ)
    
12. )
    
13. (defun c:tt3 ( / ss )
    
14.   (if (setq ss (ssget))
    
15.     (mapcar
    
16.       (function
    
17.         (lambda (x)
    
18.           (offset x '(2.5 3 3.5 4 4.5 5) t t "偏移后对象" nil)
    
19.         )
    
20.       )
    
21.       (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
    
22.     )
    
23.   )
    
24.   (princ)
    
25. )
    
26. (defun c:tt4 ( / ent )
    
27.   (if (setq ent (car(entsel)))
    
28.     (offset ent '(2.5 3 3.5 4 4.5 5) t t nil t)
    
29.   )
    
30.   (princ)
    
31. )
    
32. (defun c:tt5 ( / obj )
    
33.   (if (setq obj (vlax-ename->vla-object (car(entsel))))
    
34.     (offset obj '(2.5 3 3.5 4 4.5 5) t t nil t)
    
35.   )
    
36.   (princ)
    
37. )

(defun c:tt1 ( / ss )<br />   (if (setq ss (ssget))<br />     (offset ss 5 t t nil t)<br />   )<br /> )<br /> (defun c:tt2 ( / ss )<br />   (if (setq ss (ssget))<br />     (offset ss '(2.5 3 3.5 4 4.5 5) t t "偏移后对象" nil)<br />   )<br />   (princ)<br /> )<br /> (defun c:tt3 ( / ss )<br />   (if (setq ss (ssget))<br />     (mapcar<br />       (function<br />         (lambda (x)<br />           (offset x '(2.5 3 3.5 4 4.5 5) t t "偏移后对象" nil)<br />         )<br />       )<br />       (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))<br />     )<br />   )<br />   (princ)<br /> )<br /> (defun c:tt4 ( / ent )<br />   (if (setq ent (car(entsel)))<br />     (offset ent '(2.5 3 3.5 4 4.5 5) t t nil t)<br />   )<br />   (princ)<br /> )<br /> (defun c:tt5 ( / obj )<br />   (if (setq obj (vlax-ename->vla-object (car(entsel))))<br />     (offset obj '(2.5 3 3.5 4 4.5 5) t t nil t)<br />   )<br />   (princ)<br /> )

尒樣僮

来学习下 ，这是个好论坛

流动的清泉

有没有人 试过，在用到射线的时候，程序就不能正常运行了。

timmy521

谢谢收藏 了，好东西。

yangchao2005090

maiko 发表于 2016-6-29 00:52
;;;来个vla简单的

请问一下空格不删除，左键删除这个怎么改一下啊

mashanjie

琴剑江山_10184 发表于 2016-6-27 09:08

这个太赞了，给力，很好用，谢谢~是我想要的

renxianjing

流动的清泉 发表于 2017-11-14 10:28
有没有人 试过，在用到射线的时候，程序就不能正常运行了。

选择集没有选中射线，要改。
射线是ray，在(0 . "Arc,Circle,Ellipse,*Line")中加入"ray"。