Topic: Challenge ( Kind of ) Arc Entmake Data

[xyp1964]

;; ArcWith3pt (ArcWith3pt p1 p2 p3)
(defun ArcWith3pt (P1 P2 P3)
  (defun 3d2d (point)
    (if   (= (length point) 3)
      (list (car point) (cadr point))
      point
    )
  )
  (command "ucs" "n" "3" "non" p1 "non" p2 "non" p3)
  (command "arc"
      "non"
      (3d2d (trans P1 0 1))
      "non"
      (3d2d (trans P2 0 1))
      "non"
      (3d2d (trans P3 0 1))
  )
  (command "ucs" "p")
  (entlast)
)