/ Forside/ Teknologi / Multimedie & design / AutoCAD / Spørgsmål
Login
Glemt dit kodeord?
Brugernavn 

Kodeord  


Reklame
Top 10 brugere
AutoCAD
#NavnPoint
CADmageren 2616
meiland 1657
berpox 1148
e.c 1070
dorit 990
Benjamin... 570
grethes 450
emesen 350
Klaudi 300
10  fame 280
Lisp program til isolering
Fra : cylle
Vist : 2219 gange
40 point
Dato : 03-08-03 21:09

Hej

Jeg mangler et lisp program til at tegne isolering med.
Det skal helst være en isoleing med buede sider i stedet for lige sider.

 
 
Kommentar
Fra : meiland


Dato : 05-08-03 01:11

Hej Cylle

Her er en lispfil, som du kan bruge

;;Routine to draw insulation symbol into roof/ wall sections
;; call as <INSUL1>
;;first pick origin of insulation ; second pick end of insulation
;;third pick height of insulation from first pick
;; draws polyline onto layer "insulation"
(defun newerr (NE)
(if (/= NE "Function bombed out ...")
(princ (strcat "\nError: " NE))
)
(command".LAYER""S"CLYR"")
(setvar"OSMODE" OS)
(setvar"ORTHOMODE" OM)
(setvar"CMDECHO" CE)
(setvar"BLIPMODE" BM)
(command".UNDO""end")
(princ)
);dfn

(defun C:INSUL1 (/ SP EP HT OM CE BM DX AN NX NU
AX PX P1 P2 P3 P4 P5 P6 P7 P8 P9 XT SLST)
(command".UNDO""group")
(setq OS (getvar "OSMODE"))(setvar "OSMODE" 512)
(setq OM (getvar "ORTHOMODE"))(setvar "ORTHOMODE" 1)
(setq CE (getvar "CMDECHO"))(setvar "CMDECHO" 0)
(setq BM (getvar "BLIPMODE"))(setvar "BLIPMODE" 0)
(while (= SP nil) (setq SP
(getpoint "\nPick Start Point of Insulation (Ortho is ON; O/S is Near): ")))
(while (= EP nil) (setq EP
(getpoint SP "\nPick Ending Point of Insulation: ")))
(setvar "OSMODE" 0)
(while (= HT nil) (setq HT
(getdist SP "\nPick or Enter Height of Insulation: ")))
(setq CLYR (getvar"CLAYER")) (command".LAYER""M""INSULATION""C""8""""")
(setq AN (angle SP EP)
DX (distance SP EP)
NX (/ HT 2)
NU (/ DX NX)
NX (/ HT 2)
AX (+ AN (/ PI 2))
PX (polar SP AX HT)
P1 (polar SP AX (/ HT 1.25))
P2 (polar P1 AN (/ HT 20))
P3 (polar P1 AN (/ HT 4))
P4 (polar P2 AN (/ HT 2.5))
P5 (polar SP AX (/ HT 5))
P6 (polar P5 AN (/ HT 5))
P7 (polar P6 AN (/ HT 10))
P8 (polar P5 AN (/ HT 2))
P9 (polar SP AN (/ HT 2))
)
(setq SLST (ssadd))
(repeat (fix NU)
(command ".ARC" "C" P5 SP P6)
(setq SLST (ssadd (entlast) SLST))
(command ".LINE" P6 P2 "" )
(setq SLST (ssadd (entlast) SLST))
(command ".ARC" P2 "C" P3 "A" "-180" )
(setq SLST (ssadd (entlast) SLST))
(command ".LINE" P4 P7 "" )
(setq SLST (ssadd (entlast) SLST))
(command ".ARC" "C" P8 P7 P9)
(setq SLST (ssadd (entlast) SLST))
(setq SP (polar SP AN NX)
P2 (polar P2 AN NX)
P3 (polar P3 AN NX)
P4 (polar P4 AN NX)
P5 (polar P5 AN NX)
P6 (polar P6 AN NX)
P7 (polar P7 AN NX)
P8 (polar P8 AN NX)
P9 (polar P9 AN NX)
)
)

(setq XT (distance SP EP))
(if (>= XT (/ HT 5))
(progn
(command ".ARC" "C" P5 SP P6 )
(setq SLST (ssadd (entlast) SLST))
(command ".LINE" P6 P2 "" )
(setq SLST (ssadd (entlast) SLST))
(command ".ARC" P2 "C" P3 "A" "-75")
(setq SLST (ssadd (entlast) SLST))
)); end if
(command ".PEDIT" "L" "Y" "J" SLST "" "")
(command ".LAYER" "S" CLYR "")
(setvar "OSMODE" OS)
(setvar "ORTHOMODE" OM)
(setvar "CMDECHO" CE)
(setvar "BLIPMODE" BM)
(command".UNDO""end")
(princ)
);end
(princ)


/meiland

Kommentar
Fra : meiland


Dato : 12-09-03 08:36

Hallo Cylle !

Kan du bruge kildeteksten ???? Hvis ja, så accepter venligst svaret

Kommentar
Fra : carlssons


Dato : 10-10-03 11:13

Hej Cylle

Prøv at kikke indenfor på min website: www.carlssons.dk ved linket til Tips.

Med venlig hilsen

John V. Carlsson

Kommentar
Fra : allansen1


Dato : 11-11-03 18:49

Hej Kandu'er

Prøv Meiland's Autolisp, det er bare noget der fungerer, du kan eventuelt selv lave en knap på skrivebordet som er tilknyttet kommandoen.
Carlssons autolisp "disabler" desværre "orto", så man er nødt til at have en linie at snappe til, for at isolere lodret eller vandret. Sorry Carlsson, men i det daglige er Meiland's autolisp meget lettere at bruge.

Hilsen Allan Nielsen

Du har følgende muligheder
Dette spørgsmål er blevet annulleret, det er derfor ikke muligt for at tilføje flere kommentarer.
Søg
Reklame
Statistik
Spørgsmål : 173642
Tips : 31664
Nyheder : 719565
Indlæg : 6383651
Brugere : 218258

Månedens bedste
Årets bedste
Sidste års bedste