kzd2004 发表于 2024-1-26 10:03:14

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


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

shiy65 发表于 2024-1-26 10:05:41

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

shiy65 发表于 2024-1-26 10:15:51

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

kzd2004 发表于 2024-1-26 10:21:15

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



多谢你了。

shiy65 发表于 2024-1-26 11:30:26

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

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

循环复制对象就可以了

kzd2004 发表于 2024-1-26 14:42:16

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

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

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 16:53:59

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

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

xyp1964 发表于 2024-2-1 20:54:36






页: 1 [2]
查看完整版本: 怎样沿曲线复制，但不对齐曲线。