Bill Tillman 发表于 2022-7-5 17:48:21

Doggone PLINE Won't Close

This code will setup and draw a nice polyline for me. Trouble is I would think that the PLINE would be closed when I'm finished with it. But alas, it's open and thus the WIPEOUT command will not work for me.

(setq ptList (list (polar (polar pt7 pi (- 3.75 0.1875 2.0625)) a270 0.25))   ptList (append ptList            (list (polar (polar pt7 pi (- 3.75 0.1875 2.0625)) a270 (+ 0.25 3.6875)))            (list (polar (polar pt7 0 0.25) a270 (+ 0.25 3.6875)))            (list (polar (polar pt7 0 (+ 0.25 (* (tan 30.) (- ribht 3.6875)))) a270 (+ 0.25 ribht)))            (list (polar (polar pt8 pi (+ 0.25 (* (tan 30.) (- ribht 3.6875)))) a270 (+ 0.25 ribht)))            (list (polar (polar pt8 pi 0.25) a270 (+ 0.25 3.6875)))            (list (polar (polar pt8 0 (- 3.75 0.1875 2.0625)) a270 (+ 0.25 3.6875)))            (list (polar (polar pt8 0 (- 3.75 0.1875 2.0625)) a270 0.25))            (list (polar (polar pt7 pi (- 3.75 0.1875 2.0625)) a270 0.25))            )   )   (command "._PLINE" (foreach pt ptlist (command pt))) (command-s "._WIPEOUT" "" (entlast) "Y")

marko_ribar 发表于 2022-7-5 18:20:20

(command "_.PLINE")(foreach pt ptlist (command "_non" pt))(command "_C")

BIGAL 发表于 2022-7-5 18:51:14

Marko beat me to it CLOSE I have not gone through every point but is last point the same as the 1st point if so do not use as the close will do this for you else you will have this extremely small last line.
页: [1]
查看完整版本: Doggone PLINE Won't Close