Doggone PLINE Won't Close

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

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.

copy

(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

copy

(command "_.PLINE")(foreach pt ptlist (command "_non" pt))[color=red](command "_C")[/color]

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.

[编程交流] Doggone PLINE Won't Close

发表回复

精选推荐