AutoCAD 2025'te entmakex çalışmıyor

[Riccardo_Ferrari]

Autocad 2025'te varolmuyor (bug?)
İyi çalışan bir lisp var, sonra, otocad 2025'i kurduktan sonra. Hata ile 1.1 kaza: kötü tartışma türü: lentityp nil"
yorgunlukla beraber yorgunluk Entmakex'in hata nedeni olduğunu keşfettim, i.e., non-graphic bir varlık yaratmak yerine "nil" döndürür.
Burada kod:

(isimdobjdict)
"acad_image_dict"
(sing)
(list)
(Cons 0 "dictionary")
100 "acdbdictionary"
(cons 280 0)
281 1)
)
)
)

Dikkat için teşekkürler

 

[GP.]

acad2025 kullanmıyor Size yardım edemiyorum, entmakex ipotizzo'dan daha fazlası, sözlüğünün yaratılmasının farklı bir şekilde yönetilmelidir.
Sadece merakla, anahtar ve nesneler olmadan bir sözlük oluşturmak için neye ihtiyacınız var?
Mağaza ve kullanım için bir şey olduğunda yaratamaz (vlax-ldata-put....??

 

[Riccardo_Ferrari]

acad2025 kullanmıyor Size yardım edemiyorum, entmakex ipotizzo'dan daha fazlası, sözlüğünün yaratılmasının farklı bir şekilde yönetilmelidir.
Sadece merakla, anahtar ve nesneler olmadan bir sözlük oluşturmak için neye ihtiyacınız var?
Mağaza ve kullanım için bir şey olduğunda yaratamaz (vlax-ldata-put....??

Cevap için teşekkür ederiz.

Her ikinize de genel olarak teşekkür ederim, çünkü İtalyan'da olmak kendimi daha iyi ifade etmeme izin veriyor, bu benim parçamda daha az zorlukla ve çeviri hataları için yanlış anlaşılma korkusuyla.

Bu yüzden bana “ anahtarları ve nesneler olmadan bir söz oluşturmak için ne yapmanız gerekiyor” diye soruyorsunuz. Hiçbir fikrim yok, sözlüklerin, anahtarların ve nesnelerin ne olduğunu bile bilmiyorum.

jpeg görüntülerini bir dwg'ye ithal eden bir kaynağa ihtiyacım vardı, komuta etmek ve -image veya -attach, genel olarak bir lisp içinde geri çağırmaktan kaçınmak istemedim.

Bu kaynağı buldum ve programıma koydum, bu da her şeyi başka i.e. encapsated bir dosyadan alıntı yapıyor, onlara bir yol, taban ve yüksekliğe bir şekilde ölçek verin, dwg ile uyumlu bir şekilde genişletin, tasarımın geri kalanına atıfta bulunarak, lamer'den çok şey (tüm şeyler söylemek için)

telif hakkı meselelerini yapmadım, çünkü kaynak bir yerde özgürdü, ancak özellikle programlarım onları satmadı (ama onları kim istiyor ...) ve onları herhangi bir şekilde dağıtmadı. Ayrıca onların dost stüdyolarını kullanabilirler, ancak sık sık yapmazlar.

Tüm kaynağı yayınlayacağım, bu benim küçük değişikliklerden bazılarıyla ilgili bulduğum şey, ama şimdi halka açık bir forumda olduğumuz gibi telif hakkı problemine yer verdim. Ne konuşuyorsun? Nerede? Her şeyde uzman değilim.

copyright ya da autocad 2022'de çalışmıyor ve hala bu sürümin dönüştüğü makineler üzerinde çalışıyor, sonra stüdyonun bir bilgisayarı sona erdi, değiştirildi ve zaten yeni sürümü koyduğumuz her şeyi yeniden yapılandırmaya zorlandık ... sonra her zamanki programın otocad 2022'de ve 2025'te gitmesi sürpriz oldu.

Selamlar

Zengin zengin

 

[dsw]

Sadece hiçbir şey göz ardı etme, otocad 2025 tam veya lt ile karşılaştığınız sorun?

Çeşitli alternatiflere sahip olduğunuz kodun telif hakkı hakkında:

1. Bunu ve kullanıcıları (uzmanlar), kodun "copyright" tarafından ele alınıp, bir moderatöre veya site yöneticisine çıkarılmasını talep ederseniz (muhtemelen mümkün olan sınırları içinde) belirlemenize yardımcı olabilir.
2. Bunu kod başında sorumsuz bir açıklama ile yayınlıyorsunuz ( kodun yasal sahibi.... Bunu bilmiyorum...blablablablablablabla)
3. Yayından önce özel olarak paylaş (Eğer istersen küçük bir arama yapabilirim)

... İnanılmaz ve mümkün

 

[Riccardo_Ferrari]

Sadece hiçbir şey göz ardı etme, otocad 2025 tam veya lt ile karşılaştığınız sorun?

Çeşitli alternatiflere sahip olduğunuz kodun telif hakkı hakkında:

1. Bunu ve kullanıcıları (uzmanlar), kodun "copyright" tarafından ele alınıp, bir moderatöre veya site yöneticisine çıkarılmasını talep ederseniz (muhtemelen mümkün olan sınırları içinde) belirlemenize yardımcı olabilir.
2. Bunu kod başında sorumsuz bir açıklama ile yayınlıyorsunuz ( kodun yasal sahibi.... Bunu bilmiyorum...blablablablablablabla)
3. Yayından önce özel olarak paylaş (Eğer istersen küçük bir arama yapabilirim)

... İnanılmaz ve mümkün

 

[Riccardo_Ferrari]

Eski dosyalarımda ve nette bir arama yaptım. Bu, 2008 yılında bir forumda yayınlanan bir kod parçası, daha iyi tanımlanmamış, hala online:

www.theswamp.org/index.php?topik=23762.

http://www.theswamp.org/index.php?topik=23762.new

Zor kısmı içeriyor olsa bile, bu kod işe yaramayacak olsa bile, o zamanlar yaptığım ve bugün eklediğim bir test kodu üretiyordum.

Test-image.lsp, lütfen deneyin.

Autocad 2022'de, otocad 2025'te ise bitki.

2025'te böceklerin varlığının geri alındı olduğuna inanıyorum... belirsiz ama nasıl çıkıyor?

I'm talking about autocad 2025 full

Dikkatiniz için teşekkür ederiz

Zengin zengin

 

[rpor66]

(dxf (num ent)
(cdr (assoc num ent)
)

Dosyanıza eklemek için My_dxf fonksiyonunun tanımı eksik.
Bunu otocad 2024 bitki3d üzerinde test ettim ve işe yarıyor, ne yazık ki 2025 ile bir tane yok.

 

[Riccardo_Ferrari]

(dxf (num ent)
(cdr (assoc num ent)
)

Dosyanıza eklemek için My_dxf fonksiyonunun tanımı eksik.
Bunu otocad 2024 bitki3d üzerinde test ettim ve işe yarıyor, ne yazık ki 2025 ile bir tane yok.

Raporlama için birçok teşekkürler. Doğru ve yerini değiştiriyorum

Ayrıca başka bir hata da vardı, temel kaynağın yazarı “treddin” yazdığım gibi değil, “t.willey” diye cevap verdi ve yanıt verdi.

Selamlar

Zengin zengin

ps. Postayı hatayla değiştiremem, ama bu belki de kimse henüz okumadı. Burada doğrudan lisp

 

[rpor66]

(defun c:demo (/ acadobj doc imagefile inimage)
(setq acadobj (vlax-get-acad-object)
Doc (vla-get-activedocument acadobj)
)
(setq imagefile (gerekli bir görüntüyü sildi: "" "jpg; KLM;tif;gif;bmp;tga;pcx" 8)
(setq my_point (getpoint "\nselect an insertion point: ")))
(setq my_xlato (gerçekten " x tarafının uzunluğu: "))
(setq inimage
(vlax-invoke
(vlax-get (vla-get-activelayout doc) 'block)
‘addraster
imagefile
My_point
My_xlato;<- genişlik
0.0 0.0 0.0
)
)
(vla-put-name inimage imagefile) ;<- name
(vla-update inimage)
)

Eğer çalışırsa, dosyanızı yapan her şeyi yapar, ancak daha az kod satırlarında.

 

[Riccardo_Ferrari]

(defun c:demo (/ acadobj doc imagefile inimage)
(setq acadobj (vlax-get-acad-object)
Doc (vla-get-activedocument acadobj)
)
(setq imagefile (gerekli bir görüntüyü sildi: "" "jpg; KLM;tif;gif;bmp;tga;pcx" 8)
(setq my_point (getpoint "\nselect an insertion point: ")))
(setq my_xlato (gerçekten " x tarafının uzunluğu: "))
(setq inimage
(vlax-invoke
(vlax-get (vla-get-activelayout doc) 'block)
‘addraster
imagefile
My_point
My_xlato;<- genişlik
0.0 0.0 0.0
)
)
(vla-put-name inimage imagefile) ;<- name
(vla-update inimage)
)

Eğer çalışırsa, dosyanızı yapan her şeyi yapar, ancak daha az kod satırlarında.

İşiniz için çok teşekkür ederim, birkaç ek yaptım:

Görüntünün katmanı, benim_make_kat fonksiyonu aracılığıyla, temel programlarımın bir parçası olan bu sefer ekledim

Katman yapmak zorunda olduğum şeye temeldir. Ayrıca ihtiyaç duymadığım bir düğüm ekledim (belki 0/90) ama bir tane 0.0 gördüm ...

Ayrıca küçük bir otobüs var, i.e. eğitim (vla-update inimage) etkiler vermiyor. Bulucu listesini güncellemek için gerekli olduğunu hayal ediyorum. Ancak her şey her neyse çalışır ve el ile yeniden şarj edebilirsiniz. Onu en az zarif şekilde değiştirdim

(command "-image" "reload" (vl-filename-base imagefile)

vl veya vla veya vlax talimatları genellikle geleneksel olanlardan çok daha sentetik, ancak (vl-load-com) gerektirir. Yazdığınız program gerekli değil ama hala vl talimatları kullanıyor, fark nerede?

Tekrar teşekkürler

Selamlar

Zengin zengin

 

[Riccardo_Ferrari]

unuttum...
vl ile ithalat yapan bir problem, atanan adın rastgele olmasıdır. Doğru şekilde yeniden adlandırılmışsınız, ancak isim zaten bir hata ortaya çıkarsa. İptal etse bile, ancak yüklü değil.
Adının mevcut olup olmadığını belirlemek için basit bir işlev var mı? Bu yüzden adı-1 olarak adlandırmak, adı-2... vs.
Basit söylüyorum çünkü tüm isimleri bir süre döngüsü ile okuyan bir kaynak buldum, sentetik bir işlev olup olmadığını merak ediyorum.
Dikkatiniz için teşekkür ederiz.
Merhaba.
Zengin adam.

 

[rpor66]

vl veya vla veya vlax talimatları genellikle geleneksel olanlardan çok daha sentetik, ancak (vl-load-com) gerektirir. Yazdığınız program gerekli değil ama hala vl talimatları kullanıyor, fark nerede?

Açıkçası bunu zaten yapan başka bir lisp var.
Geri kalanı için, döngüden daha iyi bir şey bulduğumda, seni alacağım.
Yemin ederim

 

[rpor66]

(defun c:insrasterimage (/ acadobj doc imagefile inimage)
(setq acadobj (vlax-get-acad-object)
Doc (vla-get-activedocument acadobj)
)
(setq imagefile (gerekli bir görüntüyü sildi: "" "jpg; KLM;tif;gif;bmp;tga;pcx" 8)
(setq my_point (getpoint "\nselect an insertion point: ")))
(setq my_xlato (gerçekten " x tarafının uzunluğu: "))
(setq inimage
(vlax-invoke
(vlax-get (vla-get-activelayout doc) 'block)
‘addraster
imagefile
My_point
My_xlato;<- genişlik
0.0 0.0 0.0
)
)
(vla-put-name inimage (fnverificanomeimg imagefile) ;<- name- name
(vla-update inimage)
)

(defun fnverificanomeimg (nome / im_dict suffisso döngü renome)
(setq im_dict (dictsearch (namedobjdict) "acad_image_dict")
(setq count 1 renome nome)
(O halde, 3 nome) im_dict))
(setq nome (strcat (vl-filename-base renome) "-" (rtos say 2 0) (vl-filename-exizingex)
(setq count (1+ count)
)
hayır
)

Görüntü isimlerinin listesi im_dict, geri kalan adın var olup olmadığını kontrol etmektir -1, -2, vb.

Yemin ederim

 

[Riccardo_Ferrari]

(defun c:insrasterimage (/ acadobj doc imagefile inimage)
(setq acadobj (vlax-get-acad-object)
Doc (vla-get-activedocument acadobj)
)
(setq imagefile (gerekli bir görüntüyü sildi: "" "jpg; KLM;tif;gif;bmp;tga;pcx" 8)
(setq my_point (getpoint "\nselect an insertion point: ")))
(setq my_xlato (gerçekten " x tarafının uzunluğu: "))
(setq inimage
(vlax-invoke
(vlax-get (vla-get-activelayout doc) 'block)
‘addraster
imagefile
My_point
My_xlato;<- genişlik
0.0 0.0 0.0
)
)
(vla-put-name inimage (fnverificanomeimg imagefile) ;<- name- name
(vla-update inimage)
)

(defun fnverificanomeimg (nome / im_dict suffisso döngü renome)
(setq im_dict (dictsearch (namedobjdict) "acad_image_dict")
(setq count 1 renome nome)
(O halde, 3 nome) im_dict))
(setq nome (strcat (vl-filename-base renome) "-" (rtos say 2 0) (vl-filename-exizingex)
(setq count (1+ count)
)
hayır
)

Görüntü isimlerinin listesi im_dict, geri kalan adın var olup olmadığını kontrol etmektir -1, -2, vb.

Yemin ederim

(defun c:insrasterimage (/ acadobj doc imagefile inimage)
(setq acadobj (vlax-get-acad-object)
Doc (vla-get-activedocument acadobj)
)
(setq imagefile (gerekli bir görüntüyü sildi: "" "jpg; KLM;tif;gif;bmp;tga;pcx" 8)
(setq my_point (getpoint "\nselect an insertion point: ")))
(setq my_xlato (gerçekten " x tarafının uzunluğu: "))
(setq inimage
(vlax-invoke
(vlax-get (vla-get-activelayout doc) 'block)
‘addraster
imagefile
My_point
My_xlato;<- genişlik
0.0 0.0 0.0
)
)
(vla-put-name inimage (fnverificanomeimg imagefile) ;<- name- name
(vla-update inimage)
)

(defun fnverificanomeimg (nome / im_dict suffisso döngü renome)
(setq im_dict (dictsearch (namedobjdict) "acad_image_dict")
(setq count 1 renome nome)
(O halde, 3 nome) im_dict))
(setq nome (strcat (vl-filename-base renome) "-" (rtos say 2 0) (vl-filename-exizingex)
(setq count (1+ count)
)
hayır
)

Görüntü isimlerinin listesi im_dict, geri kalan adın var olup olmadığını kontrol etmektir -1, -2, vb.

Yemin ederim

Çok teşekkür ederim, çok nazik.
Selamlar
Zengin zengin