intellicad'e özel lisp ve font yükleyince sorunlar oluşuyor.
bunu nasıl çözerim.
saygılar...

Mesela?

1. Yeni bir çizim açıp kendi özel lispimi yükledikten belli bir süre sonra (bir kaç komut sonra) endpoint,intersection vs. işlevsiz hale geliyor. esnaptan düzeltip tekrar deniyorum ama olmuyor.
2. Control+c, Control+V komutları sağlıklı çalışmıyor. Copy yaparken objenin bağlantı yerini seçemiyor. dolayısıyla yapıştırırken hiç ilgisi olmayan yerlere atıyor objeleri.
3. Undo sağlıklı çalışmıyor. genellikle sapıtıyor. Bir önceki komutu değil, daha önceki komutları iptal ediyor.

Bu sorunları çözmeme yardımcı olursanız sevinirim.

Not: IntelliCAD Yeniden yüklenirse. Yeniden KULLANMA ŞİFRESİ ALMAMIZ GEREKİYORMU? YOKSA ÖNCEKİ GÖNDERDİĞİNİZ ŞİFRE GEÇERLİMİ?

SELAMLAR

Formdaki aramadan Undo ve redo komutları ile ilgili problemlerin fazlaca olduğunu gördüm. Umarım 6.2 sürümünde giderilir.
Şimdi 6.0 sürümünü kullanıyoruz.
Kolay gelsin.
selamlar.

1. Kendi lisp programınızda özellikle hangi fonksiyondan sonra bu problemin oluştuğuna dikkat edebilir misiniz? Veya lsp dosyanızı incelememiz için bize de gönderebilirsiniz.
2. Klavyeden LOGFILEMODE yazıp değerini ON yapın. Programın kurulum klasöründe icad.log dosyası oluşacaktır. Şu halde hatalı bir kopyalama işlemi yaptırıp bize bu dosyayı gönderiniz.
3. UNDO için bkz: [url]http://www.adeko.com.tr/forum/topic.asp?TOPIC_ID=1408[/url]

IntelliCAD yeniden yüklenirse yeni kullanma şifresi gerekmez. Ancak konfigürasyonda yapacağınız değişikliklerden önce lütfen irtibata geçiniz.

;;KULLANDIĞIMIZ LİSPİ OLDUĞU GİBİ GÖNDERİYORUM.
İLGİNİZE ŞİMDİDEN TEŞEKKÜRLER.

(defun C:CHT (/ p l n e os as ns st s nsl osl sl si chf chm olderr)
(setq olderr *error* ; Initialize variables
*error* chgterr
chm 0)
(setq p (ssget)) ; Select objects
(if p (progn ; If any objects selected
(while (= 0 (setq osl (strlen (setq os (getstring t "\nOld string: ")))))
(princ "Null input invalid")
)
(setq nsl (strlen (setq ns (getstring t "\nNew string: "))))
(setq l 0 n (sslength p))
(while (< l n) ; For each selected object...
(if (= "TEXT" ; Look for TEXT entity type (group 0)
(cdr (assoc 0 (setq e (entget (ssname p l))))))
(progn
(setq chf nil si 1)
(setq s (cdr (setq as (assoc 1 e))))
(while (= osl (setq sl (strlen
(setq st (substr s si osl)))))
(if (= st os)
(progn
(setq s (strcat (substr s 1 (1- si)) ns
(substr s (+ si osl))))
(setq chf t) ; Found old string
(setq si (+ si nsl))
)
(setq si (1+ si))
)
)
(if chf (progn ; Substitute new string for old
(setq e (subst (cons 1 s) as e))
(entmod e) ; Modify the TEXT entity
(setq chm (1+ chm))
))
)
)
(setq l (1+ l))
)
))
(princ "Changed ") ; Print total lines changed
(princ chm)
(princ " text lines.")
(terpri)
(setq *error* olderr) ; Restore old *error* handler
(princ)
)


