怎样沿曲线复制，但不对齐曲线。

kzd2004 · 发表于 2024-1-26 09:09:12

本帖最后由 kzd2004 于 2024-1-26 09:11 编辑

如图，请教，怎样沿曲线复制，但不对齐曲线，要和下面的对齐。

lht · 发表于 2024-1-26 09:13:29

你这不是沿曲线复制，而是在每条桩顶复制，与曲线无关。

guosheyang · 发表于 2024-1-26 14:12:53

循环复制对象就可以了

kwok · 发表于 2024-1-26 16:28:38

(defun c:t5 ( / pt ss en i pa pb e)
(command ".undo" "be")
  (setq e (car (entsel "\选择对象:")))
  (setq pt (getpoint"\n指定参考定位点"))
  (setq ss (ssget))
  (repeat (setq i (sslength ss))
(setq en (ssname ss (setq i (1- i)))
      pb (vlax-curve-getendpoint (vlax-ename->vla-object en))
      pa  (vlax-curve-getstartpoint (vlax-ename->vla-object en)))
      (if
         (< (car pa) (car pb))
         (> (car pa) (car pb))
         (setq pa pb pb pa))
(command "copy" e "" pt pa)
)
(command ".undo" "e")
  (princ)
)

kzd2004 · 发表于 2024-1-26 09:20:46

本帖最后由 kzd2004 于 2024-1-26 09:32 编辑

lht 发表于 2024-1-26 09:13
你这不是沿曲线复制，而是在每条桩顶复制，与曲线无关。

是的，有没有办法一次性完成，就是沿着（桩顶）曲线路径，一个一个的复制太慢了。

fan_zh · 发表于 2024-1-26 09:39:08

办法肯定有的

ssyfeng · 发表于 2024-1-26 09:39:59

从曲线起点按指定X向距离画竖向射线，求与曲线的交点，再绘制红色矩形。我想应该可以

kzd2004 · 发表于 2024-1-26 09:45:23

ssyfeng 发表于 2024-1-26 09:39
从曲线起点按指定X向距离画竖向射线，求与曲线的交点，再绘制红色矩形。我想应该可以

可是还是要一个一个的复制啊，请问有办法一次性解决吗？

ssyfeng · 发表于 2024-1-26 09:46:25

写代码啊，方法已经说了

liuhe · 发表于 2024-1-26 09:50:04

系统自带的的确没有，请使用钞能力吧

，方法的确是不难

shiy65 · 发表于 2024-1-26 09:56:03

(defun c:ttc ( / wt pt0 pt1 ssen)
  (setq wt t)
  (print "多点复制命令...")
  (setq ssen (ssget))
  (setq pt0 (getpoint"选择参考定位点"))
  (while wt
(setq pt1 (getpoint"选择目标点"))
(command "copy" ssen "" pt0 pt1)
)
  (princ)
)

shiy65 · 发表于 2024-1-26 09:59:08

复制目标只选一次
目标点还是要一个一个选

如果目标点太多，就要编程框选，逐个查询目标点，再循环拷贝了

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

[经验] 怎样沿曲线复制，但不对齐曲线。

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源