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

taoyi0727

香远益清 发表于 2020-11-6 14:14
参数类型错误: point: nil

没有问题的，不知道你怎么用的

37902505

taoyi0727 发表于 2020-11-6 14:19
没有问题的，不知道你怎么用的

是没问题的，

linheyuanpcb

同求，可以做成以下效果吗
在起点和终点先生成指定大小为6的圆
然后再平分，但平分距离指定在70-100mm这个范围来确定数量？谢谢

taoyi0727

linheyuanpcb 发表于 2020-11-14 14:55
同求，可以做成以下效果吗
在起点和终点先生成指定大小为6的圆
然后再平分，但平分距离指定在70-100mm这 ...

如长7000，是按70的距离还是100呢

taoyi0727

linheyuanpcb 发表于 2020-11-14 14:55
同求，可以做成以下效果吗
在起点和终点先生成指定大小为6的圆
然后再平分，但平分距离指定在70-100mm这 ...

如长度130，是怎么判断，按70？还是100，怎么分？

linheyuanpcb

taoyi0727 发表于 2020-11-14 17:28
如长度130，是怎么判断，按70？还是100，怎么分？

小于130时，只画起点和终点的了，不需再分

linheyuanpcb

taoyi0727 发表于 2020-11-14 17:23
如长7000，是按70的距离还是100呢

大于400时按100
主要希望能以80来做平均.谢谢

taoyi0727

linheyuanpcb 发表于 2020-11-14 20:47
大于400时按100
主要希望能以80来做平均.谢谢

(defun c:tt (/ ang l 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 l (/ len (setq n (fix (/ len 80)))))
                        (setq nn -1)
                        (repeat (1+ n)
                                (setq pt (polar pt1 ang (* l (setq nn (1+ nn)))))
                                (entmake (list '(0 . "CIRCLE") (cons 10 pt) (cons 40 3)))
                        )
                )
        )
)

taoyi0727

linheyuanpcb 发表于 2020-11-14 20:47
大于400时按100
主要希望能以80来做平均.谢谢

间距不小于80

37902505

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

大哥，想再多请教下，如果再出圆的基础上，再出多一行块，能不能实现的？