Spline --> Method --> 1. Fit, 2. CV

[Anonymous]

1. Spline --> Method --> Fit
2. Spline --> Method --> CV

 na foums.autodesk.com
 Hello,
 from a long time I try to write the lisps:
1. "Draw Spline with Method: Fit."
 and
2. Draw Spline with metod "CV."

 So I wrote these lisps:

(DEFUN C:S () (COMMAND "_SPLINE"))
; Spline VeRtex
(DEFUN C:SVR (/)(setvar "cmdecho" 0) (princ "\nDraw Spline Fitted to Vertices." ) (command "_SPLINE" "_M" "_Fit"))
(DEFUN C:SSEG (/)(setvar "cmdecho" 0) (princ "\nDraw Spline Tangemt to Poliline Segments." ) (command "_SPLINE" "_M" "_CV"))
(DEFUN C:SSEG1 (command "_SPLINE" "_M" "_FIT"))

 , but they don't work properly.

 In the CommandLine, there is:
Command: svr
 Rysuje Spline DO WIERZCHOŁKÓW
Point or option keyword required.
; error: Function cancelled

 Could anybody tell me, what is wrong and how should this lisp be written?

[hmsilva]

Perhaps something like this

(defun c:svr (/ echo)
  (setq echo (getvar 'CMDECHO))
  (setvar "cmdecho" 0)
  (princ "\nDraw Spline Fitted to Vertices.")
  (initcommandversion)
  (command "_.spline" "_M" "_Fit")
  (while (> (getvar 'cmdactive) 0)
    (command "\\")
  )
  (setvar "cmdecho" echo)
  (princ)
)
(defun c:sseg (/ echo)
  (setq echo (getvar 'CMDECHO))
  (setvar "cmdecho" 0)
  (princ "\nDraw Spline Tangemt to Poliline Segments.")
  (initcommandversion)
  (command "_SPLINE" "_M" "_CV")
  (while (> (getvar 'cmdactive) 0)
    (command "\\")
  )
  (setvar "cmdecho" echo)
  (princ)
)

Henrique

[Anonymous]

Yes, it works!

Thank you very much.

I named it at beginning SVRH and SSEGSH, because "H" is like "Henrique", who helped me 🙂

But I changed their name on: SF (like Spline FIt) and SCV (like Spline Control Vertices), respectively.

[hmsilva]

You're welcome!
Glad I could help

Henrique

[Anonymous]

How to insert points from a txt file ?