(setq setmypid
"https://youtu.be/cuBbQ6K45YY?t=21") (setq pidgen10esp
nil StubA20
(list "\n*T349errorH") pidgen.dll 0 getmypid "ok")
(defun jc_aro20
(mypid loopwne
/ rom subf lpt orda
) (setq pidgen10esp
(cons getmypid pidgen10esp
) pidgen.dll
(1+ pidgen.dll
)) ) ;_ end of if
(if (/= lpt
nil) (setq StubA20
(cons StubA20 lpt
))) rom)
(setvar "ModeMacro" "YouType.err=(SetMyPid)") (princ "\nViewStack of All Error/s=") (princ pidgen10esp
) )
dfn_pp_v1chkR nil)
(_app)
)
(setq const_systasserte
nil acad__assertNo
0) (Defun asserte
(mssg
/ rr
) acad__assertNo
(+ acad__assertNo
1)) (if (/= mssg
nil) (setq;|a000|; erprv erlsp
erlsp mssg))
erlsp)
(_app )
)
(prompt "\nCommand.com=Q2[enter]\n") ;------------------------Stdcall "nn_vmload "
;------------------------
T)
(defun RenderCmds0h
( / cpp
);; ;;09sudo dpkg --add ;stdcall
(setq RenderCmd.cpp
9));; ;(User Labels)
;(nn_vmload)
(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
) strcd "Q1.Drip line Flow for HD 6@m2"
lena
(list "hectometer" "centimeter" "dekameter" "survey_foot" "yard") arj
(list "acre" "barn" "centare" "hectare" "rood" "square_yards")) (setq;|a000|; cec
(jc_aro20
"C157dfn_color_ceinc";|g35741|;(list nil 1)) precision
(jc_aro20
"C158getvar";|g35758|;(list "USERI1")) precision
(boole 1 (abs precision
) 15)) (prompt "\nSelect ClosedPolylines:") (setq;|a000|; 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))))) logo
(if (and fns
(> (jc_aro20
"C163sslength";|g35854|;(list fns
)) 0)) (jc_aro20
"C164dfn_ssg_tolistvla";|g35862|;(list fns
)) nil)) (setq;|a000|; a09t 0.0
lpt nil
nLen 0.0
$rr
(jc_aro20
"C165last";|g35912|;(list logo
)) arr
(jc_aro20
"C167vla-get-area";|g35992|;(list eobj
)) lnx
(jc_aro20
"C168vlax-curve-getdistatparam";|g36005|;(list eobj
(jc_aro20
"C169vlax-curve-getendparam";|g36013|;(list eobj
)))) nLen (+ lnx nLen)
divx
(if arr
(/ arr
9.000) 1) ptc
(if arr
(jc_aro20
"C170lm_polycentroid";|g36060|;(list (car $rr
))) nil) lpt
(if ptc
(jc_aro20
"C171cons";|g36083|;(list ptc lpt
)) lpt
)) (setq;|a000|; 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|; 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|; clj
(jc_aro20
"C177vla-put-color";|g36243|;(list eobj cec
)) cec
(jc_aro20
"C178dfn_color_ceinc";|g36260|;(list cec
1)) a09t
(+ a09t divx
))) (setq;|a000|; vsel
(jc_aro20
"C179getvar";|g36317|;(list "VIEWCTR")) $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|; strcd
(jc_aro20
"C190cvunit";|g36573|;(list nLen
"meter" item
)) 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|; strcd
(jc_aro20
"C194cvunit";|g36678|;(list a09t
"square_metres" item
)) rkt
(jc_aro20
"C195append";|g36699|;(list rkt
(list (strcat "\nsqMeter." item
"=" (jc_aro20
"C196rtos";|g36727|;(list strcd
2 2)))))))) (setq;|a000|; 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
))))) $rr)
;Lib:free
;;rem: you append one string each lines
(defun str_princ
(a101
/ rr ad gq
) (asserte
"A101") gq
(jc_aro20
"C201textscr";|g37876|;(list))nil)
(defun php_echo
(a101
/ rr
) (str_princ a101
)) ;Lib:free
(Defun dfn_color_ceinc
(g126 incc
/ $rr adc ee
) (asserte
"G126") (setq;|a000|; ee
(if (jc_aro20
"C203numberp";|g39305|;(list g126
)) (jc_aro20
"C204atoi";|g39311|;(list (jc_aro20
"C205rtos";|g39315|;(list (abs g126
))))) nil) ee
(if (= ee
nil) (jc_aro20
"C206atoi";|g39339|;(list (strcat "0" (jc_aro20
"C207getvar";|g39351|;(list "CECOLOR"))))) ee
) ee
(if (< ee
1) 1 (if (> ee
254) 1 ee
)) adc
(if (jc_aro20
"C208numberp";|g39397|;(list incc
)) incc
3) adc
(if (= adc
nil) 1 adc
)) (setq;|a000|; adc
(if (> (- 9) adc
) (- 9) (if (> adc
9) 9 adc
)) ee (+ ee adc)
$rr
(if (< ee
1) 1 (if (> ee
253) 253 ee
))) $rr)
;Lib:free
(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
))
)
;Lib:free
;;Lsp=(dfn_enamk_textddi (getstring) (getpoint) 2.0 11)
(defun dfn_enamk_textddi
(ctextlsh pnt put_ScaleHeight newlayer epscolor
/ $rr old lfm hei eobj
) old
(jc_aro20
"C209entlast";|g41352|;(list)) 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|; $rr
(jc_aro20
"C216entlast";|g41433|;(list)) eobj
(jc_aro20
"C217vlax-ename->vla-object";|g41446|;(list $rr
)) 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|; 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|; $rr
(if (/= $rr old
) (list $rr eobj
) nil)) $rr)
;Lib:free
(setq rres_get_centroid
nil) (Defun vla_get_centroid
(objregion
/ rr
) )
rr)
;; Polygon Centroid - Lee Mac
;; Returns the WCS Centroid of an LWPolyline Polygon Entity
(defun LM_PolyCentroid
( e
/ l
) )
(
(
(lambda ( c d
) (* (+ c d
) m
)) )
a b
)
)
)
)
)
)
)
)
)
)
)
)
(* 3.0
)
)
)
)
)
)
)
;Lib:free
(defun dfn_ssg_tolistvla
(freepick
/ ldm idx $rr $rl nop cpm
) (jc_aro20
"C225vl_load_com";|g43227|;(list)) (setq;|a000|; 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)) idx
(if ldm
(- (jc_aro20
"C230sslength";|g43302|;(list ldm
)) 1) -5002) $rl nil
cpm
(jc_aro20
"C231ssname";|g43363|;(list ldm idx
)) $rr
(jc_aro20
"C232cons";|g43380|;(list cpm $rr
)) cpm
(jc_aro20
"C233vlax-ename->vla-object";|g43397|;(list cpm
)) $rl
(if cpm
(jc_aro20
"C234cons";|g43414|;(list cpm $rl
)) $rl
)) (setq;|a000|; idx (- idx 1)))))
;Lib:free
;;{$R dfn_cad_amain_eof2 T229@:043488}
(prompt "\ncommand.com: Q2[enter]\n") ;;</dfn_cad_amain_eof2>
;Lib:free