曲线多重偏移（第二版）

newer · 发表于 2019-1-23 16:08:39

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 newer 于 2019-1-23 16:15 编辑

较第一版加入了*号多次重复

多重偏移，逗号隔开多个偏移距离，*号重复多次
比如 300*3,1500
表示选择的对象300平行三次，300,600,900，再偏移1500

(defun c:XDTB_CurveOffset (/ d1 d2 ss strl dl s i)
(if (and (xdrx_prompt "\n选取要多重偏移的曲线<退出>:")
(setq ss (ssget '((0 . "*line,circle,arc,ellipse"))))
)
(progn
(while (/= ""
(setq strl (getstring "\n输入偏移距离(+-,重复*),以逗号分隔<退出>: "))
)
(xdrx_begin)
(setq dl (xdrx_string_split strl ","))
(foreach d dl
(mapcar '(lambda (x)
(setq d2 nil)
(setq d1 (xdrx_string_split x "*"))
(if (= (length d1) 2)
(progn (setq i 0)
(repeat (atoi (cadr d1))
(setq d2 (cons (* (setq i (1+ i)) (atof (car d1))) d2))
)
)
(progn (setq d2 (list (atof (car d1)))))
)
(mapcar '(lambda (y) (xdrx_curve_getoffsetcurves ss y)) d2)
)
dl
)
)
(xdrx_end)
)
)
)
(princ)
)

(defun c:XDTB_CurveOffset (/ d1 d2 ss strl dl s i) 
  (if (and (xdrx_prompt "\n选取要多重偏移的曲线<退出>:") 
           (setq ss (ssget '((0 . "*line,circle,arc,ellipse")))) 
      ) 
    (progn 
      (while (/= "" 
                 (setq strl (getstring "\n输入偏移距离(+-,重复*),以逗号分隔<退出>: ")) 
             ) 
        (xdrx_begin) 
        (setq dl (xdrx_string_split strl ",")) 
        (foreach d dl 
          (mapcar '(lambda (x) 
                     (setq d2 nil) 
                     (setq d1 (xdrx_string_split x "*")) 
                     (if (= (length d1) 2) 
                       (progn (setq i 0) 
                              (repeat (atoi (cadr d1)) 
                                (setq d2 (cons (* (setq i (1+ i)) (atof (car d1))) d2)) 
                              ) 
                       ) 
                       (progn (setq d2 (list (atof (car d1))))) 
                     ) 
                     (mapcar '(lambda (y) (xdrx_curve_getoffsetcurves ss y)) d2) 
                   ) 
                  dl 
          ) 
        ) 
        (xdrx_end) 
      ) 
    ) 
  ) 
  (princ) 
)

zero彡 · 发表于 2019-1-23 16:24:54

非常实用，顶顶

zhystar · 发表于 2019-1-24 07:47:02

这个有意思，谢谢分享

coverne · 发表于 2019-1-24 08:17:16

总算加入了，感谢

kqqt6236 · 发表于 2019-1-24 14:17:50

版主能不能再来一个截取局部曲线多重偏移？

f4800 · 发表于 2019-1-27 11:54:20

你好大神，有个程序存在问题能否帮忙修改下啊多谢存在问题
1.左侧4组右侧3组数据，少了会报错
2.高差距离相对于中心线

期望改进或修改的
1.左右侧支持 8-10组数据，如果实际点取数少于8-10组时不会报错
2.高差距离相对于上一个点取的点
3.保存格式txt记事本就行

多谢多谢

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:横断面提取-有问题.lsp
下载次数:1 文件大小:4.52 KB
下载权限: 不限以上 [免费赚D豆]

dongf2008 · 发表于 2019-3-11 15:55:49

谢谢楼主分享

gdfyhao · 发表于 2019-3-11 18:16:06

很实用的功能，已经想到要在哪里使用了，谢谢分享

xfange · 发表于 2019-3-21 13:35:29

想要个偏移闭合的，不知道论坛里有没有

账号		自动登录	找回密码
密码			立即注册

[曲线] 曲线多重偏移（第二版）

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。