我有一份挑战性的工作要做

sayhi_sanjay1 · 发表于 2022-7-6 06:46:57

各位专家好，

我有一项挑战性的工作要做，请帮帮我。

我想画一个尺寸为米的圆+另一个直径为1/2的圆+直径为1/4的圆+直径为1/3的圆+直径为1/6的圆，所有其他圆都是根据第一个圆的尺寸，第一个圆应该是米。

例如：

圆直径为-60 m。
第1个以上的圆应为直径60m的圆的偏移量，计算同一圆直径的1/2，并且应具有不同的颜色或类似的层，所有其他圆应具有相同的偏移量

LibertyOne · 发表于 2022-7-6 06:53:36

这里有一些快速而肮脏的东西，图层或颜色的变化取决于你。
仅在Bricscad中测试

你可以从绘制第一个圆开始，然后选择它。。。

copy

;;GET DATA
(    setq el    (entget (car (entsel)))
   r (cdr (assoc 40 el))
   half (/ r 2.0)
   third (/ r 3.0)
   quarter (/ r 4.0)
   sixth (/ r 6.0)
   midpt (cdr (assoc 10 el))
)
;;DRAW CIRCLES
(command "_.CIRCLE" midpt half)
(command "_.CIRCLE" midpt third)
(command "_.CIRCLE" midpt quarter)
(command "_.CIRCLE" midpt sixth)

sayhi_sanjay1 · 发表于 2022-7-6 07:00:42

我正在使用autocad如何在cad中使用此代码

LibertyOne · 发表于 2022-7-6 07:05:26

在再次阅读你的帖子后，我才意识到：

第一个圆的同心圆是向外还是向内？

向内使用上述代码

相反，向外发展是这样的：

copy

    half (+ r (/ r 2.0))     third (+ r (/ r 3.0))     quarter (+ r (/ r 4.0))     sixth (+ r (/ r 6.0))

sayhi_sanjay1 · 发表于 2022-7-6 07:13:17

这就是我正在寻找的方法，这只是主油箱1/2dia的示例。

LibertyOne · 发表于 2022-7-6 07:19:25

我现在明白你的意思了。我发布的所有代码都是针对命令行的。您正在寻找要加载和运行的内容。将代码保存到外部文件并将其加载到图形中。绘制坦克圆圈，并在命令行中键入命令测试。它会提示您选择一个实体（在本例中，是代表水箱的圆）。

copy

(defun c:test ()
;;GET DATA
(    setq el    (entget (car (entsel)))
    r (cdr (assoc 40 el))
    half (+ r (/ r 2.0))
    third (+ r (/ r 3.0))
    quarter (+ r (/ r 4.0))
    sixth (+ r (/ r 6.0))
    midpt (cdr (assoc 10 el))
)
;;DRAW CIRCLES
(command "_.CIRCLE" midpt half)
(command "_.CIRCLE" midpt third)
(command "_.CIRCLE" midpt quarter)
(command "_.CIRCLE" midpt sixth)
)