(vla-SendCommand
(:ACTIVE_DOCUMENT)
"insert\r\"[ pianta - wc - vaso handicappati ]\" \rX\r1.000000000000000\rY\r1.000000000000000\rZ\r1.000000000000000\r
R\r0.000000000000000\r97.00425524590635,278.3699102983844,0.000000000000000\r")
(command "-insert" "a b c d e" (getpoint) 1 1 0)
(setq bname "a b c d e")
(command "-insert" bname pt 1 1 0)
this happens, with your modified codeTested:
Comando: (vla-SendCommand
(_> (vla-get-activedocument (vlax-get-acad-object))
(_> (strcat
((_> "_-insert \"[ pianta - wc - vaso handicappati ]\" \rX\r1.000000000000000\rY\r1.000000000000000\rZ\r1.000000000000000\r"
((_> "R\r0.000000000000000\r97.00425524590635,278.3699102983844,0.000000000000000\r"
((_> )
(_> )
nil
Comando: _-insert Digitare nome del blocco o [?]: "[ pianta - wc - vaso handicappati ]"
Unità: Senza unità Conversione: 1
Specificare punto di inserimento o [puntoBase/Scala/X/Y/Z/Ruota]: X
Specificare fattore di scala X <1>: 1.000000000000000
Specificare punto di inserimento o [puntoBase/Scala/X/Y/Z/Ruota]: Y
Specificare fattore di scala Y <1>: 1.000000000000000
Specificare punto di inserimento o [puntoBase/Scala/X/Y/Z/Ruota]: Z
Specificare fattore di scala Z <1>: 1.000000000000000
Specificare punto di inserimento o [puntoBase/Scala/X/Y/Z/Ruota]: R
Specificare angolo di rotazione <0.00>: 0.000000000000000
Specificare punto di inserimento o [puntoBase/Scala/X/Y/Z/Ruota]: 97.00425524590635,278.3699102983844,0.000000000000000
<clip>It was an example for the long string...
without a little bit complex STRCAT . . .
<clip>
Without strcat
(vla-SendCommand
(vla-get-activedocument (vlax-get-acad-object))
"_-insert \"[ pianta - wc - vaso handicappati ]\"\nX 1.0 Y 1.0 Z 1.0 R 0.0 0.0,0.0,0.0\n"
)
Without defun
(setq bn "\"[ pianta - wc - vaso handicappati ]\"")
(vla-SendCommand
(vla-get-activedocument (vlax-get-acad-object))
(strcat "_-insert " bn "\nX 1.0 Y 1.0 Z 1.0 R 0.0 0.0,0.0,0.0\n")
)
this is a "long" string to create at run time.
(setvar 'LUPREC 8)
(setq
bn "\"albero - 03 S\""
Xs (rtos 1.30333 2)
Ys (rtos 1.30111 2)
Zs (rtos 1.00222 2)
Ra (rtos 45.0 2)
Xp (rtos 2.12345678 2)
Yp (rtos 4.12345678 2)
Zp (rtos 5.12345678 2)
)
(strcat "_-insert " bn "\nX " Xs " Y " Ys " Z " Zs " R " Ra " " Xp "," Yp "," Zp "\n")
=>> "_-insert \"albero - 03 S\"\nX 1.30333 Y 1.30111 Z 1.00222 R 45 2.12345678,4.12345678,5.12345678\n"
(defun ALE_RtoS_DZ8 (ReaVal / CurDZn OutVal)
(if (= 8 (setq CurDZn (getvar "DIMZIN"))) (setq CurDZn nil) (setvar "DIMZIN" 8))
(setq OutVal (rtos ReaVal 2))
(and CurDZn (setvar "DIMZIN" CurDZn))
OutVal
)
Edit: LM:rtos: (Lee Mac) do not suppress leading zeros: