Tanım 
Basit bir program ile kullanıcı tarafından girilen iki noktayı kullanarak doğru çizmeyi amaçlıyoruz.
                            
                            
                         
Program 
(defun c:cizim ()										;1
     (terpri)								;2
     (setq n1 (getpoint "doğru için başlangıç noktası giriniz"))	;3
     (terpri) 								;4
     (setq n2 (getpoint "doğru için bitiş noktası giriniz   "))		;5
     (terpri)								;6
     (command "line" n1 n2 "")						;7
) 
Açıklamalar 
1	defun c: fonksiyonu ile cizim isimli komut tanımlanır.
2 	verilecek mesaj için komut satırı temizlenir.
3	getpoint fonksiyonuyla  "doğru için başlangıç noktası giriniz " mesajı ile koordinat (x,y,z) girerek veya çizim alanına tıklayarak n1 değişkenine nokta bilgisi girilmesi sağlanır.
4	verilecek mesaj için komut satırı temizlenir.
5	Kullanıcı tarafından n1 değişkeninde olduğu gibi n2 değişkenine de nokta bilgisi girmesi sağlanır.
6	verilecek mesaj için komut satırı temizlenir.
7 	command fonksiyonu AutoCAD komutlarının LISP içerisinde kullanılmasını sağlar. "line" n1 n2; n1 den  n2 ye doğru çizilmesini sağlar "" ise n2 den sonra başka nokta bilgisi olmadığını yani doğru çiziminin bittiğini gösterir.