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

kzd2004

shiy65 发表于 2024-1-26 09:56
(defun c:ttc ( / wt pt0 pt1 ssen)
  (setq wt t)
  (print "多点复制命令...")

感谢你的回复，还是要一个一个的点选。

shiy65

【编程框选，逐个查询目标点，循环拷贝】
需要有筛选规则，确定想要的点，排除不想要的点。
筛选规则，需要有限范围内唯一确定性的指标，不能猜，否则结果不可预测，最好自己研究。

shiy65

编程框选，需要明确选取规则，
框选区域内，有多个可选择的点存在。如何选择需要点，排除非需要点，需要明确的唯一性选取规则。
否则，结果可能不是你想要的。

kzd2004

shiy65 发表于 2024-1-26 09:59
复制目标只选一次
目标点还是要一个一个选

多谢你了。

shiy65

没有原图，不好制定判断规则，建议你发原图上来，请长老回复。

guosheyang

循环复制对象就可以了

kzd2004

guosheyang 发表于 2024-1-26 14:12
循环复制对象就可以了

谢谢你了，能分享一下吗？万分感谢！

kwok

(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

kwok 发表于 2024-1-26 16:28
(defun c:t5 ( / pt ss en i pa pb e)
(command ".undo" "be")
  (setq e (car (entsel "\选择对象:")) ...

真心感谢你的无私帮助。谢谢！

xyp1964