(DEFUN C:CHS ()
(setvar "cmdecho" 1)(setq p (ssget))
(if p (progn
(setq ost (strcase (getstring "\nOld style: ")))
(setq nst (strcase (getstring "\nNew style: ")))
(setq l 0 n (sslength p))
(while (< l n)
(setq e (cdar (entget (ssname p l))))
(if (= "TEXT" (setq g (cdr (assoc 0 (entget e)))))
(progn
(if (= ost (cdr (setq f (assoc 7 (entget e)))))
(command "change" e "" "" "" nst "" "" ""))))
(setq l (1+ l)))))(setvar "cmdecho" 1) (princ)
)
(defun C:CHH ()
(setvar "cmdecho" 1)(setq p (ssget))
(if p (progn
(setq oth (getreal "\nOld text height: "))
(setq nth (getreal "\nNew text height: "))(setq l 0 n (sslength p))
(while (< l n)
(setq e (cdar (entget (ssname p l))))
(if (= "TEXT" (cdr (assoc 0 (entget e))))
(progn
(if (= oth (cdr (assoc 40 (entget e))))
(command "change" e "" "" "" "" nth "" ""))))
(setq l (1+ l)))))(setvar "cmdecho" 1)(princ)
)

(DEFUN C:DS nil (COMMAND "dist" "nea" "\\" "perp" "\\"))
(DEFUN C:ON nil (COMMAND "LAYER" "ON" "*" ""))
(DEFUN C:OFF nil (COMMAND "LAYER" "OFF" "*" "" ""))

(defun c:ORT (/ pt dpt)
(setq pt (getpoint "\nSol alt kose: "))
(setq dpt (getcorner pt "\nSag ust kose: "))
(setq x1 (car pt))
(setq y1 (cadr pt))
(setq x2 (car dpt))
(setq y2 (cadr dpt))
(setq x (/ (- x2 x1) 2))
(setq y (/ (- y2 y1) 2))
(setq x (+ x x1))
(setq y (+ y y1))
(setq xy (list x y))
(command "dtext" "m" xy "0")
)
(defun c:yer (/ a b c d)
(prompt "First selection set:")
(setq a (ssget))
(prompt "Second selection set:")
(setq b (ssget))
(setq c (getpoint "\nFirst selection base point: "))
(setq d (getpoint "\nSecond selection base point: "))
(command "move" a "" c d)
(command "move" b "" d c)
)
(defun C:ctt ()
(setq OT (entsel "SELECT OLD TEXT:"))
(setq NT (getstring "\nNEW TEXT: "))
(setq b (car OT))
(setq e (entget b))
(setq s (cdr (setq as (assoc 1 e))))
(setq e (subst (cons 1 nt) as e))
(entmod e)
)
(defun c:DED(/ pt dpt nt nx ny nq x0 y0 x2 y2 x1 y1 x4 y4 xy1)
(command "osnap" "int")
(setq pt (getpoint "\nSol alt kose: "))
(setq dpt (getcorner pt "\nSag ust kose: "))
(setq nt (getstring "\nFloresan tipi: "))
(setq nx 1)
(setq ny 1)
(setq nq 0)
(setq x0 (car pt))
(setq y0 (cadr pt))
(setq x2 (car dpt))
(setq y2 (cadr dpt))
(setq x1 (/ (- x2 x0) (* 2 nx)))
(setq y1 (/ (- y2 y0) (* 2 ny)))
(setq x4 (* x1 2))
(setq y4 (* y1 2))
(setq xy1 (list (+ x1 x0) (+ y1 y0)))
(command "insert" nt xy1 "1" "1" nq)
(if (> nx 1) (if (> ny 1) (command "array" "la" "" "r" ny nx y4 x4)))
(if (= nx 1) (if (> ny 1) (command "array" "la" "" "r" ny nx y4)))
(if (= ny 1) (if (> nx 1) (command "array" "la" "" "r" ny nx x4)))
(command "osnap" "none")
)

