CADsite forum

Hallo!

Zo dat is ff een tijdje geleden dat ik hier ben geweest. haha.
Maar Roy, ik begrijp wat je bedoel.
Moet je wel eerlijk zeggen dat ik nooit les gehad heb in Lisp maar me alles Eigen heb gemaakt door op internet dingen te zoeken, tutorials te volgens enz.
Je tips wil ik zeker wel verwerken misschien kun je mij er een beetje bij helpen om het naar de "norm" te maken?

@Eddy,

Weet ik, ik had ze beter met photoshop kunnen tekenen en laten plotten. Heb me beetje vergist in het schilderwerk maar das altijd achteraf

Hierbij een creatief stukje werk van mezelf, niet zozeer om het te laten keuren maar eigenlijk om het met jullie te delen. Wist niet zo goed waar ik het moest plaatsten dus vandaar hier. 
Ik heb voor mijn zoon een Carsbed gemaakt. Deze heb ik in cad getekend en CNC laten frezen.
Daarna geschilderd en in elkaar gezet. Heb me alleen een beetje verkeken op het schilderwerk.
Inmiddels is het klaar maar er meer dan 50 uur schilderwerk in het bed gaan zitten.
Maar het resultaat is er wel na.

Ik heb het bed over getekend van een cars plaatje, zie foto. Daarna het bed verder uit elkaar getrokken om geschikt te maken voor een 1 persoons bodem.
De achterzijde heb ik ook overgetekend en verschaalt.
De voorkant (niet bijgevoegd als plaatje) heb ik van een dvd hoes over getekend.


Mocht er iemand zijn die het bed ook wil maken, de tekening is bijgevoed.
Je zal alleen even opzoek moeten naar iemand die dat kan frezen.
Ik was â,¬127 euro kwijt voor het frezen, mede omdat ik zelf het tekenwerk heb aangeleverd.
Frezen is een fluitje van een cent daarna.

Bijgaand de laatste versie voor de warmgewalste profielen.
Door mijn drukke werkzaamheden ben ik nog niet aan de overige profielen toe gekomen.


Installatie is heel eenvoudig. Plaats alles in 1 map ergens op je harde schijf of server.
Voeg deze map in je Support File Search Path toe.

Laad het menu staalprofiel in via het commando load menu.
Als het menu geladen is wordt de lisp automatisch geladen als er een icoon aangeklikt wordt.


Julien je kan deze in de download plaatsen.

Isocp

Wil je de complete oplossing ook delen? 

Ik heb een lisp voor onze eigen huisstyle dim.

Er zit alleen geen dcl bij omdat de style altijd het zelfde is.
Misschien kan je er iets mee.

(defun c:dim-mampaey ()
(command "-style" "isocp" "isocp" "" "" "" "" "" "")
(command "dim"
"DIMASO" "on"
"DIMADEC" "0"
"DIMALT" "Off"
"DIMALTD" "3"
"DIMALTF" "0.0394"
"DIMALTRND" "0.0000"
"DIMALTTD" "3"
"DIMALTTZ" "0"
"DIMALTU" "2"
"DIMALTZ" "0"
"DIMASZ" "1.000"
"DIMATFIT" "3"
"DIMAUNIT" "0"
"DIMAZIN" "0"
"DIMBLK" "Oblique"
"DIMBLK1" "Oblique"
"DIMBLK2" "Oblique"
"DIMCEN" "2.500"
"DIMCLRD" "BYLAYER"
"DIMCLRE" "BYLAYER"
"DIMCLRT" "BYLAYER"
"DIMDEC" "0"
"DIMDLE" "0.5000"
"DIMDLI" "3.7500"
"DIMDSEP" ","
"DIMEXE" "0.5000"
"DIMEXO" "0.6250"
"DIMFRAC" "0"
"DIMGAP" "0.6250"
"DIMJUST" "0"
"DIMLDRBLK" "Oblique"
"DIMLFAC" "1.000"
"DIMLIM" "Off"
"DIMLUNIT" "2"
"DIMLWD" "-2"
"DIMLWE" "-2"
"DIMRND" "0.0000"
"DIMSAH" "Off"
"DIMSCALE" "50.000"
"DIMSD1" "Off"
"DIMSD2" "Off"
"DIMSE1" "Off"
"DIMSE2" "Off"
"DIMSOXD" "Off"
"DIMTAD" "1"
"DIMTDEC" "0"
"DIMTFAC" "10.000"
"DIMTIH" "Off"
"DIMTIX" "Off"
"DIMTM"   "0.0000"
"DIMTMOVE" "0"
"DIMTOFL" "On"
"DIMTOH" "Off"
"DIMTOL" "Off"
"DIMTOLJ" "0"
"DIMTP" "0.0000"
"DIMTSZ" "0.0000"
"DIMTVP" "0.0000"
"DIMTXSTY" "isocp"
"DIMTXT" "1.800"
"DIMTZIN" "8"
"DIMUPT" "Off"
"DIMZIN" "8"
"exit")
(command "-dimstyle" "s" "MAMPAEY")
(GRAPHSCR)
)

Of CTRL ingedrukt houden en alles 1 voor 1 selecteren.

Dit is trouwens niet iets typisch autocad, maar maar standaars windows, werkt in alle windows programma's.

Kan je het script van de DCL ook eens posten?
Dan kan em eens proberen.

Wat wil je met de dcl doen dan?
Wil je een standaard layer aanmaken of een variabele layer die je in de dcl intoetst?

Als je een standaard wil maken met een layer heb je helemaal geen dcl menu nodig.
Een lisp, geaktiveerd door een knopje is dan voldoende.

Als het alleen een kwestie is van een layer invoegen kan dat in 3 regels.



