Autolisp

07/02/2019

toggle system variables:

(setvar 'orthomode (- 1 (getvar 'orthomode)))

21/04/2015

;;; ---d2:Speak---
;;; (d2:Speak (strcat "Welcome " (getvar "loginname")))
(defun d2:Speak (str)
(setq sapi (vlax-create-object "Sapi.SpVoice"))
(vlax-invoke sapi "Speak" str 0)
(vlax-release-object sapi)
) ; end defun
;;; makes CAD talk...

13/02/2015

https://autocadtips.wordpress.com/2012/02/28/autolisp-align-viewports-vertically/

Link to This routine compliments the previous routine quite nicely. But this time it aligns viewports vertically. The same tip that I mentioned in the previous tip applies here as well. If you need...

13/02/2015

https://autocadtips.wordpress.com/2012/02/28/autolisp-align-viewports-horizontally/

Link to www.autocadtips.wordpress.com This routine is a gem. It allows you to easily align a viewport to another viewport by snapping to objects within the viewport. It works with viewports that ha...

15/01/2015

Split a point into 3 variables:

(defun splitpoint (punt point / )
(set (read (strcat punt "x")) (car point))
(set (read (strcat punt "y")) (cadr point))
(set (read (strcat punt "z")) (caddr point))
) ; end defun

(splitpoint "pt" (list 0.0 20.0 40.0)) => creates ptx=0.0, pty=20.0 and ptz=40.0.

09/01/2015

Routine voor het plaatsen van losse en samengestelde onderdelen in een tekening t.b.v. materiaallijsten.

28/09/2014

Webtip:
http://www.lisp.nl/index.php/lisproutine/93-vakklik

28/09/2014

Autolisp op WikiPedia: http://nl.wikipedia.org/wiki/AutoLISP

AutoLISP is een programmeertaal, een dialect van Lisp dat hoort bij het CAD-programma AutoCAD. Hiermee is het mogelijk om extra functionaliteit toe te voegen aan het programma. Het is niet opgenomen in het pakket AutoCad LT.

28/09/2014

Tipje: laat lisp spreken...
;;; ---d2:Speak--- = (d2:Speak (strcat "Welcome " (getvar "loginname")))
(defun d2:Speak (str)
(setq sapi (vlax-create-object "Sapi.SpVoice"))
(vlax-invoke sapi "Speak" str 0)
(vlax-release-object sapi)
) ; end defun

28/09/2014

Tipje:
(defun d2=64Bit ()
(vl-load-com)
;; Returns T if CAD version is 64-Bit
;; Example: (d2=64bit)
(if (vl-string-search "64" (getenv "PROCESSOR_ARCHITECTURE"))
T
nil))

27/09/2014

Opzet applicatie voor beursplattegronden.

27/09/2014

Uitslag van een afgeknotte kegel.