cafa 发表于 2025-1-4 07:37:59

请教沿X/Y轴复制的问题

沿Y轴复制，当输入距离，例如1000，复制后两个对象Y轴的距离却小于1000，什么原因呢？望大佬指正。
(defun C:copyy (/ Old_Cmd SS p1 p2)
(setq Old_Cmd (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(setq ss (SSget))
(setq p1 (getpoint "\n请指定基点"))
(setq di (getreal "请输入距离:"))
(if (not di)
(progn
(setq p2 (getpoint p1 "\n请指定下一点"))
(command "copy" ss "" p1 ".y" p2 p1)
)
(progn
(command "copy" ss "" p1 ".y" (polar p1 90 di) p1))
)
(setvar "CMDECHO" Old_Cmd)
(princ)
)

尘缘一生 发表于 2025-1-4 07:51:03

(setq p1 (getpoint "\n请指定基点"))
换为 (setq p1 '(0.0 0.0 0.0)) 试一试

cafa 发表于 2025-1-4 08:12:51

尘缘一生 发表于 2025-1-4 07:51
(setq p1 (getpoint "\n请指定基点"))
换为 (setq p1 '(0.0 0.0 0.0)) 试一试

还是不行，

pzweng 发表于 2025-1-4 08:22:44

   (polar p1 90 di)    =>       (polar p1 (* 0.5 pi) di)

cafa 发表于 2025-1-4 08:44:32

pzweng 发表于 2025-1-4 08:22
(polar p1 90 di)    =>       (polar p1 (* 0.5 pi) di)

完美解决，感谢
页: [1]
查看完整版本: 请教沿X/Y轴复制的问题