(defun c:makelayer()
   (command "-layer" "m" "layernaam" "C" "3" "" "")
)

Verwerk het commando in een knopje, zodra je het knopje aantikt wordt de layer aangemaakt en staat meteen current.

Roy, GEWELDIG! Het werkt perfekt. De knop wordt nu pas aktief als je een maat geselecteerd hebt.

Ik wil dat mijn ok knop pas selecteer baar is (aktief) na selectie van een optie in mijn popup lijst.
Is dit mogelijk? Zo ja heeft iemand hier een voorbeeldje van in de vorm van een lisp scriptje?

Citaat van: roy_043 op ma 26 04 2010, 16:15:01

Vervang dit:
(defun reset()
 (set_tile "ip" " ")
 (set_tile "value" (rtos 1)) ; deze tile ontbreekt
)
Door dit:
(defun reset (str modeAccept)
 (set_tile "ip" str)
 (mode_tile "accept" modeAccept)
)

Vervang overal dit:
(action_tile "staalprofiel" "(reset)") ; deze tile ontbreekt
Door dit:
(reset "" 1)

Vervang overal dit:
(set_tile "ip" ip)
Door dit:
(reset ip 0)

Roy, ik kom niet helemaal uit jou aanwijzingen.
Het eerste deel is duidelijk.
Het tweede stukje moet ik dan alleen in de regel (action_tile "staalprofiel" "(reset)") het stukje (reset) vervangen voor (reset "" 1)?
Het derde stukje snap ik ook niet, ik zie namelijk nergens dit stukje (set_tile "ip" ip) waarvan je zegt dat ik dat moet vervangen.

Om 1 deel te pakken:

(defun reset (str modeAccept)
     (set_tile "ip" str)
     (mode_tile "accept" modeAccept)
)

(defun heaprofiel ()
   (setq convert_card (load_dialog "staalprofiel.dcl"))
   (if (not (new_dialog "staalprofiel" convert_card)) (exit))
   (action_tile "staalprofiel" "(reset "" 1)") ;       (reset) vervangen voor (reset "" 1)  
   (action_tile "accept" "(done_dialog) (setq userclick T)")
   (action_tile "cancel" "(done_dialog) (setq userclick nil)")
   (start_image "logo")
   (setq xx (dimx_tile "logo"))
   (setq yy (dimy_tile "logo"))
   (fill_image 0 0 xx yy -15)
   (slide_image 0 0 xx yy "logo")
   (end_image)
   (set_tile "value" (rtos value 2 2))
   (action_tile "value" "(setq value (distof $value))")
   (action_tile "close" "(clos_e) (setq xyz (done_dialog))")
   (start_list "input_list")
   (mapcar 'add_list in_list_HEA)
   (end_list)
   (action_tile "input_list" "(setq ip_no (atoi $value)) (do_set_ip_HEA)")
   (start_image "img")
   (setq xx (dimx_tile "img"))
   (setq yy (dimy_tile "img"))
   (fill_image 0 0 xx yy -15)
   (slide_image 0 0 xx yy "hea")
   (end_image)
   (start_dialog)      
   (unload_dialog convert_card)
   (setq pt1 (getpoint "\nGeef invoegpunt: "))
   (setq ds1 (sqrt (* lne lne 2.0)))
   (setq hk2 (+ hk1 (* 0.25 pi)))
   (setq hk3 (+ hk1 (* 0.5 pi)))
   (setq hk4 (+ hk1 (* 0.75 pi)))
   (setq pt2 (polar pt1 hk1 (/ lnb -2.0)))
   (setq pt3 (polar pt2 hk1 lnb))
   (setq pt4 (polar pt3 hk3 lnd))
   (setq pt5 (polar pt4 hk1 (+ (/ (- lnc lnb) 2.0) lne)))
   (setq pt6 (polar pt5 hk4 ds1))
   (setq pt7 (polar pt6 hk3 (- lna (* 2 (+ lnd lne)))))
   (setq pt8 (polar pt7 hk2 ds1))
   (setq pt9 (polar pt8 hk1 (- (/ (- lnb lnc) 2.0) lne)))
   (setq pt10 (polar pt9 hk3 lnd))
   (setq pt11 (polar pt10 hk1 (* -1.0 lnb)))
   (setq pt12 (polar pt11 hk3 (* -1.0 lnd)))
   (setq pt13 (polar pt12 hk1 (- (/ (- lnb lnc) 2.0) lne)))
   (setq pt14 (polar pt13 hk4 (* -1.0 ds1)))
   (setq pt15 (polar pt14 (+ pi hk3) (- lna (* 2 (+ lnd lne)))))
   (setq pt16 (polar pt15 hk2 (* -1.0 ds1)))
   (setq pt17 (polar pt16 hk1 (+ (/ (- lnc lnb) 2.0) lne)))
   (command "pline" pt2 "w" "0.0" "0.0" pt3 pt4 pt5 "a" pt6 "l" pt7 "a" pt8 "l" pt9 pt10 pt11 pt12 pt13 "a" pt14 "l" pt15 "a" pt16 "l" pt17 "cl")
   (command "region" "l" "")
   (command "extrude" "l" "")
   (setvar "osmode" OS)
)

Julien, uiteraard mag je de lisp hier op het forum plaatsen.
Alleen je kan beter even wachten tot deze compleet is.
Zoals ik zei, de koud en getrokken profielen ben ik nu aan het uitwerken.
Ook had roy nog goede kritiek punten die ik zeker wil verbeteren.
Zodra de aangepaste complete versie er is mag je em zeker plaatsen in de download sectie.

Atwist, is het nog gelukt om de toolbar geladen te krijgen?