(DEFUN C:d (/ E N K )
(SETQ SS(SSGET))
(IF SS (PROGN
(SETQ E(CAR(ENTSEL "Donusecek LAYER gosterin : ")))
(IF E (PROGN
(SETQ E (ENTGET E))
(SETQ N (CDR (ASSOC 8 E)))
(COMMAND "CHANGE" SS "" "PROP" "LAYER" N "")
(SETQ K (CDR (ASSOC 6 E)))
(COMMAND "CHANGE" SS "" "PROP" "LT" K )
))
))
)
(DEFUN C:CT (/ E N )
(SETQ SS(SSGET))
(IF SS (PROGN
(SETQ E(CAR(ENTSEL "Donusecek yaz'yi gosterin : ")))
(IF E (PROGN
(SETQ E (ENTGET E))
(SETQ N (CDR (ASSOC 8 E)))
(COMMAND "CHANGE" SS "" "PROP" "LAYER" N "")
(SETQ N (CDR (ASSOC 7 E)))
(COMMAND "CHANGE" SS "" "" "" N "" "" "")
))
))
)

(DEFUN C:S (/ E N)
(SETQ E (CAR (ENTSEL " Kullanmak istediginiz layer'i belirtin : ")))
(IF E (PROGN
(SETQ E (ENTGET E))
(SETQ N (CDR (ASSOC 8 E)))
(COMMAND "LAYER" "SET" N "")
))
)
(DEFUN C:D (/ SS E)
(PRINC " bakma degişecek objeni belirt CANIM : ")
(SETQ SS(SSGET))
(IF SS (PROGN
(COMMAND "CHANGE" SS "" "PROP" "LAYER" (GETVAR "CLAYER") "")
))
)
(DEFUN C:of (/ SS E)
(SETQ E(CAR(ENTSEL "\nLayer'i off edilecek obje secin ")))
(IF E (PROGN
(SETQ E (ENTGET E))
(SETQ SS (CDR (ASSOC 8 E)))
))
(COMMAND "LAYER" "off" SS "")
)

(DEFUN C:FR (/ SS E)
(SETQ E(CAR(ENTSEL "\nLayer'i donacak objeyi secin ")))
(IF E (PROGN
(SETQ E (ENTGET E))
(SETQ SS (CDR (ASSOC 8 E)))
))
(COMMAND "LAYER" "f" SS "")
)

