CADsite forum

Beste Lezers,

Heeft iemand al het gratis BabaCAD uitgeprobeerd?
http://www.babacad.com/index.html
Als je kijkt naar de grootte (kleiner dan 5MB) en de mogelijkheden,
dan is dit niet in verhouding!

Met vriendelijke HofCAD CSI.

Beste Cadters,

Volgens een collega is het CAD-lokaal in de steigers en is gesloten!
Het is gevestigd:
Oud Arsenaal,
M. Pijpelinckxstraat 4.
2000 Antwerpen.
Is deze ramp waar?

Met vriendelijke groet en bezorgde HofCAD CSI.

PS Op goede vrijdag ben ik aan dit CAD-lokaal een bezoek gebracht ,
en het gerucht was loos alarm! 

Ter Info,


4 new AutoLISP functions in A2012
- dumpallproperties (vlax-dump-object).
- getpropertyvalue (vlax-get-property).
- ispropertyreadonly (vlax-property-available T).
- setpropertyvalue (vlax-put-property).
http://www.theswamp.org/index.php?topic=39259.0
http://hyperpics.blogs.com/beyond_the_ui/2011/08/new-autolisp-functions-in-autocad-2012-for-mac.html


Met vriendelijke groet, HofCAD CSI.

http://docs.autodesk.com/ACDMAC/2012/ENU/filesALRMac/GUID-B96E74AB-F394-4B73-B821-B1E328D1FDF-1.htm

Beste Getroffene,

Als je naar bijv. naar http://forums.augi.com/showthread.php?t=55713&page=4
wilt gaan, krijg je 'Page Not Found'.
Ga je naar http://forums.augi.com/index.php/you-cad-do-it/viewforum/54/
dan zie wat voor een ramp onder het motto 'You CAD Do It' zich heeft voltrokken.
Een slechte suprise op pakjesavond.
Mijn medeleven en "In Memoriam" berichten naar http://forums.augi.com/index.php/you-cad-do-it/viewthread/53/

Een verdrietige HofCAD CSI.

PS Een kleine troost is: http://forums.augidev.com/

Beste Lezers,

Om tekeningen te delen:
https://www.autocadws.com/

Met vriendelijke groet, HofCAD CSI.

Best Julien,

Je zal in de toekomst moeten beslissen of je voor 'Dot Net API'
een speciale categorie binnen dit forum aanmaakt naast de
categorie 'VBA/COM interop'.
Zie bijv.: http://forums.augi.com/forumdisplay.php?f=88

Met vriendelijke groet, HofCAD CSI.

http://www.cadsite.be/smf/index.php?topic=3968.0

Beste Lezers,

Op de site http://www.freemust.com/ kan men
de gratis AutoCAD applicatie Freemust downloaden.
Deze applicatie geeft naast een aantal extra commando's ook de mogelijkheid
om uit een uitgebreide bibliotheek symbolen te plaatsen.

Met vriendelijke groet, HofCAD CSI.

Beste Mensen,

Het onderwerp zegt meer dan genoeg.

Met vriendelijke groet, HofCAD CSI.

