(求助)请问各位大神能否把等分辅助线改成等距辅助线

999999

以下是在论坛中纵横八方大神的贴子：

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=179925&extra=&highlight=%B5%C8%B7%D6%B8%A8%D6%FA%CF%DF&page=1

(defun c:fz( / n p1 p2 ang1 p0 m)
(setq p1 (getpoint "\n点取第一点："))
(setq p2 (getpoint p1 "\n点取第二点："))
(setq ang1 (angle p1 p2))
(setq n (getint "\n输入等分数："))
(if (null n)  (setq n 2))
(setq p0 (polar p1 ang1 (/ (distance p1 p2) n)))  
  (setq m 0)
  (repeat (- n 1)  
  (command "xline" "b" "non" p0 "non" p1 "non" p2 "")
  (setq m (+ m 1))
  (setq p0 (polar p0 ang1 (/ (distance p1 p2) n)))
  )
  )

start4444

(defun c:tt5 (/ ang1 d m n p0 p1 p2)
(setq p1 (getpoint "\n点取第一点："))
(setq p2 (getpoint p1 "\n点取第二点："))
(setq ang1 (angle p1 p2))
(setq d (getint "\n输入等分距离："))
(if (null d)  (setq d 100))
(setq p0 (polar p1 ang1 (/ (distance p1 p2) (setq n (fix (+ 0.5 (/ (distance p1 p2) d)))))))  
  (repeat (- n 1)  
  (command "xline" "b" "non" p0 "non" p1 "non" p2 "")
  (setq p0 (polar p0 ang1 (/ (distance p1 p2) n)))
  )
  )

999999

start4444 发表于 2021-5-19 15:53
(defun c:tt5 (/ ang1 d m n p0 p1 p2)
(setq p1 (getpoint "\n点取第一点："))
(setq p2 (getpoint p1 " ...

谢谢大神的热心帮助

xj6019

恭喜又搞定一个问题

999999

xj6019 发表于 2021-5-20 08:34
恭喜又搞定一个问题

大神们都很热心

xj6019

怎么看你又没币了

999999

xj6019 发表于 2021-5-20 13:26
怎么看你又没币了

要用的时候再说呗谢谢

l982414603

要用的时候再说呗谢谢