(setq acad_iso11w100
-extmin
41 acad_iso11w100
-extmax
60265) (setq acad_isoQsortTime 00:
00.00) (setq runiftry11w100
(list (cons "0x0000" "c:/vlaxcompil/0user/dynamictostatic.lsp") (cons "0x2ABB" "append");;County.xml=4 (cons "0x6E00" "alert");;County.xml=4 (cons "0x4843" "j_i2s_nestedblock");;County.xml=3 (cons "0x898A" "vl_load_com");;County.xml=3 (cons "0x73A6" "vlax-property-available-p");;County.xml=2 (cons "0x4CA5" "vla-get-isdynamicblock");;County.xml=2 (cons "0x8C12" "terpri");;County.xml=2 (cons "0x0029" "vlax-ename->vla-object");;County.xml=2 (cons "0x1F2F" "vla-converttostaticblock");;County.xml=2 (cons "0x0616" "assert_cxx");;County.xml=2 (cons "0x066C" "read");;County.xml=2 (cons "0x1282" "j_tableswitch");;County.xml=2 (cons "0x9A2E" "dfn_real_frac");;County.xml=2 (cons "0x679B" "getint");;County.xml=2 (cons "0xAE85" "vla-get-blocks");;County.xml=2 (cons "0x3F98" "vla-item");;County.xml=1 (cons "0xD367" "vla-get-name");;County.xml=1 (cons "0xD0B1" "ssget");;County.xml=1 (cons "0x48F2" "ssname");;County.xml=1 (cons "0x864B" "atof");;County.xml=1 (cons "0xEB69" "j_dup2remove");;County.xml=1 (cons "0x0C82" "j_imul");;County.xml=1 (cons "0x1C2B" "setvar");;County.xml=1 (cons "0xDC92" "entget");;County.xml=1 (cons "0xD7A9" "j_i2s");;County.xml=1 (cons "0x428D" "tblsearch");;County.xml=1 (cons "0x4E37" "getvar");;County.xml=1 (cons "0x0274" "numberp");;County.xml=1 (cons "0x28FD" "vl-prin1-to-string");;County.xml=1 (cons "0xA6AF" "entsel");;County.xml=1 (cons "0x1344" "dfn_cad_asysset");;County.xml=1 (cons "0x252B" "vla-get-objectname");;County.xml=1 (cons "0x4DFA" "cons");;County.xml=1 (cons "0x0BF6" "vla-get-effectivename");;County.xml=1 (cons "0x4C2D" "sslength");;County.xml=1 (cons "0x0DC3" "assoc");;County.xml=1 ))
(setq getmypid
(list "0xD438") setmypid
"http://www.youtube.com/watch?v=rq9AbDbN4Mc&feature=related") (defun js_dup35
(mypid loopwne
/ rom subf
) rom)
(setq acad_isoQsortTimp 00:
00.00) (setq acad_isoSortTotal 00:
00.00) ;;;{$R dfn_cad_amain}
(defun assert_cxx
(/ $rr
) acad__assertNo 0
kHereAiciHeirIciAqui 93)
)
;;{--}
(Defun asserte
(mssg
/ $rr
) (if (= erlsp
nil) (js_dup35
"0x0616:C001" (list )) (if (/= (type acad__assertNo
) (quote INT
)) (setq;|a3068|; acad__assertNo
0))) (if (/= mssg
nil) (setq;|a3112|; erprv erlsp
acad__assertNo (+ acad__assertNo 1)
erlsp
(strcat (js_dup35
"0x28FD:C002" (list mssg
)) ":" (itoa acad__assertNo
))) (foreach $rr
(list "\nAssertE=" erlsp
"*" erprv
) (princ $rr
))) (if (>= acad__assertNo kHereAiciHeirIciAqui
) (js_dup35
"0x6E00:C003" (list (strcat "Hi! eBreakPoint kHereAiciHeirIciAqui=" (itoa kHereAiciHeirIciAqui
))))) erlsp)
;;;Inf: Here is starting routine
(prompt "\nCommand.com=D2S[enter]\n") (js_dup35
"0x0616:C004" (list )) (js_dup35
"0x1344:C005" (list ))
;;;{$R (call_stas)}
;------------------------Stdcall pp_domenicomaria
(setq _ax
(pp_domenicomaria
)) ;------------------------
;;;{$R -cad_amain_callend}
;;;rem:----------------------------------------------------------------------
rr)
;;;rem:---User Labels----cad_aPages-----
;;;rem:---pp_domenicomaria----cad_aPages-----
;;;{$R dfn_cad_asysset}
(defun dfn_cad_asysset
( / $rr
) (js_dup35
"0x1C2B:C006" (list "MODEMACRO" (strcat su
" "))) $rr)
;;;{$E}
;lib:free
;;;{$R pp_domenicomaria}
(Defun pp_domenicomaria
( / $rr ldc pDrawCtx
) (js_dup35
"0x898A:C007" (list )) (setq;|a6325|; pDrawCtx "\nGiSelector.h (2.Multiple)(1.one toStatic)(8.Quit)(7.readme): "
ldc
(js_dup35
"0x679B:C008" (list pDrawCtx
))) (progn (while (< ldc
8) (if (= ldc
2) (js_dup35
"0x0C82:C009" (list )) (if (= ldc
1) (js_dup35
"0xD7A9:C010" (list )) (if (= ldc
7) (js_dup35
"0x6E00:C011" (list readme.txt
))))) (setq;|a6475|; ldc
(js_dup35
"0x679B:C012" (list pDrawCtx
))))) $rr)
;;;{$E}
;lib:free
;;;{$R j_imul}
;;;Inf:Dynamic 2 StaticMultiple
(defun j_imul
( / laload lstore ind nv4prep sse3 codeblocks emms item ldcw
) (js_dup35
"0x898A:C013" (list )) (setq;|a9548|; ind 0
sse3
(js_dup35
"0xD0B1:C014" (list (list (js_dup35
"0x4DFA:C015" (list 0 "INSERT"))))) laload
(if sse3
(js_dup35
"0xAE85:C016" (list con_acdoc
)) nil)) (if laload
(progn (setq;|a9658|; nv4prep
(js_dup35
"0x4C2D:C017" (list sse3
))) (while (< ind nv4prep
) (progn (setq;|a9708|; emms
(js_dup35
"0x48F2:C018" (list sse3 ind
)) codeblocks
(js_dup35
"0x0029:C019" (list emms
)) lstore
(js_dup35
"0x2ABB:C020" (list (js_dup35
"0x4843:C021" (list laload codeblocks
)) (list codeblocks
)))) (foreach item lstore
(setq;|a9844|; ldcw
(if (= (js_dup35
"0x4CA5:C022" (list item
)) vlax_true
) (js_dup35
"0x1F2F:C023" (list item
(js_dup35
"0x1282:C024" (list "BLOCK" "STATIC-")))) nil)))) (setq;|a9920|; ind
(+ ind
1))))) (if laload
(js_dup35
"0x8C12:C025" (list )) (js_dup35
"0x6E00:C026" (list readme.txt
))) )
;;;{$E}
;;;{$R j_i2s}
;;;Inf:Dynamic 2 Static
(defun j_i2s
( / laload lstore aeon nop ldcw
) (js_dup35
"0x898A:C027" (list )) (setq;|a12902|; aeon nil
lstore nil
laload
(js_dup35
"0xAE85:C028" (list con_acdoc
)) aeon
(car (js_dup35
"0xA6AF:C029" (list "\nPick oneBlock i2s:")))) (if (and aeon
(= "INSERT" (cdr (js_dup35
"0x0DC3:C030" (list 0 (js_dup35
"0xDC92:C031" (list aeon
))))))) (setq;|a13058|; aeon
(js_dup35
"0x0029:C032" (list aeon
)) lstore
(js_dup35
"0x2ABB:C033" (list (js_dup35
"0x4843:C034" (list laload aeon
)) (list aeon
))))) (if (and aeon lstore
) (progn (setq;|a13158|; ldcw
(if (= (js_dup35
"0x4CA5:C035" (list getfield
)) vlax_true
) (js_dup35
"0x1F2F:C036" (list getfield
(js_dup35
"0x1282:C037" (list "BLOCK" "STATIC-")))) ldcw
))))) (if lstore
(js_dup35
"0x8C12:C038" (list )) (js_dup35
"0x6E00:C039" (list (strcat "Error*i378* eBadlyNestedAppData\n------------------------" readme.txt
)))) $rr)
;;;{$E}
;;;{$R vl_load_com}
(defun vl_load_com
(/ $rr
) (setq vlax_true
:Vlax-True vlax_false :Vlax-False
kHomeRegistry "HKEY_CURRENT_USER\\Software\\Autodesk\\AutoCAD")
;; set a reference to the current model space
)
;;;{$E}
;;;{$R j_i2s_nestedblock}
(defun j_i2s_nestedblock
(blk_collctn checkcast
/ $rr lstore eobj nam lload ldcw
) (asserte
"A336") (setq;|a16658|; $rr nil
lstore nil
nam
(if (js_dup35
"0x73A6:C040" (list checkcast
(js_dup35
"0x066C:C041" (list "effectivename")))) (js_dup35
"0x0BF6:C042" (list checkcast
)) (if (js_dup35
"0x73A6:C043" (list checkcast
(js_dup35
"0x066C:C044" (list "name")))) (js_dup35
"0xD367:C045" (list checkcast
)) nil))) (setq;|a16802|; nam
(if (= nam
nil) "" nam
) lload
(if (> nam
"") (js_dup35
"0x3F98:C046" (list blk_collctn nam
)) nil)) (if (and lload
(> nam
"")) (progn (vlax-for eobj lload
(setq;|a16946|; lstore
(if (= "AcDbBlockReference" (js_dup35
"0x252B:C047" (list eobj
))) (js_dup35
"0x2ABB:C048" (list lstore
(list eobj
))) lstore
) lstore
(js_dup35
"0x2ABB:C049" (list lstore
(js_dup35
"0x4843:C050" (list blk_collctn eobj
)))))) (setq;|a17062|; $rr
(js_dup35
"0xEB69:C051" (list lstore
))))) $rr)
;;;{$R j_tableswitch}
(defun j_tableswitch
(table prefix
/ datehook $rr
) datehook
(js_dup35
"0x9A2E:C052" (list (* 1000000 (js_dup35
"0x9A2E:C053" (list (js_dup35
"0x4E37:C054" (list "CDATE"))))))) datehook
(fix (* 1000000 datehook
)) datehook
(if (js_dup35
"0x428D:C055" (list table $rr
)) (+ datehook
1) nil)))) $rr)
;;;{$E}
;;;{$R j_dup2remove}
(defun j_dup2remove
(lst
/ $rr
) ;;;{$E}
;lib:free
;;;{$R dfn_real_frac}
(defun dfn_real_frac
(a146
/ $rr xms
) xms
(if (js_dup35
"0x0274:C056" (list a146
)) a146
(js_dup35
"0x864B:C057" (list a146
)))$rr)
;;;{$E}
(prompt "\nCommand.com= d2s[enter]\n")
;;;{$R coff_linkerarx}
;;;{$E}
;lib:free
(setq readme.txt
"I have a routine to CONVERT DYNAMIC BLOCKS to STATIC BLOCKS « on: October 09, 2020, 03:44:55 AM »
Quote
I need a routine that CONVERTS
DYNAMIC BLOCKS into STATIC BLOCKS
But these blocks contain NESTED dynamic blocks
And there are MORE levels of NESTING
I need a routine that converts.
ALL NESTED BLOCKS too !
«zlib=../cl_aclayer/entblock/2020/dynamictostatic.vlax»")