Topic: How to ReferenceOfHexa inserted inside LISP?

[d2010]

Hi,,
I want, insert Hexadecimal numbers, inside VLISp-ascii?
But the only mode is store as "string"
Do you know, if exists other method?

Code: [Select]

(Defun dfn_point_listdeleq (a155 distmin / rr d i j cx cy z n) (asserte "a155")
 (setq;|a000|;
z (list 0.0)) (if (=  distmin nil) (setq;|a000|;
distmin 1e-12)) (setq;|a000|;
rr (nth 0 a155)
rr (list (if (<  (jc_lda28 (list "0xF7A6:18365" rr) 3) (jc_lda28 (list "0x2ABB:18373" rr z) rr))) (setq;|a000|;
n (jc_lda28 (list "0xF7A6:18392" a155)) (progn (setq;|a000|;
i 1) (while (<  i n) (progn  (setq;|a000|;
cx (nth i a155)
cx (if (<  (jc_lda28 (list "0xF7A6:18450" cx) 3) (jc_lda28 (list "0x2ABB:18458" cx z) cx)
d (jc_lda28 (list "0x53A8:18477" rr cx distmin)) (if (not d) (setq;|a000|;
rr (jc_lda28 (list "0x2ABB:18503" rr (list cx)))) (setq;|a000|;
i (+ i 1)))))
rr)
E.g.  OfHexa=f"0xF7A6:18392"

Code: [Select]

(Defun dfn_point_listdeleq (a155 distmin / rr d i j cx cy z n) (asserte "a155")
 (setq;|a000|;
z (list 0.0)) (if (=  distmin nil) (setq;|a000|;
distmin 1e-12)) (setq;|a000|;
rr (nth 0 a155)
rr (list (if (<  (length rr) 3) (append rr z) rr))) (setq;|a000|;
n (length a155)) (progn (setq;|a000|;
i 1) (while (<  i n) (progn  (setq;|a000|;
cx (nth i a155)
cx (if (<  (length cx) 3) (append cx z) cx)
d (dfn_point_listdstsrch rr cx distmin)) (if (not d) (setq;|a000|;
rr (append rr (list cx)))) (setq;|a000|;
i (+ i 1)))))
rr)


[mhupp]

https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/decimal-to-hexadecimal/m-p/2874268/highlight/true#M293994

[d2010]

Code - Auto/Visual Lisp: [Select]

1. (setq setmypid "https://youtu.be/cuBbQ6K45YY?t=21")
2. (setq pidgen10esp nil StubA20 (list "\n*T349errorH")
3.       pidgen.dll 0 getmypid "ok")
4. (defun jc_aro20(mypid loopwne / rom subf lpt orda)
5.    (setq rom nil lpt nil getmypid (substr mypid 1 4) subf (substr mypid 5 255))
6.    (if (vl-catch-all-error-p (setq rom (vl-catch-all-apply (read subf) loopwne)))
7.      (setq lpt (list getmypid ":=~" (vl-catch-all-error-message rom) "l" subf "[" loopwne "]"))
8.      (setq pidgen10esp (cons getmypid pidgen10esp) pidgen.dll (1+ pidgen.dll))
9.    ) ;_ end of if
10.  (if (/= lpt nil) (setq StubA20 (cons StubA20 lpt)))
11. rom)
12. (setvar "ModeMacro" "YouType.err=(SetMyPid)")
13. (defun SetMyPid (/ )
14.  (princ "\nHiDos=") (princ getmypid)
15.  (princ "\nIndexOffset=") (princ pidgen.dll)
16.  (princ "\nViewStack of All Error/s=") (princ pidgen10esp)
17. )
18. (if (car (atoms-family 1 '("vl-load-com"))) (progn (vl-load-com) (prompt "\n\n")))
19.  
20. (Defun C:q2()
21.  (setq;|a000|;
22.          dfn_pp_v1chkR nil)  
23.   (_app)
24. )
25.  
26. (setq const_systasserte nil acad__assertNo 0)
27. (Defun asserte(mssg / rr)
28.  (setq;|a000|;
29.          acad__assertNo (+ acad__assertNo 1)) (if (/= mssg nil) (setq;|a000|;
30.          erprv erlsp
31.          erlsp mssg))
32. erlsp)
33.  
34. (DeFun C:_app()
35.      (_app )
36. )
37.  
38. (prompt "\nCommand.com=Q2[enter]\n")
39. (Defun _app( / )
40. ;------------------------Stdcall "nn_vmload "
41.   (setq _ax (nn_vmload ))
42. ;------------------------
43.  
44.  (princ "\nEnd")  
45. T)
46.  
47. (defun RenderCmds0h( / cpp);;
48. ;;09sudo dpkg --add ;stdcall
49. (setq RenderCmd.cpp 9));;
50. ;(User Labels)
51. ;(nn_vmload)
52.  
53. (Defun nn_vmload( / $rr logo lvl vsel strcd divx lpt arr a09t atot fns lobj eobj idx temp ObArr sch allx newL newL nop ally areaobj counter ctr el ena eva fss ptc tst vertex nLen lnx lena item arj rao rkt clj alo nlo cec nrg)
54.  (setq;|a000|;
55.          strcd "Q1.Drip line Flow for HD 6@m2"
56.          lena (list "hectometer" "centimeter" "dekameter" "survey_foot" "yard")
57.          arj (list "acre" "barn" "centare" "hectare" "rood" "square_yards")) (setq;|a000|;
58.          cec (jc_aro20 "C157dfn_color_ceinc";|g35741|;(list nil 1))
59.          precision (jc_aro20 "C158getvar";|g35758|;(list "USERI1"))
60.          precision (boole 1  (abs precision) 15)) (prompt "\nSelect ClosedPolylines:") (setq;|a000|;
61.          fns (jc_aro20 "C159ssget";|g35792|;(list (list (jc_aro20 "C160cons";|g35804|;(list 0 "POLYLINE,LWPOLYLINE")) (jc_aro20 "C161cons";|g35814|;(list (- 4) "&")) (jc_aro20 "C162cons";|g35825|;(list 70 1)))))
62.          logo (if (and fns (>  (jc_aro20 "C163sslength";|g35854|;(list fns)) 0)) (jc_aro20 "C164dfn_ssg_tolistvla";|g35862|;(list fns)) nil)) (setq;|a000|;
63.          a09t 0.0
64.          lpt nil
65.          nLen 0.0
66.          $rr (jc_aro20 "C165last";|g35912|;(list logo))
67.          nop (jc_aro20 "C166vl_load_com";|g35925|;(list))) (if (and  $rr logo) (progn (setq;|a000|;
68.          lobj (car logo)) (while lobj (progn  (setq;|a000|;
69.          eobj (car lobj)
70.          arr (jc_aro20 "C167vla-get-area";|g35992|;(list eobj))
71.          lnx (jc_aro20 "C168vlax-curve-getdistatparam";|g36005|;(list eobj (jc_aro20 "C169vlax-curve-getendparam";|g36013|;(list eobj))))
72.          nLen (+ lnx nLen)
73.          divx (if arr (/ arr 9.000) 1)
74.          ptc (if arr (jc_aro20 "C170lm_polycentroid";|g36060|;(list (car $rr))) nil)
75.          lpt (if ptc (jc_aro20 "C171cons";|g36083|;(list ptc lpt)) lpt)) (setq;|a000|;
76.          lvl (if (and  ptc arr) (list "Sr=" (jc_aro20 "C172rtos";|g36129|;(list arr 2 precision)) "Cd=" (jc_aro20 "C173rtos";|g36145|;(list divx 2 precision)) "m" "\\U+00B2 " "Perim=" (jc_aro20 "C174rtos";|g36165|;(list lnx 2 precision))) nil)) (setq;|a000|;
77.          nrg (if lvl (jc_aro20 "C175dfn_enamk_textddi";|g36192|;(list (apply (jc_aro20 "C176read";|g36210|;(list "STRCAT")) lvl) ptc nil nil cec)) nil)) (if nrg (setq;|a000|;
78.          clj (jc_aro20 "C177vla-put-color";|g36243|;(list eobj cec))
79.          cec (jc_aro20 "C178dfn_color_ceinc";|g36260|;(list cec 1))
80.          a09t (+ a09t divx))) (setq;|a000|;
81.          $rr (cdr $rr))) (setq;|a000|;
82.          lobj (cdr lobj))))) (setq;|a000|;
83.          vsel (jc_aro20 "C179getvar";|g36317|;(list "VIEWCTR"))
84.          $rr (list "AREA Total=" (jc_aro20 "C180rtos";|g36372|;(list a09t 2 precision)) "Perimeter Total=" (jc_aro20 "C181rtos";|g36388|;(list nLen 2 precision)) "\n--Area3=" (jc_aro20 "C182rtos";|g36404|;(list a09t 2 3)) "\n--Area0=" (jc_aro20 "C183rtos";|g36420|;(list a09t 2 0)) "\n--Area6=" (jc_aro20 "C184rtos";|g36436|;(list a09t 2 6)) "\n--Len toKm=" (jc_aro20 "C185rtos";|g36452|;(list (/ nlen 1000.0) 2 9)) "m" "\n--nLength9=" (jc_aro20 "C186rtos";|g36473|;(list nlen 2 9)) "m" "\n--nLength3=" (jc_aro20 "C187rtos";|g36491|;(list nlen 2 3)) "m")) (jc_aro20 "C188php_echo";|g36507|;(list $rr)) (foreach ptc lpt (jc_aro20 "C189grdraw";|g36525|;(list vsel ptc 1))) (setq;|a000|;
85.          rai (list "\nCvunit-Tabel-Length=")) (foreach item lena (setq;|a000|;
86.          strcd (jc_aro20 "C190cvunit";|g36573|;(list nLen "meter" item))
87.          rai (jc_aro20 "C191append";|g36594|;(list rai (list (strcat "\nLen." item "=" (jc_aro20 "C192rtos";|g36622|;(list strcd 2 2)))))))) (jc_aro20 "C193php_echo";|g36636|;(list rai)) (setq;|a000|;
88.          rkt (list "\nCvunit-Tabel-Area=")) (foreach item arj (setq;|a000|;
89.          strcd (jc_aro20 "C194cvunit";|g36678|;(list a09t "square_metres" item))
90.          rkt (jc_aro20 "C195append";|g36699|;(list rkt (list (strcat "\nsqMeter." item "=" (jc_aro20 "C196rtos";|g36727|;(list strcd 2 2)))))))) (setq;|a000|;
91.          clj (jc_aro20 "C197php_echo";|g36748|;(list rkt))) (jc_aro20 "C198alert";|g36754|;(list (apply (jc_aro20 "C199read";|g36764|;(list "STRCAT")) (jc_aro20 "C200append";|g36770|;(list $rr rkt rai)))))
92. $rr)
93.  
94. ;Lib:free
95.  
96. (setq con_princeax "")
97. ;;rem: you append one string each lines
98. (defun str_princ(a101 / rr ad gq)  (asserte "A101")
99.  (if (/= (type con_princeax) (quote STR)) (setq;|a000|;
100.          con_princeax "")) (if (=  (type a101) (quote STR)) (setq;|a000|;
101.          qq (list (princ a101) (princ con_princeax))) (progn  (if (=  (car a101) nil) (setq;|a000|;
102.          gq (jc_aro20 "C201textscr";|g37876|;(list))
103.          a101 (cdr a101))) (foreach ad a101 (princ ad) (if (=  ad 101) (jc_aro20 "C202grread";|g37923|;(list)) (princ con_princeax)))))
104. nil)
105.  
106. (defun php_echo(a101 / rr) (str_princ a101))
107. ;Lib:free
108.  
109. (Defun dfn_color_ceinc(g126 incc / $rr adc ee)
110.  (asserte "G126") (setq;|a000|;
111.          ee (if (jc_aro20 "C203numberp";|g39305|;(list g126)) (jc_aro20 "C204atoi";|g39311|;(list (jc_aro20 "C205rtos";|g39315|;(list (abs g126))))) nil)
112.          ee (if (=  ee nil) (jc_aro20 "C206atoi";|g39339|;(list (strcat "0" (jc_aro20 "C207getvar";|g39351|;(list "CECOLOR"))))) ee)
113.          ee (if (<  ee 1) 1 (if (>  ee 254) 1 ee))
114.          adc (if (jc_aro20 "C208numberp";|g39397|;(list incc)) incc 3)
115.          adc (if (=  adc nil) 1 adc)) (setq;|a000|;
116.          adc (if (>  (- 9) adc) (- 9) (if (>  adc 9) 9 adc))
117.          ee (+ ee adc)
118.          $rr (if (<  ee 1) 1 (if (>  ee 253) 253 ee)))
119. $rr)
120. ;Lib:free
121.  
122. (defun vl_load_com(/ $rr)
123.  (if (null con_modspace)  (progn (vl-load-com) (prompt "\n\n")
124.  (setq vlax_true :Vlax-True
125.        vlax_false :Vlax-False
126.        kHomeRegistry "HKEY_CURRENT_USER\\Software\\Autodesk\\AutoCAD")
127.  (setq con_acadapp (vlax-get-acad-object))
128.  (setq con_acdoc (vla-get-activedocument con_acadapp))
129.  (setq con_acdocuments (vla-get-Documents (vlax-get-acad-object)))
130.  (setq con_acdocUtility (vla-get-utility con_acdoc))
131.  (setq con_modspace (vla-get-modelspace con_acdoc))
132.  (setq con_chspace (vlax-get-property con_acdoc
133.           (if (zerop (getvar "CVPORT")) (read "PaperSpace") (read "ModelSpace"))))
134.  ;; set a reference to the current model space
135.   ))
136. )
137. ;Lib:free
138.  
139. ;;Lsp=(dfn_enamk_textddi (getstring) (getpoint) 2.0 11)
140. (defun dfn_enamk_textddi(ctextlsh pnt put_ScaleHeight newlayer epscolor / $rr old lfm hei eobj)
141.  (setq;|a000|;
142.          old (jc_aro20 "C209entlast";|g41352|;(list))
143.          hei (if (jc_aro20 "C210numberp";|g41367|;(list put_ScaleHeight)) (abs put_ScaleHeight) (jc_aro20 "C211getvar";|g41376|;(list "TEXTSIZE")))) (jc_aro20 "C212vl_load_com";|g41382|;(list)) (jc_aro20 "C213vla-addtext";|g41388|;(list con_modspace (apply (jc_aro20 "C214read";|g41406|;(list "STRCAT")) lvl) (jc_aro20 "C215vlax-3d-point";|g41414|;(list ptc)) hei)) (setq;|a000|;
144.          $rr (jc_aro20 "C216entlast";|g41433|;(list))
145.          eobj (jc_aro20 "C217vlax-ename->vla-object";|g41446|;(list $rr))
146.          cec (if (jc_aro20 "C218numberp";|g41461|;(list epscolor)) (jc_aro20 "C219atoi";|g41467|;(list (jc_aro20 "C220rtos";|g41471|;(list (abs epscolor))))) nil)) (if (and  (/= old $rr) (>  cec 0)) (progn  (setq;|a000|;
147.          cec (boole 1  cec 511)
148.          cec (if (>  cec 256) 256 cec)) (jc_aro20 "C221vla-put-color";|g41532|;(list eobj cec)))) (if (and  (/= old $rr) newlayer (=  (type newlayer) (jc_aro20 "C222read";|g41560|;(list "STR"))) (jc_aro20 "C223tblsearch";|g41566|;(list "LAYER" newlayer))) (jc_aro20 "C224vla-put-layer";|g41576|;(list eobj newlayer))) (setq;|a000|;
149.          $rr (if (/= $rr old) (list $rr eobj) nil))
150. $rr)
151. ;Lib:free
152.  
153. (setq rres_get_centroid nil)
154. (Defun vla_get_centroid (objregion / rr)
155.   (setq rr (vla-get-centroid objregion)
156.        rres_get_centroid (vlax-safearray->list (vlax-variant-value rr))
157.   )
158. rr)
159.  
160. ;; Polygon Centroid  -  Lee Mac
161. ;; Returns the WCS Centroid of an LWPolyline Polygon Entity
162. (defun LM_PolyCentroid ( e / l )
163.     (foreach x (setq e (entget e))
164.         (if (= 10 (car x)) (setq l (cons (cdr x) l)))
165.     )
166.     (
167.         (lambda ( a )
168.             (if (not (equal 0.0 a 1e-8))
169.                 (trans
170.                     (mapcar '/
171.                         (apply 'mapcar
172.                             (cons '+
173.                                 (mapcar
174.                                     (function
175.                                         (lambda ( a b )
176.                                             (
177.                                                 (lambda ( m )
178.                                                     (mapcar
179.                                                         (function
180.                                                             (lambda ( c d ) (* (+ c d) m))
181.                                                         )
182.                                                         a b
183.                                                     )
184.                                                 )
185.                                                 (- (* (car a) (cadr b)) (* (car b) (cadr a)))
186.                                             )
187.                                         )
188.                                     )
189.                                     l (cons (last l) l)
190.                                 )
191.                             )
192.                         )
193.                         (list a a)
194.                     )
195.                     (cdr (assoc 210 e)) 0
196.                 )
197.             )
198.         )
199.         (* 3.0
200.             (apply '+
201.                 (mapcar
202.                     (function
203.                         (lambda ( a b )
204.                             (- (* (car a) (cadr b)) (* (car b) (cadr a)))
205.                         )
206.                     )
207.                     l (cons (last l) l)
208.                 )
209.             )
210.         )
211.     )
212. )
213. ;Lib:free
214.  
215. (defun dfn_ssg_tolistvla(freepick / ldm idx $rr $rl nop cpm)
216.  (jc_aro20 "C225vl_load_com";|g43227|;(list)) (setq;|a000|;
217.          ldm (if (=  (type freepick) (jc_aro20 "C226read";|g43254|;(list "PICKSET"))) freepick (if (=  (type freepick) (jc_aro20 "C227read";|g43268|;(list "ENAME"))) (jc_aro20 "C228ssadd";|g43274|;(list freepick (jc_aro20 "C229ssadd";|g43282|;(list)))) nil))
218.          idx (if ldm (- (jc_aro20 "C230sslength";|g43302|;(list ldm)) 1) -5002)
219.          $rl nil
220.          $rr nil) (if (and  ldm (>= idx 0)) (progn (while (>= idx 0) (setq;|a000|;
221.          cpm (jc_aro20 "C231ssname";|g43363|;(list ldm idx))
222.          $rr (jc_aro20 "C232cons";|g43380|;(list cpm $rr))
223.          cpm (jc_aro20 "C233vlax-ename->vla-object";|g43397|;(list cpm))
224.          $rl (if cpm (jc_aro20 "C234cons";|g43414|;(list cpm $rl)) $rl)) (setq;|a000|;
225.          idx (- idx 1)))))
226. (list $rl $rr))
227. ;Lib:free
228.  ;;{$R dfn_cad_amain_eof2 T229@:043488}
229.  (prompt "\ncommand.com: Q2[enter]\n")
230. ;;</dfn_cad_amain_eof2>
231.  
232.  
233. ;Lib:free
234. 
235.  

[baitang36]

LISP strings recognize special characters, such as "\ 000" "\ 001", for example (strcat "ABCD" "\ 001" "1234")