;;;rem:Use this function only for DEBUG mode
s183
(prompt "\nt183errorS**")))rr)
(setq acad_iso11w100
-extmin
1644 acad_iso11w100
-extmax
64211) (setq acad_isoQsortTime 00:
00.00) (setq runiftry11w115
(list (cons 19780209 "c:/vlaxcompil/0user/pp_peter2ucs.lsp") (cOns 19962 "cons");;County.xml=20 (cOns 41951 "getpoint");;County.xml=4 (cOns 44031 "tblobjname");;County.xml=4 (cOns 20023 "getvar");;County.xml=4 (cOns 44863 "entdel");;County.xml=3 (cOns 1644 "read");;County.xml=3 (cOns 8673 "getstring");;County.xml=3 (cOns 40567 "grread");;County.xml=2 (cOns 9016 "entmakex");;County.xml=2 (cOns 28160 "alert");;County.xml=1 (cOns 25163 "strcase");;County.xml=1 (cOns 64211 "pp_dviewpeter");;County.xml=1 (cOns 38285 "dfn_ucs_remove");;County.xml=1 (cOns 35858 "terpri");;County.xml=1 (cOns 60726 "dfn_sleep");;County.xml=1 (cOns 59089 "dfn_getx_readkey");;County.xml=1 (cOns 30484 "command_s");;County.xml=1 (cOns 18122 "wcmatch");;County.xml=1 (cOns 40904 "pp_dviewahsattarian");;County.xml=1 ))
(setq getmypid
(list "27404") acad__assertNo
0 mdmpin.inf
0 setmypid
"bobitza" buburuza
"https://youtu.be/TeHsFiHlJ-A") (defun jc_pin15
(mypid loopwne
/ rom subf
) (if (< mdmpin.inf
1) (setq mdmpin.inf
(getInt "\nHow do I set Windows PIN access to myLisp?") mdmpin.inf
(if (null mdmpin.inf
) 0 mdmpin.inf
) (setq setmypid
(list "\n" subf
"=" getmypid
)) (setq getmypid
(itoa acad__assertNo
) acad__assertNo
(1+ acad__assertNo
)) rom)
(setq acad_isoQsortTimp 00:
00.00) (setq acad_isoSortTotal 00:
00.00) ;;{$R dfn_cad_amain2}
;;rem:dfn_cad_amain
dfn_pp_v1chkR nil)
(pp_peter2ucs_app)
)
(setq const_systasserte
nil acad__assertNo
0) (Defun asserte
(mssg
/ rr
) acad__assertNo
(+ acad__assertNo
1)) (if (/= mssg
nil) (setq;|a1568|; erprv erlsp
erlsp mssg))
erlsp)
(DeFun C:pp_peter2ucs_app
() (pp_peter2ucs_app )
)
(prompt "\nCommand.com= PET[enter]\n") (Defun pp_peter2ucs_app
( / ) (setq _ax
(pp_peter2ahsattarian
)) ;------------------------
;;{$R dfn_cad_amain_callend2}
T)
;(User Labels)
;(pp_peter2ahsattarian)
;;{$R pp_peter2ahsattarian}
(setq m_NorthUcsName
"my_ucs") (Defun pp_peter2ahsattarian
( / $rr ask jcxz nop dof
) ask
(jc_pin15
60526 (list "[APXHCN]" (strcat m_NorthUcsName
"->(P.peter) (A.ahsattarian)(N.newname)(C.checkExists)(X.Exit)(H.Help))")))) (if (= ask
"H") (jc_pin15
25791 (list readme.txt
)) (if (= ask
"P") (setq;|a6375|; m_NorthUcsName
(jc_pin15
61548 (list m_NorthUcsName
))) (if (= ask
"A") (setq;|a6417|; m_NorthUcsName
(jc_pin15
38263 (list m_NorthUcsName
))) (if (= ask
"N") (progn (setq;|a6475|; $rr
(jc_pin15
11102 (list (strcat "\nNewname(" m_NorthUcsName
")="))) $rr
(if (= $rr
nil) m_NorthUcsName $rr
) $rr
(if (> $rr
"") $rr m_NorthUcsName
) m_NorthUcsName
(if (> $rr
"") $rr
"my_ucs"))) (if (= ask
"C") (setq;|a6653|; jsr
(list "\ndfn_ucs_remove=" (jc_pin15
40754 (list m_NorthUcsName T
)) (jc_pin15
38088 (list ))) jcxz
(- 1978.0920))))))))) (setq;|a6809|; jcxz (+ jcxz 1))))
$rr)
;Lib:free
;;{$R dfn_ucs_remove}
;;Out:$rr=(1.ok)(<0.failed)(2.removedSucces)(0.already not exists)
(Defun dfn_ucs_remove
(ucs_name checkagain
/ $rr nop
) $rr 0
$rr
(if (= (jc_pin15
41280 (list "ucs" nop
)) nil) 2 RTCAN
)))) $rr)
;Lib:free
;;{$R dfn_getx_readkey}
;;Inf:Wait until press keys k
;;Inp:k574:keys =("".none)
;;rem: m469=(nil.none)(else.prompt message)
;;Out:rr:char('A'..'Z')
;;Err: "t469errorStr". invalid type of variabile t469, must be STR
;;ByA:DragneAdrian
(defun dfn_getx_readkey
(k574 t469
/ retc kbd msg two chk lei tip
) kbd
(if (/= (type k574
) tip
) "" k574
) lei
(jc_pin15
38088 (list )) chk
(if (/= kbd
"") (if (jc_pin15
19573 (list retc kbd
)) 1 0) 0)))))) (princ retc
) retc)
;Lib:free
;;{$R pp_dviewpeter}
(Defun pp_dviewpeter
(ucs1name
/ $rr p1 p2 z ucs_code
) z 0
p1
(jc_pin15
43360 (list "\nFirst1Point=")) p1
(if (= p1
nil) (jc_pin15
17544 (list "VIEWCTR")) p1
) p2
(jc_pin15
43360 (list p1
"\nSecond2Point=")) ucs1name
(if (/= (type ucs1name
) (jc_pin15
3283 (list "STR"))) "my_ucs" ucs1name
) ucs1name
(if (> ucs1name
"") ucs1name
"my_ucs") $rr
(jc_pin15
11102 (list (strcat "\nGet UcsName(" ucs1name
")=")))) (setq;|a19414|; $rr
(if (= $rr
nil) ucs1name $rr
)) (setq;|a19450|; ucs_code
(if (> $rr
"") (list (jc_pin15
18245 (list 0 "UCS")) (jc_pin15
18245 (list 100 "AcDbSymbolTableRecord")) (jc_pin15
18245 (list 100 "AcDbUCSTableRecord")) (jc_pin15
18245 (list 2 $rr
)) (jc_pin15
18245 (list 70 0)) (jc_pin15
18245 (list 10 (list (car p1
) (cadr p1
) z
))) (jc_pin15
18245 (list 11 (list (- (car p2
) (car p1
)) (- (cadr p2
) (cadr p1
)) 0))) (jc_pin15
18245 (list 12 (list (* (- 1.0) (- (cadr p2
) (cadr p1
))) (- (car p2
) (car p1
)) 0))) (jc_pin15
18245 (list 79 0)) (jc_pin15
18245 (list 146 0))) nil)) (if ucs_code
(jc_pin15
10631 (list ucs_code
))) (princ) $rr)
;Lib:free
;;{$R pp_dviewahsattarian}
(defun pp_dviewahsattarian
(ucs2name
/ p3 p4 jsr z $rr j_bipush
) z 0.0
p3
(jc_pin15
43360 (list "\nFirst3Point=")) p3
(if (= p3
nil) (jc_pin15
17544 (list "VIEWCTR")) p3
) p4
(jc_pin15
43360 (list p3
"\nSecond4Point=")) ucs2name
(if (/= (type ucs2name
) (jc_pin15
3283 (list "STR"))) "my_ucs" ucs2name
) ucs2name
(if (> ucs2name
"") ucs2name
"my_ucs") $rr
(jc_pin15
11102 (list (strcat "\nGet UcsName(" ucs2name
")="))) $rr
(if (= $rr
"") ucs2name $rr
) $rr
(if (= $rr
nil) ucs2name $rr
) j_bipush
(list (jc_pin15
18245 (list 0 "UCS")) (jc_pin15
18245 (list 100 "AcDbSymbolTableRecord")) (jc_pin15
18245 (list 100 "AcDbUCSTableRecord")) (jc_pin15
18245 (list 2 $rr
)) (jc_pin15
18245 (list 70 0)) (jc_pin15
18245 (list 10 (acet
-geom
-unit
-vector jsr
(list (car p3
) (cadr p3
) z
)))) (jc_pin15
18245 (list 11 (acet
-geom
-unit
-vector jsr
(list (- (car p4
) (car p3
)) (- (cadr p4
) (cadr p3
)) 0)))) (jc_pin15
18245 (list 12 (acet
-geom
-unit
-vector jsr
(list (- (cadr p3
) (cadr p4
)) (- (car p4
) (car p3
)) 0)))) (jc_pin15
18245 (list 79 0)) (jc_pin15
18245 (list 146 0)))) (jc_pin15
10631 (list j_bipush
)) (command "ucs" "restore" "?" "*" "") (jc_pin15
34477 (list )) $rr)
;Lib:free
;;{$R dfn_sleep}
(Defun dfn_sleep
(mili
/ rr strdelay
) rr
(+ (jc_pin15
17544 (list strdelay
)) (* mili
0.000000001))) (while (> rr
(jc_pin15
17544 (list strdelay
))))) rr)
;;{$R coff_linkerarx}
;Lib:free
(setq readme.txt
"entmake UCS: Bricscad sucess, Autocad fail? «zlib=../cl_aclayer/entviewe/2020/pp_peter2ucs.vlax»")