Author Topic: How many characters is the longest string in AutoLISP ?  (Read 1015 times)

0 Members and 1 Guest are viewing this topic.

baitang36

  • Bull Frog
  • Posts: 213
How many characters is the longest string in AutoLISP ?
« on: September 08, 2021, 08:54:47 PM »
My test result is 2305. If I exceed it, I will make mistakes.
why?

d2010

  • Bull Frog
  • Posts: 323
Re: How many characters is the longest string in AutoLISP ?
« Reply #1 on: September 09, 2021, 01:50:18 AM »
You do not need make Big-String.
You can can make BigList with manyStrings
Code: [Select]
If you compile the  Drawing3__075826.LSp to
C# then you got very good code.DLL
:x
Code - Text: [Select]
  1. (DeFun pp_anexe29_36 ( / rr sq )
  2.  (setq rr nil sq "w")
  3.  (setq rr (appenD rr (lisT sq)))
  4. ;;<T073_00002933.>
  5.  (sEtq rr (append rr
  6.   (list ;;T074_00002934.
  7. "{\\rtf1\\adeflang1025\\ansi\\ansicpg1251\\uc1\\adeff0\\deff0\\stshfdbch0\\stshfloch0\\stshfhich0\\stshfbi0\\deflang1049\\deflangfe1049\\themelang1049\\themelangfe0\\themelangcs0{\\fonttbl{\\f0\\fbidi \\froman\\fcharset0\\fprq2{\\*\\panose 02020603050405020304}Times New Roman;}{\\f1\\fbidi \\fswiss\\fcharset0\\fprq2{\\*\\panose 020b0604020202020204}Arial;}\n{\\f2\\fbidi \\fmodern\\fcharset0\\fprq1{\\*\\panose 02070309020205020404}Courier New{\\*\\falt Lucida Console};}{\\f3\\fbidi \\froman\\fcharset2\\fprq0{\\*\\panose 05050102010706020507}Symbol{\\*\\falt MT Extra};}\n{\\f10\\fbidi \\fnil\\fcharset2\\fprq2{\\*\\panose 05000000000000000000}Wingdings;}{\\f13\\fbidi \\fnil\\fcharset134\\fprq2{\\*\\panose 02010600030101010101}SimSun{\\*\\falt ????\\'a1\\'ecT??};}\n{\\f34\\fbidi \\froman\\fchar")))
  8.  (sEtq rr (append rr
  9.   (list ;;T074_00005873.
  10. "set1\\fprq2{\\*\\panose 00000000000000000000}Cambria Math;}{\\f36\\fbidi \\froman\\fcharset0\\fprq0{\\*\\panose 02040503050406030204}Cambria{\\*\\falt Palatino Linotype};}\n{\\f37\\fbidi \\froman\\fcharset0\\fprq0{\\*\\panose 020f0502020204030204}Calibri{\\*\\falt Vrinda};}{\\f39\\fbidi \\fswiss\\fcharset0\\fprq2{\\*\\panose 020b0604030504040204}Tahoma;}{\\f47\\fbidi \\fmodern\\fcharset0\\fprq1{\\*\\panose 020b0609040504020204}Lucida Console;}\n{\\f125\\fbidi \\fnil\\fcharset134\\fprq2{\\*\\panose 00000000000000000000}@SimSun;}{\\f134\\fbidi \\fswiss\\fcharset238\\fprq2{\\*\\panose 00000000000000000000}Calibri CE{\\*\\falt Vrinda};}\n{\\flomajor\\f31500\\fbidi \\froman\\fcharset0\\fprq2{\\*\\panose 02020603050405020304}Times New Roman;}{\\fdbmajor\\f31501\\fbidi \\froman\\fcharset0\\fprq2")))
  11.  (sEtq rr (append rr
  12.   (list ;;T074_00008819.
  13. "{\\*\\panose 02020603050405020304}Times New Roman;}\n{\\fhimajor\\f31502\\fbidi \\froman\\fcharset0\\fprq0{\\*\\panose 02040503050406030204}Cambria{\\*\\falt Palatino Linotype};}{\\fbimajor\\f31503\\fbidi \\froman\\fcharset0\\fprq2{\\*\\panose 02020603050405020304}Times New Roman;}\n{\\flominor\\f31504\\fbidi \\froman\\fcharset0\\fprq2{\\*\\panose 02020603050405020304}Times New Roman;}{\\fdbminor\\f31505\\fbidi \\froman\\fcharset0\\fprq2{\\*\\panose 02020603050405020304}Times New Roman;}\n{\\fhiminor\\f31506\\fbidi \\froman\\fcharset0\\fprq0{\\*\\panose 020f0502020204030204}Calibri{\\*\\falt Vrinda};}{\\fbiminor\\f31507\\fbidi \\froman\\fcharset0\\fprq2{\\*\\panose 02020603050405020304}Times New Roman;}\n{\\f139\\fbidi \\froman\\fcharset238\\fprq2 Times New Roman CE;}{\\f140\\fbidi \\froma")))
  14.  (sEtq rr (append rr
  15.   (list ;;T074_00011770.
  16. "n\\fcharset204\\fprq2 Times New Roman Cyr;}{\\f142\\fbidi \\froman\\fcharset161\\fprq2 Times New Roman Greek;}{\\f143\\fbidi \\froman\\fcharset162\\fprq2 Times New Roman Tur;}\n{\\f144\\fbidi \\froman\\fcharset177\\fprq2 Times New Roman (Hebrew);}{\\f145\\fbidi \\froman\\fcharset178\\fprq2 Times New Roman (Arabic);}{\\f146\\fbidi \\froman\\fcharset186\\fprq2 Times New Roman Baltic;}\n{\\f147\\fbidi \\froman\\fcharset163\\fprq2 Times New Roman (Vietnamese);}{\\f149\\fbidi \\fswiss\\fcharset238\\fprq2 Arial CE;}{\\f150\\fbidi \\fswiss\\fcharset204\\fprq2 Arial Cyr;}{\\f152\\fbidi \\fswiss\\fcharset161\\fprq2 Arial Greek;}\n{\\f153\\fbidi \\fswiss\\fcharset162\\fprq2 Arial Tur;}{\\f154\\fbidi \\fswiss\\fcharset177\\fprq2 Arial (Hebrew);}{\\f155\\fbidi \\fswiss\\fcharset178\\fprq2 Arial (Arabi")))
  17.  (sEtq rr (append rr
  18.   (list ;;T074_00014704.
  19. "c);}{\\f156\\fbidi \\fswiss\\fcharset186\\fprq2 Arial Baltic;}\n{\\f157\\fbidi \\fswiss\\fcharset163\\fprq2 Arial (Vietnamese);}{\\f529\\fbidi \\fswiss\\fcharset238\\fprq2 Tahoma CE;}{\\f530\\fbidi \\fswiss\\fcharset204\\fprq2 Tahoma Cyr;}{\\f532\\fbidi \\fswiss\\fcharset161\\fprq2 Tahoma Greek;}\n{\\f533\\fbidi \\fswiss\\fcharset162\\fprq2 Tahoma Tur;}{\\f534\\fbidi \\fswiss\\fcharset177\\fprq2 Tahoma (Hebrew);}{\\f535\\fbidi \\fswiss\\fcharset178\\fprq2 Tahoma (Arabic);}{\\f536\\fbidi \\fswiss\\fcharset186\\fprq2 Tahoma Baltic;}\n{\\f537\\fbidi \\fswiss\\fcharset163\\fprq2 Tahoma (Vietnamese);}{\\f538\\fbidi \\fswiss\\fcharset222\\fprq2 Tahoma (Thai);}{\\f609\\fbidi \\fmodern\\fcharset238\\fprq1 Lucida Console CE;}{\\f610\\fbidi \\fmodern\\fcharset204\\fprq1 Lucida Console Cyr;}\n{\\f612")))
  20. (sEtq rr (append rr
  21.   (list ;;T074_00017659.
  22. "\\fbidi \\fmodern\\fcharset161\\fprq1 Lucida Console Greek;}{\\f613\\fbidi \\fmodern\\fcharset162\\fprq1 Lucida Console Tur;}{\\flomajor\\f31508\\fbidi \\froman\\fcharset238\\fprq2 Times New Roman CE;}\n{\\flomajor\\f31509\\fbidi \\froman\\fcharset204\\fprq2 Times New Roman Cyr;}{\\flomajor\\f31511\\fbidi \\froman\\fcharset161\\fprq2 Times New Roman Greek;}{\\flomajor\\f31512\\fbidi \\froman\\fcharset162\\fprq2 Times New Roman Tur;}\n{\\flomajor\\f31513\\fbidi \\froman\\fcharset177\\fprq2 Times New Roman (Hebrew);}{\\flomajor\\f31514\\fbidi \\froman\\fcharset178\\fprq2 Times New Roman (Arabic);}{\\flomajor\\f31515\\fbidi \\froman\\fcharset186\\fprq2 Times New Roman Baltic;}\n{\\flomajor\\f31516\\fbidi \\froman\\fcharset163\\fprq2 Times New Roman (Vietnamese);}{\\fdbmajor\\f31518\\fbidi ")))
  23.  (sEtq rr (append rr
  24.   (list ;;T074_00020606.
  25. "\\froman\\fcharset238\\fprq2 Times New Roman CE;}{\\fdbmajor\\f31519\\fbidi \\froman\\fcharset204\\fprq2 Times New Roman Cyr;}\n{\\fdbmajor\\f31521\\fbidi \\froman\\fcharset161\\fprq2 Times New Roman Greek;}{\\fdbmajor\\f31522\\fbidi \\froman\\fcharset162\\fprq2 Times New Roman Tur;}{\\fdbmajor\\f31523\\fbidi \\froman\\fcharset177\\fprq2 Times New Roman (Hebrew);}\n{\\fdbmajor\\f31524\\fbidi \\froman\\fcharset178\\fprq2 Times New Roman (Arabic);}{\\fdbmajor\\f31525\\fbidi \\froman\\fcharset186\\fprq2 Times New Roman Baltic;}{\\fdbmajor\\f31526\\fbidi \\froman\\fcharset163\\fprq2 Times New Roman (Vietnamese);}\n{\\fbimajor\\f31538\\fbidi \\froman\\fcharset238\\fprq2 Times New Roman CE;}{\\fbimajor\\f31539\\fbidi \\froman\\fcharset204\\fprq2 Times New Roman Cyr;}{\\fbimajor\\f31541\\fbidi ")))
  26.  (sEtq rr (append rr
  27.   (list ;;T074_00023560.
  28. "\\froman\\fcharset161\\fprq2 Times New Roman Greek;}\n{\\fbimajor\\f31542\\fbidi \\froman\\fcharset162\\fprq2 Times New Roman Tur;}{\\fbimajor\\f31543\\fbidi \\froman\\fcharset177\\fprq2 Times New Roman (Hebrew);}{\\fbimajor\\f31544\\fbidi \\froman\\fcharset178\\fprq2 Times New Roman (Arabic);}\n{\\fbimajor\\f31545\\fbidi \\froman\\fcharset186\\fprq2 Times New Roman Baltic;}{\\fbimajor\\f31546\\fbidi \\froman\\fcharset163\\fprq2 Times New Roman (Vietnamese);}{\\flominor\\f31548\\fbidi \\froman\\fcharset238\\fprq2 Times New Roman CE;}\n{\\flominor\\f31549\\fbidi \\froman\\fcharset204\\fprq2 Times New Roman Cyr;}{\\flominor\\f31551\\fbidi \\froman\\fcharset161\\fprq2 Times New Roman Greek;}{\\flominor\\f31552\\fbidi \\froman\\fcharset162\\fprq2 Times New Roman Tur;}\n{\\flominor\\f31553\\fbi")))
  29.  (sEtq rr (append rr
  30.   (list ;;T074_00026523.
  31. "di \\froman\\fcharset177\\fprq2 Times New Roman (Hebrew);}{\\flominor\\f31554\\fbidi \\froman\\fcharset178\\fprq2 Times New Roman (Arabic);}{\\flominor\\f31555\\fbidi \\froman\\fcharset186\\fprq2 Times New Roman Baltic;}\n{\\flominor\\f31556\\fbidi \\froman\\fcharset163\\fprq2 Times New Roman (Vietnamese);}{\\fdbminor\\f31558\\fbidi \\froman\\fcharset238\\fprq2 Times New Roman CE;}{\\fdbminor\\f31559\\fbidi \\froman\\fcharset204\\fprq2 Times New Roman Cyr;}\n{\\fdbminor\\f31561\\fbidi \\froman\\fcharset161\\fprq2 Times New Roman Greek;}{\\fdbminor\\f31562\\fbidi \\froman\\fcharset162\\fprq2 Times New Roman Tur;}{\\fdbminor\\f31563\\fbidi \\froman\\fcharset177\\fprq2 Times New Roman (Hebrew);}\n{\\fdbminor\\f31564\\fbidi \\froman\\fcharset178\\fprq2 Times New Roman (Arabic);}{\\fdbminor")))
  32.  
« Last Edit: September 09, 2021, 10:57:25 AM by d2010 »