CADian’da
Lisp Kullanımı

Lisp dosyası yüklendiğinde içindeki fonksiyonlar CADian komut satırından çağrılabilir hale gelir. Çalıştırmak için komut satırına fonksiyon adını yazıp Enter’a basın — tıpkı LINE veya TRIM gibi.

401 paketindeki komutları doğrudan yazın:
SDIM         ← Akıllı ölçülendirme
WW           ← Akıllı TRIM
CLM          ← Merkez çizgisi
TAG          ← Parça numarası
MI2          ← Çift yönlü mirror

İki yöntem var:

Yöntem 1 — acad.pgp dosyası (önerilen)

Araçlar → Özelleştir → Edit Program Parameters. Açılan dosyaya satır ekleyin:

Format: KISAYOL, *KOMUT

SD,     *SDIM        ← SD tuşu → SDIM komutunu çalıştırır
CL,     *CLM         ← CL → Merkez çizgisi
TG,     *TAG         ← TG → Parça numarası

Kaydet → komut satırında REINIT → PGP File seçin → OK. Kısayol hemen aktif olur.

Yöntem 2 — CUI editörü

CUI komutu → Keyboard Shortcuts → New Shortcut → komut adını girin, tuş kombinasyonunu atayın.

Lisp rutini çalışırken komut satırında istemler görüntüler. Rutine göre:

• Nokta seçimi: Ekranda tıklayın veya koordinat yazın
• Nesne seçimi: Nesnelere tıklayın, Enter ile seçimi bitirin
• Sayı/metin girişi: Komut satırına yazın, Enter ile onaylayın
• Seçenekler: Köşeli parantez içindeki harfe basın — örneğin [Yes/No] için Y veya N
• İptal: Her zaman ESC ile rutinden çıkabilirsiniz

Her iki dosya da CADian’ın Support klasöründe olmalıdır:

Startup Suite grafik arayüzden yönetilen otomatik yükleme listesidir:

load fonksiyonu kullanılır. Dosya yolu tam veya göreli olarak verilebilir:

; Tam yol ile:
(load "C:/CADian/CADian 2026/Support/rutinlerim.lsp")

; CADian Support klasöründeyse dosya adı yeterli:
(load "rutinlerim.lsp")

; Yükleme hatası olursa nil dönsün (program devam etsin):
(load "rutinlerim.lsp" nil)

Ne anlama gelir: CADian bu isimde bir fonksiyon tanımı bulamıyor. Ya Lisp dosyası yüklenmemiş ya da fonksiyon adı yanlış yazılmış.

Çözüm adımları:

