(setq acad_iso11w100
-extmin
41 acad_iso11w100
-extmax
59089) (setq acad_isoQsortTime 00:
00.00) (setq runiftry11w100
(list (cons "0x0000" "https://youtu.be/Ly6mVkU5OGE") (cons "0x4DFA" "cons");;County.xml=10 (cons "0xB2A2" "vlax-invoke");;County.xml=4 (cons "0x066C" "read");;County.xml=4 (cons "0x2ABB" "append");;County.xml=3 (cons "0xB77E" "reverse");;County.xml=2 (cons "0x4E37" "getvar");;County.xml=2 (cons "0xD270" "bs_dibpattern");;County.xml=1 (cons "0xBE4E" "last");;County.xml=1 (cons "0x0CB3" "if_int");;County.xml=1 (cons "0x920B" "bs_hatched");;County.xml=1 (cons "0x6E00" "alert");;County.xml=1 (cons "0x1C2B" "setvar");;County.xml=1 (cons "0xE6D1" "dfn_getx_readkey");;County.xml=1 (cons "0x0029" "vlax-ename->vla-object");;County.xml=1 (cons "0x53FE" "vla-get-handle");;County.xml=1 (cons "0x624B" "strcase");;County.xml=1 (cons "0x2338" "entmakex");;County.xml=1 (cons "0xD0B1" "ssget");;County.xml=1 (cons "0x4C2D" "sslength");;County.xml=1 (cons "0x48F2" "ssname");;County.xml=1 (cons "0xE271" "vl-catch-all-apply");;County.xml=1 (cons "0xB00F" "vl-catch-all-error-p");;County.xml=1 (cons "0x9E77" "grread");;County.xml=1 (cons "0x5F6D" "vl-catch-all-error-message");;County.xml=1 (cons "0x46CA" "wcmatch");;County.xml=1 (cons "0x898A" "vl_load_com");;County.xml=1 (cons "0xB118" "cadr");;County.xml=1 (cons "0x7EBC" "atoi");;County.xml=1 ))
(setq getmypid
(list "0x596B") setmypid
"???") (defun jc_dup35
(mypid loopwne
/ rom subf
) rom)
(setq acad_isoQsortTimp 00:
00.00) (setq acad_isoSortTotal 00:
00.00) ;;{$R dfn_cad_amain2}
dfn_pp_v1chkR nil)
(pp_scotthactch_app)
)
(Defun asserte
(mssg
/ $rr
) acad__assertNo
(+ acad__assertNo
1)) (if (/= mssg
nil) (setq;|a2024|; erprv erlsp
erlsp mssg))
erlsp)
(Prompt "\nCommand.com=Q2[enter]\n") (Defun pp_scotthactch_app
( / )
;;{$R (call_copy_source)}
;------------------------;$
;------------------------
;;{$R (call_copy_source)}
;------------------------;$
;------------------------
;;{$R (call_copy_source)}
;------------------------;$
;------------------------
;;{$R (call_copy_source)}
;------------------------;$
(setq dbhatch.h
(list "SOLID" "ANGLE" "ANSI31" "ANSI32" "ANSI33" "ANSI34" ;------------------------
;;{$R (call_copy_source)}
;------------------------;$
"ANSI35" "ANSI36" "ANSI37" "ANSI38" "MUDST" "ZIGZAG"))
;------------------------
;;{$R (call_copy_source)}
;------------------------;$
(setq color.stb
10 monostb
"\nRotateHatch(y-yes)(n-no)(x-exit)?:") ;------------------------
;;{$R (call_stas)}
;------------------------Dmicall dfn_getx_readkey
(setq _ax
(dfn_getx_readkey
"[YNX]" monostb
)) ;------------------------
;;{$R (call_copy_source)}
;------------------------;$
;------------------------
;;{$R (call_stas)}
;------------------------Stdcall pp_hatcharea
(setq _ax
(pp_hatcharea
)) ;------------------------
;;{$R (call_stas)}
;------------------------Dmicall dfn_getx_readkey
(setq _ax
(dfn_getx_readkey
"[YNX]" monostb
)) ;------------------------
;;{$R (call_copy_source)}
;------------------------;$
))
;------------------------
;;{$R dfn_cad_amain_callend2}
T)
;(User Labels)
;()))
;;{$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_dup35
"0x9E77:C001" (list )) retc
(jc_dup35
"0x624B:C002" (list (chr (jc_dup35
"0xB118:C003" (list lei
)))))) (setq;|a8987|; chk
(if (/= kbd
"") (if (jc_dup35
"0x46CA:C004" (list retc kbd
)) 1 0) 0)))))) (princ retc
) retc)
(defun pp_hatcharea
( / sos ssh ida nrg
) gelibver
(jc_dup35
"0x7EBC:C006" (list (jc_dup35
"0x4E37:C007" (list "ACADVER"))))) (if (> 15.0 gelibver
) (progn (jc_dup35
"0x6E00:C008" (list (strcat "Upgrade your AutoCAD mang!\n" readme.txt
))) exit)) (jc_dup35
"0x898A:C009" (list )) (setq;|a12223|; ssh
(jc_dup35
"0xD0B1:C010" (list (list (jc_dup35
"0x4DFA:C011" (list 0 "LWPOLYLINE,POLYLINE,REGION")) (jc_dup35
"0x4DFA:C012" (list (- 4) "&")) (jc_dup35
"0x4DFA:C013" (list 70 1)))))) (setq;|a12321|; nrg
(jc_dup35
"0x48F2:C015" (list ssh ida
))) (jc_dup35
"0xD270:C016" (list con_cespace
(jc_dup35
"0x0029:C017" (list nrg
)))) (setq;|a12433|; ida (- ida 1))))
$rr)
;;{$E}
(Defun dfn_enamk_line
(p1 p2 la color lt
/ $rr nfl
) (if (= color
nil) (setq;|a15298|; color
256)) (setq;|a15326|; la
(if (> la
"") la
(jc_dup35
"0x4E37:C018" (list "CLAYER"))) p1
(jc_dup35
"0x2ABB:C019" (list (list 10) p1
)) p2
(jc_dup35
"0x2ABB:C020" (list (list 11) p2
)) nfl
(list (jc_dup35
"0x4DFA:C021" (list 0 "LINE")) (jc_dup35
"0x4DFA:C022" (list 100 "AcDbEntity")) (jc_dup35
"0x4DFA:C023" (list 8 la
)) (jc_dup35
"0x4DFA:C024" (list 100 "AcDbLine")) p1 p2
(jc_dup35
"0x4DFA:C025" (list 62 color
)))) (if (> lt
"") (setq;|a15618|; nfl
(jc_dup35
"0x2ABB:C026" (list nfl
(list (jc_dup35
"0x4DFA:C027" (list 6 lt
))))))) (setq;|a15674|; $rr
(jc_dup35
"0x2338:C028" (list nfl
))) (princ) $rr)
;;{$E}
;;{$R bs_dibpattern}
(defun bs_dibpattern
(setPatternSpace object
/ err mop hatch
) err
(jc_dup35
"0xE271:C029" (list (jc_dup35
"0x066C:C030" (list "bs_pattern")) (list setPatternSpace object
)))) (if (jc_dup35
"0xB00F:C031" (list err
)) (princ (strcat "Entity handle:" (jc_dup35
"0x53FE:C032" (list object
)) " caused this error: " (jc_dup35
"0x5F6D:C033" (list err
))))) )
;;{$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
))
)
(defun bs_hatched
(pspworkspace setver_quiet
/ $rr ave rcl
) (if (= _ax
"Y") (setq;|a20301|; rcl
(jc_dup35
"0xBE4E:C034" (list dbhatch.h
)) dbhatch.h
(jc_dup35
"0x4DFA:C035" (list rcl
(jc_dup35
"0xB77E:C036" (list (cdr (jc_dup35
"0xB77E:C037" (list dbhatch.h
)))))))) (progn (setq;|a20391|; rcl "Solid"
color.stb (+ color.stb 1)
color.stb
(if (> color.stb
250) 10 color.stb
)) (jc_dup35
"0x1C2B:C038" (list "CECOLOR" (itoa color.stb
))))) (setq;|a20489|; ave
(jc_dup35
"0x0CB3:C039" (list setver_quiet
15))) (if (> ave
15) (setq;|a20539|; $rr
(jc_dup35
"0xB2A2:C040" (list pspworkspace
(jc_dup35
"0x066C:C041" (list "AddHatch")) acHatchStyleNormal rcl vlax_false AcHatchObject
))) (setq;|a20611|; $rr
(jc_dup35
"0xB2A2:C042" (list pspworkspace
(jc_dup35
"0x066C:C043" (list "AddHatch")) acHatchStyleNormal rcl vlax_false
)))) $rr)
;;{$E}
(defun bs_pattern
(spc obiect
/ $rr
) $rr
(jc_dup35
"0x920B:C044" (list spc gelibver
))) (jc_dup35
"0xB2A2:C045" (list $rr
(jc_dup35
"0x066C:C046" (list "AppendOuterLoop")) (list obiect
))) (jc_dup35
"0xB2A2:C047" (list $rr
(quote Evaluate
))) $rr)
;;{$E}
;;{$R if_int}
;;inf: (type(a025)==quote(int))
;;Out:rr(1.is Integer)(nil.else)
;;ByA:DragneAdrian2015
(defun if_int
(a025 default
/ $ri guru
) ;_ASSERT_OK $ri
(if (/= (type $ri
) guru
) default $ri
)) $ri)
;;{$E}
;L
;;{$R dfn_cad_amain_eof2}
(prompt "\nCommand.com: Q2[enter]\n") ;;</dfn_cad_amain_eof2>
(setq readme.txt
"How to: hatch multiple selected items individually Is there a lsp already written to make this work? By hand using ~mu~ just takes too long. I'll try with help u
«zlib=../cl_aclayer/enthatch/2020/pp_scotthactch.vlax»")