(defun c:bl()(command "Block")(princ))
(defun c:cf()(command "chamfer")(princ))
(defun c:cp()(command "chprop")(princ))
(defun c:ch()(command "CHANGE")(princ))
(defun c:cI()(command "circle")(princ))
(defun c:c()(command "select" "auto" pause)
(command "copy" "p" "" "m")(princ))
(defun c:dd()(command "DDATTE")(princ))
(defun c:dt()(command "Dtext")(princ))
(defun c:de()(command "ddedit")(princ))
(defun c:e()(command "Erase")(princ))
(defun c:ew()(command "Extend")(princ))
(defun c:er()(command "Explode")(princ))
(defun c:f()(command "Fillet")(princ))
(defun c:F0()(command "Fillet" "r" "0")(command "fillet")(princ))
(defun c:F1()(command "Fillet" "r" "10")(command "fillet")(princ))
(defun c:h()(command "Hatch")(princ))
(defun c:i()(command "Insert")(princ))
(defun c:l()(command "Line")(princ))
(defun c:la()(command "Layer")(princ))
(defun c:li()(command "List")(princ))
(defun c:LT()(post)(command "LINETYPE")(princ))
(defun c:II()(setq ck nil)(while (null ck)(setq ck (car (entsel "Mevcut blok'u tıklayın: "))))(setq cbname (cdr (assoc 2 (entget ck))))(command "insert" cbname))
(defun c:m()(command "Move")(princ))
(defun c:mi()(command "Mirror")(princ))
(defun c:SEL()(post)(command "SELECT" "auto")(princ))
(defun c:o()(command "parallel")(princ))
(defun c:P()(command "_RTPan")(princ))
(defun c:pe()(command "Pedit")(princ))
(defun c:pl()(command "Pline")(princ))
(defun c:po()(command "Point")(princ))
(defun c:r()(command "Redraw")(princ))
(defun c:re()(command "Regenall")(princ))
(defun c:rt()(command "Rotate")(princ))
(defun c:bR()(command "break")(princ))
(defun c:sc()(command "Scale")(princ))
(defun c:sd()(command "Stretch" "c")(princ))
(defun c:qs()(command "Qsave")(princ))
(defun c:t()(command "Trim")(princ))
(defun c:w()(command "wblock" "~")(princ))
(defun c:z()(command "Zoom")(princ))
(defun c:za()(command "Zoom" "a")(princ))
(defun c:zd()(command "Zoom" "d")(princ))
(defun c:ze()(command "Zoom" "e")(princ))
(defun c:zW()(command "Zoom" "w")(princ))
(defun c:zv()(command "Zoom" "v")(princ))
(defun c:zP()(command "Zoom" "P")(princ))
(defun c:MC()(command "MATCHPROP")(princ))
(defun c:lts()(command "ltscale")(princ))
(defun c:PU()(command "PURGE"))
(defun pre ()

(defun c:ct (/ st )
(princ "\Degisecek tek kelime yazy belirtin...: ")
(setq st (ssget))
(setq n 0)
(setq dist (sslength st))
(while (< n dist)
(setq st1 (ssname st n))
(setq name (cdr(assoc 0 (entget st1))))
(if (= "TEXT" name) (test))
(setq n (+ 1 n))
)
)
(defun test ( )
(setq tex (read(cdr(assoc 1(entget st1)))))
(princ "\nOld text..: ")
(princ tex)
(setq newt (cons '1 (getstring "\nNew text.?.: ")))
(setq st2 (subst newt (assoc 1(entget st1)) (entget st1)))
(entmod st2)
)

;; CONTROL+C CONTROL+V İLE İLGİLİ


-------------------------------------------------------------
IntelliCAD Log file begin Fri Feb 03 13:51:04 2006 |
-------------------------------------------------------------
_COPYCLIP
:
: _COPYCLIP
100609.3374,-60225.0602
Select entities to copy to the clipboard:
99371.1963,-60669.5211
Opposite corner:
Entities in set: 12

Select entities to copy to the clipboard:

_PASTECLIP;(sssetfirst (ssget "_P")(ssget "_P"))
:
: _PASTECLIP
: <Selection set: 100984440>
:
^C
Cancel
_COPYCLIP
:
: _COPYCLIP
P
Select entities to copy to the clipboard: P

Entities in set: 12

Select entities to copy to the clipboard:

_PASTESPEC
:
: _PASTESPEC
_DDINSERT
:
:
: _DDINSERT
106085.7308,-64050.5988
Select insertion point:

Z : Z

E Zoom: In/Out/All/Center/Extents/Left/Previous/Right/Window/<Scale (nX/nXP)>: E

:
^C
_EXIT
Cancel
:

Kopyala&Yapıştırda bir hata yok.

Sadece AutoCAD'deki mantığı devam ettirmeye çalıştığınız için hata varmış gibi algılıyorsunuz.

IntelliCAD'de kopyala&yapıştır işlemi nesneleri kaynak dosyadaki ile tamamen aynı koordinatlara kopyalar.

İki farklı dosya arasına nesne taşıma veya kopyalama yapacağınız zaman, bildiğiniz <b>KOPYALA </b>ve <b>TAŞI </b>(COPY & MOVE) komutlarını kullanın. AutoCAD'dakinden ileri olarak IntelliCAD'de iki farklı çizim arasında bile kopyalama ve taşıma işlemleri yapılabilir.

Bu konunun bahsi daha önce geçti. (<i>Bu cümleyi maalesef çok sık yazıyoruz</i>).