Special charector \ (92) ... (

jnky · 发表于 2022-7-5 19:45:20

G'day all,
Im trying to have the \ character in a string using (chr 92) but (chr 92) returns two backslashes \\.

The function is for storing some field code in a string so \\ wont cut it.

Anyone have any idea how I can store \ in a string or why (chr 92) behaves in this way.

Thanks

jnky · 发表于 2022-7-5 19:52:53

Managed to figure it out by using Unicode instead of ASCII

tombu · 发表于 2022-7-5 19:57:26

The backslash allows special characters including itself used in strings to simply be string characters. When writing lisp for a field \" puts " as a character in a string and \\ puts \.
Ex:

copy

(strcat "%%")

Lee Mac · 发表于 2022-7-5 20:01:48

Please read this explanation.

jnky · 发表于 2022-7-5 20:06:38

Thanks
This was what I used to get around the problem

copy

(strcat "%%).Length " "\U+005C" "f " "\U+0022" "%lu6" "\U+0022" ">%")

Im having an issue now appending the variables to DXF codes on a block with attributes, Im getting 'nil' after entmod ... Fromobjid being the variable from the results above, any pointers?

copy

(command "-insert" "C:/conduit tag" pause "1" "1" "0")(setq        Tablesel (ssget "_L")Tablesel (ssname Tablesel 0)enlist(entget Tablesel)en1(entnext Tablesel)                en2(entget en1)en3(entnext en1)en4(entget en3)listget (append en4 (List (cons 1 fromobjid))))(entmod listget)

muurr · 发表于 2022-7-5 20:07:18

I have a question. Is there a possibility to write a field expression as superscript ie. in LeeMac's A2F Lisp (Area2Field) if you want to show suffix sqm as m2 (superscript 2) I tried with \U+00B2, {\H0.5x;2;}, also tried changing expression afterwards to extract exact field formatting (manualy and with LeeMac's FieldFormat lisp) but I haven't succeeded in doing what my intention was to put the code in original lisp with superscript result in suffix.
Original Code:

copy

"%lu2%pr2%ps[A=,m2]%ct8[1e-004]"

Result:
A=4.04m2

After editing MText, Field Edit:
From field expression (manually):

copy

"%lu2%pr2%ps[A=,m\\U+00B2 ]%ct8[0.0001]"

Result: A=4.04m2 (superscripted - I wrote it like this because it isn't shown on post preview)
From FieldFormatting (LeeMac's Lisp)

copy

"%lu2%pr2%ps[A=,m\\² ]%ct8[0.0001]"

But when I paste code into Lisp, and reload app, use it again on same object it shows as:
A=4.04mU+00B2 or A=4.04m2 (not superscripted)
Please advise.

Lee Mac · 发表于 2022-7-5 20:13:43

It seems you have misunderstood our responses - there is no problem:
In AutoLISP one must use two backslash characters to obtain a literal backslash, otherwise the backslash is treated as an escape character.

Observe:

copy

_$ (progn (princ "\nThis is a single backslash \") (princ))This is a single backslash \

Therefore, the first half of your field expression can become:

[code]"%

Lee Mac · 发表于 2022-7-5 20:16:21

Try changing the formatting code in my Areas to Field program to:

copy

(setq fmt "%lu2%pr2%ps[A=,m²]%ct8[1e-004]") ;; Field Formatting

jnky · 发表于 2022-7-5 20:23:59

Thanks Lee,
I only have a basic command of Vanilla lisp, my Visual lisp (and .net) are on my wish list but day to day chargeable work leave me little time to invest in development, most of my routines are created from plagiarising things I find on forums like this.

I have all the ID, I was just struggling to edit the field, full code below...

copy

;Create Fields from selected block values(defun c:ELPITField ( / Fieldinfo1 fromobjid toobjid polyselect layname blkloc)(Prompt "\nCreate Fields from selected block values\nYou must select the text in the FROM and TO Blocks\nfor the function to work correctly!!!");======Block location(setq blkloc (strcat LOCAL_LIB LOCAL_OFFICE "01_Common/Blocks/Electrical/"));======Store Field info(setq Fieldinfo1 (strcat "%%")(setq Fieldinfo3 (strcat "%%"));======Get object ID Text(setq fromobjid (car (nentsel "\nSelect Attribute text in the 'FROM' Pit!: "))fromobjid (vla-get-ObjectId (vlax-ename->vla-object fromobjid))fromobjid (itoa fromobjid)fromobjid (strcat Fieldinfo1 fromobjid Fieldinfo2));======Get object ID Text(setq  toobjid (car (nentsel "\nSelect Attribute text in the 'TOO' Pit!: "))toobjid (vla-get-ObjectId (vlax-ename->vla-object toobjid))toobjid (itoa toobjid)toobjid (strcat Fieldinfo1 toobjid Fieldinfo2));======Get object ID Polyline(setq polyselect (car (nentsel "\nSelect Joining polyline: "))polyselect (vla-get-ObjectId (vlax-ename->vla-object polyselect))polyselect (itoa polyselect)polyselect (strcat Fieldinfo3 polyselect Fieldinfo4));======Insert and add Values to block(setq layname (getvar "clayer"))(if (= nil (tblsearch "layer" "EL_Conduit_tag")) (command "-layer" "new" "EL_Conduit_tag" "s" "EL_Conduit_tag" "C" "190" "EL_Conduit_tag" "") (command "-layer" "s" "EL_Conduit_tag" "C" "190" "EL_Conduit_tag" ""))(setvar "attdia" 0)(command "insert" (strcat blkloc "conduit tag.dwg") (getpoint) "1" "1" "0" "ID" fromobjid toobjid Polyselect "" "" "" "" "" "" "" "" "" "" "" "" "" "" "")(setvar "attdia" 1)(command "-layer" "s" layname "")(princ)             ;clean);defun(princ)

Ill 'start' investigating a VL solution, thanks for the guidance, but this 'rough' work around is doing the trick

muurr · 发表于 2022-7-5 20:25:29

Thx Lee, I already tried that but it gives me m2 result not m². Maybe is due to textformatting or ANSI coding that can't show superscript 2 (?), and if I save with Unicode coding upon lisp load it gives me an error:

copy

; error: bad character read (octal): 0

With UTF-8, or BigEndian it gives some "A" charachter or the same error,
Bottom line can't show m² tried editing with LispEditor, Notepad, Notepad++...

If I'm stealing post, sorry jnky, I will start a new thread, thought that backslash would solve my superscript problems.

[编程交流] Special charector \ (92) ... (

发表回复

精选推荐