PS Voor de Lispfanaten:
http://www.youtube.com/watch?v=7tQc2uxoFio
http://groups.google.com/group/autodesk.autocad.customization/msg/5d6226946f70eba9?hl=en&
http://www.cadtutor.net/forum/showthread.php?t=18774&highlight=christmastree.lsp
In de bijlage SoundXmasTree.lsp een gewijzigde XMASTREE van John F. Uhden.
Het programma SoundXmasTree gebruikt de Speech Application Programming Interface
van Microsoft Speech SDK 5.1 (http://www.microsoft.com/downloads/") of de
speech module van Microsoft Office 2002 of hoger.

Beste Mensen,

Als U niets te doen heeft, dan
http://highered.mcgraw-hill.com/sites/0078612209/student_view0/chapter1/

Met vriendelijke groet, HofCAD CSI.

Beste CAD liefhebbers,

Op http://www.cadsite.be/smf/index.php?topic=1563.msg8282#msg8282
heb ik een Visual Lisp versie van SpeakCfg.
Bij deze een VBA versie van SpeakCfg.

PS Het programma SpeakCfg gebruikt de Speech Application Programming Interface
van Microsoft Speech SDK 5.1 (http://www.microsoft.com/downloads/") of de
speech module van Microsoft Office (Microsoft Word 2002 of Microsoft Excel 2002).

Voor Sound Animations of Simulations zie:
http://forums.augi.com/showthread.php?t=55713&page=4

Beste Forumgebruikers,

In http://www.cadsite.be/smf/index.php/topic,2900.msg14857.html#msg14857
heb ik gesproken over X-files en de Twilight Zone.
Verder vroeg ik me toen af:
Is Julien, Bart of Joop familie van Fox Mulder(David Duchovny),
of is een van hen getrouwd met Dana Scully?
Nu ben ik weer iets bovennatuurlijks tegenkomen, bestudeer daarvoor
de bijlage.
Het Forum weet te voorspellen wanneer iemand aktief.

Met vriendelijke groet, HofCAD CSI

Beste Lezers,

De boog kan niet altijd gespannen staan.
Dhr. Kennet Sjoberg heeft bij zijn reactie in
http://forums.augi.com/showthread.php?t=55713&highlight=animate&page=2
de tekening KidCar.dwg en de scriptfile KidCar.scr toegevoegd.
Via deze script kun je goed zien, hoe een zeepkistkar opgebouwd is.
Dit is te leuk om het te verzwijgen, en daarom veel kijkgenot.

Met vriendelijke groet, HofCAD CSI.

PS Algemene uitleg over scripts zie: http://venus.imp.mx/hilario/Libros/AutoCAD14/ch23.htm

Beste Lisp liefhebbers,

Kijk eens naar:
http://web2.airmail.net/terrycad/

http://lists.topica.com/lists/acadnewsletter/read

Met vriendelijke groet,
HofCAD CSI


http://www.cadmonkey.com/blocks.htm
http://www.autocadblock.com/

Ik mis Joop.

Beste CAD liehebbers,

Op http://www.cadclips.com zijn een aantal clips te bekijken over
AutoCAD, REVIT en ADT.
Bijv. voor AutoCAD t.a.v. o.a Dynamic blocks en 3D .


Met vriendelijke groet,
HofCAD CSI

PS Zie ook voor filmpjes: http://tutorials.downloadroute.com/AutoCAD-Autodesk-Inc.html

Beste CAD liefhebbers,

Op http://www.theswamp.org/index.php?topic=14549.0 heeft Patrick_35
een tip gegeven om AutoCAD te laten praten via Microsoft Speech.


(defun C:SpeakCfg(/ Sapi ~voice ~volume ~rate Voice VoiceMary VoiceMike
                   VoiceSam VoiceLst NumVoices @SendKeysN @PlayWav
                   @NoPath @VoiceList @member+ @Voice&TextInput)

;**********************SubPrograms************************************************
(defun @SendKeysN (Keys n / Wscript)
 (if (setq Wscript (vlax-create-object "WScript.Shell"))
   (progn (repeat n
      (vlax-invoke-method Wscript 'SendKeys Keys))
      (vlax-release-object Wscript)
   )
 )  
(princ)
)
(defun @PlayWav (Sapi WavFile / WavPath @@FindFile ObjFile)
(defun @@FindFile(WavFile / WinDir Path i DirLst)
(setq WinDir (getenv "Windir"))
(setq Path nil i 0 DirLst
(list "" "c:\\" (strcat WinDir "\\")
(strcat WinDir "\\media\\")
(strcat WinDir "\\System\\")
(strcat WinDir "\\System32\\")
(strcat WinDir "\\System64\\")
(strcat WinDir "\\System32\\drivers\\")))
(while (and (< i (length DirLst))
(= (setq Path (findfile (strcat (nth i DirLst) WavFile))) nil))
(setq i (1+ i)))
Path
)
(setq WavPath (@@FindFile WavFile))
(if (and WavPath Sapi)
(progn
(setq ObjFile (vlax-create-object "SAPI.SpFileStream.1"))
(vlax-invoke ObjFile "Open" WavPath)
(vlax-invoke Sapi "Speakstream" ObjFile 0)
(vlax-release-object ObjFile)
))
)
(defun @NoPath(s / cnt ct name)
(setq name (strcase s T))
(if (= (substr name 2 1) ":")
(setq name (substr name 3)))
(setq cnt 1 ct 0)
(repeat (strlen name)
(if (= (substr name cnt 1) "\\")
(setq ct cnt)
)
(setq cnt (1+ cnt))
)
(setq name (substr name (+ 1 ct) cnt))
)
(defun @VoiceList(Sapi / i VoiceLst Voices)
(setq Voices (vlax-invoke Sapi 'GetVoices))
(setq i 0 VoiceLst '())
(repeat (vla-get-count Voices)
(setq VoiceLst (append VoiceLst
(list (vlax-invoke (vla-item Voices i) 'GetDescription))))
(setq i (1+ i))
)
VoiceLst
)
(defun @member+ (x lst /)
(if (vl-member-if '(lambda (y) (wcmatch x y)) lst) x)
)
(defun @Voice&TextInput(voice text / SpeekContent)
(setq SpeekContent (strcat "<VOICE REQUIRED='NAME=" voice "'>" text "</VOICE>"))
)

;**********************Main Program***********************************************
(vl-load-com)
(setq Sapi (vlax-create-object "Sapi.SpVoice"))
(if (not Sapi)(progn
(load "AI_UTILS")(princ "\nWarning: For sound, first install Microsoft Speech SDK 5.1")
(ai_abort "Sapi.SpVoice" (strcat "Warning: No Speech Application Programming Interface"
" with Microsoft Speech" "\n or with the speech module in MS Office."
"\n Suggestion: Install Microsoft Speech SDK 5.1 from http://www.microsoft.com/downloads/"))
))
(setq ~voice (@NoPath (vlax-get-property (vlax-get-property Sapi 'voice) 'Id)))
(cond
((= ~voice "msmary") (setq Voice "Microsoft Mary"))
((= ~voice "msmike") (setq Voice "Microsoft Mike"))
((= ~voice "mssam") (setq Voice "Microsoft Sam"))
(t (setq Voice ~voice))
)
;The voice is normally in Microsoft Speech "Microsoft Mary",
;but in the speech module in MS Office it is "Microsoft Sam".
(@SendKeysN (chr 175) 50);Maximize Volume
(setq ~volume (vlax-get-property Sapi 'Volume))
(vlax-put-property Sapi 'Volume 100)
(@playwav Sapi "notify.wav")
(vlax-invoke Sapi "Speak" (strcat "This is " Voice " speaking in AutoCAD with Sapi.     "
"Sapi is short for Speech Application Programming Interface.     "
"You can also use Sapi for playing Wave soundfiles in AutoCAD.") 0)
(@playwav Sapi "Ringin.wav")
(vlax-put-property Sapi 'Volume 10)
(vlax-invoke Sapi "Speak" "Do you want AutoCAD to speak with a soft volume?" 0)
(vlax-put-property Sapi 'Volume 50)
(vlax-invoke Sapi "Speak" "Do you want AutoCAD to speak with a medium volume?" 0)
(vlax-put-property Sapi 'Volume 100)
(vlax-invoke Sapi "Speak" "Do you want AutoCAD to speak with a loud volume?" 0)
;(vlax-put-property Sapi 'Volume ~volume)
(setq ~rate (vlax-get-property Sapi 'Rate))
(vlax-put-property Sapi 'Rate -8)
(vlax-invoke Sapi "Speak" "Do you want AutoCAD to speak with a slow rate?" 0)
(vlax-put-property Sapi 'Rate 5)
(vlax-invoke Sapi "Speak" "Do you want AutoCAD to speak with a fast rate?" 0)
(vlax-put-property Sapi 'Rate 0)
(vlax-invoke Sapi "Speak" "Do you want AutoCAD to speak with a normal rate?" 0)
;(vlax-put-property Sapi 'Rate ~rate)
(vlax-invoke Sapi "Speak" "Question,         Can I also change the voice?" 0)
(setq VoiceLst (@VoiceList Sapi))
;Gives normally with Microsoft Speech:("Microsoft Mary" "Microsoft Mike" "Microsoft Sam" "Sample TTS Voice")
;The voice "Sample TTS Voice" is not usable in a Sapi object, it is for use in TTSapp.exe and TTSappVB.exe
;Gives normally with Microsoft Office speech module:("Microsoft Sam")
(setq NumVoices(length VoiceLst))
(if (@member+ "Sample TTS Voice" VoiceLst) (setq NumVoices (1- NumVoices)))
(if (> NumVoices 1)
(vlax-invoke Sapi "Speak" (strcat "Yes. We can do this, because there are "
(itoa NumVoices) " usable voices on this system.") 0)
(progn
(vlax-invoke Sapi "Speak" (strcat "No. We can't do this, because there is only one voice on this system.  "
"  Probably, only the speech module of Microsoft Office is installed.") 0)
(princ (strcat "\nWarning: For more voices, first install Microsoft Speech SDK 5.1"
"\nfrom http://www.microsoft.com/downloads/"))))
(if (@member+ "Microsoft Mary" VoiceLst) (setq VoiceMary "Microsoft Mary"))
(if (@member+ "Microsoft Mike" VoiceLst) (setq VoiceMike "Microsoft Mike"))
(if (@member+ "Microsoft Sam" VoiceLst) (setq VoiceSam "Microsoft Sam"))
(if (and VoiceMary VoiceMike VoiceSam)
(progn
(vlax-invoke Sapi "Speak" (@Voice&TextInput VoiceMike
"My name is Microsoft Mike, and I have a question for Sam.") 0)
(vlax-invoke Sapi "Speak" (@Voice&TextInput VoiceMike
"Sam, could you say something about Mary?") 0)
(vlax-invoke Sapi "Speak" (@Voice&TextInput VoiceSam
"My name is Microsoft Sam, and I can say that Mary has a little lamb.") 0)
(vlax-invoke Sapi "Speak" (@Voice&TextInput VoiceMary
"Hi, this is Microsoft Mary and I think that Sam is joking like Mister Thomas Edison.") 0)
(vlax-invoke Sapi "Speak" (@Voice&TextInput VoiceMike
"This information is very interesting, and I would like to thank you all.") 0)
)
(progn
(vlax-invoke Sapi "Speak" "Warning      " 0)
(if (not VoiceMary) (vlax-invoke Sapi "Speak" "There is no Microsoft Mary." 0))
(if (not VoiceMike) (vlax-invoke Sapi "Speak" "There is no Microsoft Mike." 0))
(if (not VoiceSam) (vlax-invoke Sapi "Speak" "There is no Microsoft Sam." 0))
))
(@playwav Sapi "tada.wav")
(vlax-release-object sapi)
(princ)
)
(princ "SpeakCfg.lsp Loaded. \nRun with SPEAKCFG.")

Met vriendelijke groet,
Hofcad CSI

PS Het programma SpeakCfg gebruikt de Speech Application Programming Interface
van Microsoft Speech SDK 5.1 (http://www.microsoft.com/downloads/") of de
speech module van Microsoft Office (Microsoft Word 2002, or Microsoft Excel 2002).

Voor VBA versie zie http://www.cadsite.be/smf/index.php?topic=3653.msg18670#msg18670

Beste CADliefhebbers,

Wie heeft er al gestoeid, via Lisp, met de Visualstyles van AutoCAD 2007?
Met het onderstaande programma krijg ik meer stijlen dan ik had verwacht , nl.
2dWireframe, 3D Hidden, 3dWireframe, Basic, Brighten, ColorChange, Conceptual,
Dim, Facepattern, Flat, FlatWithEdges, Gouraud, GouraudWithEdges, Linepattern,
Realistic en Thicken.
Ik had er met m'n blonde koppie maar 5 verwacht, en waarom zie ik bijv. niet
bij het commando SHADEMODE  de styles Flat, FlatWithEdges, Gouraud en GouraudWithEdges
als ze toch bestaan.


(defun DicSTYLE_LIST (dicname / dics dic iNameList)
(defun tempList2 (theObject / item TmpName)
  (setq theList '())
  (vlax-for item theObject
    (setq TmpName (vla-getname theObject item))
    (setq theList (append (list TmpName) theList))
)
  (setq theList (reverse theList))
);defun
(setq dics (vla-get-dictionaries (vla-get-Activedocument (vlax-get-acad-object))))
(setq dic (vla-item dics dicname))
(setq Namelist (tempList2 dic))
(setq i 0)
(repeat (length Namelist)
(setq DicObj (vla-GetObject dic (nth i Namelist)))
(setq DicEnt (vlax-vla-object->ename DicObj))
(print (entget DicEnt))
(setq i (1+ i))
)
)
(defun c:VisStijl()
(if (> (atoi (substr (getvar "ACADVER") 1 2)) 16)
(DicSTYLE_LIST  "ACAD_VISUALSTYLE")
(print "Werkt alleen bij AutoCAD 2007+"))
)


Heeft iemand al visualstyles aangemaakt met Lisp?

Met vriendelijke groet,
HofCAD CSI

Beste CADliefhebbers,

Men kan na configuratie met de ODBC manager, een Excelfile (*.xls) met het commando DBCONNEXT binnen halen,
waarbij de tabellen altijd Read Only zijn en men overeenkomend met een Accessfile links kan plaatsen.
Mijn vraag is: wordt dit toegepast of gebruikt men in de praktijk voornamelijk Accessfiles?

Met vriendelijke groet,
HofCAD CSI

Geachte CADliefhebbers,

Bij het aanmaken van een block met het commando BLOCK,
kan men aan een block een Description meegeven.
Kan men een Description met een Lispprogramma ook achteraf
toevoegen?

Met vriendelijke groet,

HofCAD CSI.

Beste CADliefhebbers,

Bij http://www.ohyeahcad.com/catalog/webparts.php

vindt U een hele verzameling van allerlei 2D en 3D cad details voor de werktuigbouw.

Groetjes HofCAD CSI