• APPLOAD ile dosyanın yüklü olduğunu doğrulayın
• Dosyanın .lsp uzantılı olduğunu kontrol edin (.lsp.txt gibi çift uzantı olmamalı)
• Lisp dosyasını metin editörüyle açın, (defun c:SDIM satırının tam ve doğru olduğunu kontrol edin
• Dosya yüklenirken sözdizimi hatası oluşmuşsa fonksiyon tanımlanmaz — yükleme sırasında hata mesajı var mı bakın

Ne anlama gelir: Fonksiyon sayı beklerken nil (boş) değer aldı. Genellikle kullanıcının ESC ile girişi iptal etmesi veya geçersiz bir nesne seçmesiyle oluşur.

Kullanıcı açısından: Rutin bir nesne veya koordinat bekliyorken siz başka bir şey yaptınız ya da iptal ettiniz. Komutu tekrar çalıştırın ve rutinin istediği adımları sırasıyla takip edin.

Geliştirici açısından: Giriş fonksiyonlarının dönüş değerini if ile kontrol edin:

(setq pt (getpoint "\nBir nokta seçin: "))
(if (null pt)
  (progn (princ "\nİptal edildi.") (exit))
  ; pt geçerliyse devam et
)

Ne anlama gelir: Lisp sözdiziminde parantez dengesi bozuk. Her açılan parantezin kapatılması gerekir.

Çözüm: VLISP editöründe dosyayı açın (bkz. VLISP bölümü). Editör eşleşmeyen parantezleri otomatik vurgular. Alternatif olarak iyi bir metin editörü (VS Code, Notepad++) kullanın — bunlar da parantez dengesini gösterir.

; Yanlış — parantez eksik:
(defun c:test ()
  (setq x 5
  (princ x)
)  ← defun'u kapatıyor ama setq kapanmamış

; Doğru:
(defun c:test ()
  (setq x 5)   ← setq kapatıldı
  (princ x)
)

Ne anlama gelir: Rutin içinde (exit) veya (quit) çağrıldı ya da kullanıcı ESC ile çıktı. Genellikle kasıtlı — hata değil.

Eğer kasıtsız çıkıyorsa rutinin hangi noktada (exit) çağırdığını VLISP editöründe izleyin.

Ne anlama gelir: .dcl dosyası bulunamıyor veya dialog id yanlış.

Kontrol edilecekler:

• .dcl dosyasının .lsp dosyasıyla aynı klasörde veya Support klasöründe olduğundan emin olun
• Lisp içindeki (load_dialog "dosya.dcl") satırındaki dosya adının doğru olduğunu kontrol edin
• (new_dialog "dialog_adi" dcl_id) satırındaki dialog adının .dcl dosyasındaki tanımla eşleştiğini doğrulayın

İki yol:

• Komut satırına VLISP veya VLIDE yazın
• Araçlar → AutoLISP → Visual LISP Editor

VLISP editörü ayrı bir pencere olarak açılır. Mevcut .lsp dosyalarını açabilir veya yeni dosya oluşturabilirsiniz.

VLISP penceresinin alt kısmındaki Console bölmesine Lisp ifadesi yazın ve Enter’a basın. Sonuç hemen görünür:

_$ (+ 3 5)
8

_$ (getvar "CLAYER")
"0"   ← aktif katmanın adını döndürür

_$ (command "ZOOM" "E")
← CADian'da Zoom Extents çalıştırır

_$ (setq lst (entsel "\nBir nesne seçin: "))
← bir nesne seçmenizi bekler, entity listesi döner

CADian komut satırından çağrılabilen bir rutin yazmak için defun c: yapısını kullanın — c: ön eki komut satırından çağrılabilir anlamına gelir:

; Kullanıcıdan iki nokta alıp aralarına çizgi çizen rutin
(defun c:CIZGI2 ( / p1 p2 )   ← "/" sonrası yerel değişkenler

  (setq p1 (getpoint "\nBaşlangıç noktası: "))
  (if (null p1) (exit))           ← ESC kontrolü

  (setq p2 (getpoint p1 "\nBitiş noktası: "))
  (if (null p2) (exit))

  (command "LINE" p1 p2 "")    ← LINE komutunu çalıştır
  (princ)                          ← temiz çıkış
)

Bu dosyayı cizgi2.lsp olarak kaydedin, APPLOAD ile yükleyin ve komut satırına CIZGI2 yazarak çalıştırın.

Kullanıcıdan giriş alma

(getpoint "\nNokta: ")       ← nokta seçimi → (x y z) listesi
(getdist  "\nMesafe: ")       ← mesafe → sayı
(getangle "\nAçı: ")         ← açı → radyan
(getstring "\nMetin: ")      ← metin → string
(getint   "\nSayı: ")         ← tam sayı
(getreal  "\nDeğer: ")        ← ondalık sayı
(entsel   "\nNesne: ")        ← nesne seçimi → (entity nokta)
(ssget    "\nNesneler: ")     ← çoklu seçim → selection set

Sistem değişkeni okuma/yazma

(getvar "CLAYER")           ← değer oku
(setvar "CLAYER" "Duvar")   ← değer yaz
(getvar "DIMSCALE")         ← ölçü ölçeğini oku

Nesne özellikleri

(entget ent)        ← nesnenin özellik listesini al
(entmod lst)        ← nesneyi güncelle
(entmake lst)       ← yeni nesne oluştur
(entdel ent)        ← nesneyi sil
(ssname ss 0)       ← selection set'ten ilk nesneyi al
(sslength ss)       ← seçimdeki nesne sayısı

Hayır. Startup Suite’e eklediğiniz dosyalar her oturumda otomatik yüklenir. 401 komut paketi kurulum sırasında zaten Startup Suite’e eklenir — elle yüklemenize gerek yoktur.

Standart Lisp rutinleri güncelleme sonrası da çalışmaya devam eder. Ancak Startup Suite listesi ve bazı profil ayarları sıfırlanabilir. Güncelleme sonrası şunu kontrol edin: APPLOAD → Startup Suite — dosyalarınızın listede hâlâ olup olmadığına bakın. Yoksa yeniden ekleyin.

Lisp yorumlanan bir dildir — çok sayıda nesneyi döngüyle işleyen rutinler binlerce nesnede yavaşlayabilir. Pratik öneriler:

• Çizimi yenilemekten (command "REGEN") kaçının — rutin bitmeden çağırmayın
• Döngü içinde redraw çağrılarını minimumda tutun
• Çok büyük selection set’lerle çalışıyorsanız REGENMODE 0 yapın, işlem bitince geri alın
• 1000+ nesne üzerinde rutin çalıştırılacaksa süre normaldir — kullanıcıya (princ "\nİşleniyor...") ile bilgi verin

Standart AutoLISP fonksiyonları kullanan rutinlerin büyük çoğunluğu doğrudan çalışır. Dikkat edilecekler:

• ActiveX / COM çağrıları (vla- ile başlayanlar) kısmi desteklidir — bazı fonksiyonlar çalışmayabilir
• ARX uygulamalarına bağımlı fonksiyonlar çalışmaz
• Menü ve araç çubuğu manipülasyonu yapan rutinler arayüz farkı nedeniyle uyarlanması gerekebilir

Geçiş sırasında VLISP Console’da test etmenizi öneririz.