如何沿着直线左往右画等距偏移的圆

37902505

如题

start4444

(defun c:tt5 (/ ang p1 p2)
(setq p1 (getpoint"\n>>>选择点1:") p2 (getpoint p1"\n>>>选择点2:") ang (angle p1 p2))
(repeat (fix (/ (distance p1 p2) 100))
(command "circle" "non" (polar (setq p1 (polar p1 ang 100)) (+ ang (* 1.5 pi)) 40) 10)
)               
)

taoyi0727

点1到点2是直线？多段线？还是鼠标点2下？
点1到点2都是水平的？没有斜的？
有斜的是哪个点做为基准？
有斜的怎么下移40？
圆是多大？

37902505

那里没有线，只是鼠标点2下。点1到点2不一定是水平的，也可以是斜的，只要是从点1到点2的距离，就是从左往右的方向都是向一边下移40。圆为直径20MM，谢谢

香远益清

这个用autolisp编程太容易实现了，不需要别的语言。

taoyi0727

(defun c:tt (/ ang len n nn pt pt1 pt2)
        (if (and
                                (setq pt1 (getpoint "\n第1点"))
                                (setq pt2 (getpoint pt1 "\n第2点"))
                        )
                (progn
                        (setq ang (angle pt1 pt2))
                        (setq len (distance pt1 pt2))
                        (setq n (fix (/ len 100)))
                        (setq pt1 (polar pt1 (- ang (/ pi 2)) 40))
                        (setq nn 0)
                        (repeat n
                                (setq pt (polar pt1 ang (* 100 (setq nn (1+ nn)))))
                                (entmake (list '(0 . "CIRCLE") (cons 10 pt) (cons 40 10)))
                        )
                )
        )
)

香远益清

taoyi0727 发表于 2020-11-6 14:09
(defun c:tt (/ ang len n nn pt pt1 pt2)
        (if (and
                                (setq pt1 (getpoint "\n第1点"))

参数类型错误: point: nil

37902505

start4444 发表于 2020-11-6 13:57
(defun c:tt5 (/ ang p1 p2)
(setq p1 (getpoint"\n>>>选择点1:") p2 (getpoint p1"\n>>>选择点2:") ang ( ...

真快，高手呀

香远益清

start4444 发表于 2020-11-6 13:57
(defun c:tt5 (/ ang p1 p2)
(setq p1 (getpoint"\n>>>选择点1:") p2 (getpoint p1"\n>>>选择点2:") ang ( ...

第5行加上一句画线语句 ：      (command "line" p1 p2 "" )
估计就是楼主想要的结果

37902505

taoyi0727 发表于 2020-11-6 14:09
(defun c:tt (/ ang len n nn pt pt1 pt2)
        (if (and
                                (setq pt1 (getpoint "\n第1点"))

你和start4444都好厉害呀