Leaderboard

@rlx made this useful lisp to convert stand alone dcl files into lisp. so things have the proper " " and slashes. -Edit

vlax-curve- functions instead of snaps would be more reliable. or entsel the arc and calcualte the start pt end pt radius and center point to calculate the mid point.

You could save the snap settings to a variable, change the snap settings to midpoint only, select the arc and hope that the mid point is selected - if the user clicks too far away it might not snap to the mid point. Reset the snap settings using the variable from earlier - doing that a soon as practical in case of a LISP error or user cancels (assuming of course you'd also do this in an error defun but always worth doing it twice to be sure)

This is what I use in line 1 of a dialog: '( "pass : dialog { key = \"DialogueKey\"; label = \"Dialogue Label\"; " Note I don't have any \\n in mine Finishing I use: (write-line STREAM des) ) ;;end foreach (setq DCL_T (LOAD_DIALOG (STRCAT (GETVAR "TEMPPREFIX") "TMP_H.DCL"))) (NEW_DIALOG "hhimg" DCL_T) Noting that I use (write-line to create the temporary file, you are using princ Try that and see Copy and pasted from other stuff and not checked if I have copied everything (weekend... CAD is off here....)

Part 2 for you. Arc-to chords.lsp

This ? (ssget "_X" '((0 . "HATCH") (-3 ("AcadAnnotative" (1000 . "AnnotativeData") (1002 . "{") (1070 . 1) (1070 . 1) (1002 . "}"))) ) )