VB6'dan Autolisp'e geçiş değişkenleri

[tiziano69]

v6'nın değişkenlerini otolisp'e geçmek mümkündür... Bu şekilde yaptım, ancak değişkenler pek çok değişkene sahip olmadığımdan beri otocad tarafından mevcut olan birçok değişken "users1" mevcut değil. Daha temiz bir yöntem var ya da otocad (lisp) doğrudan vb6'da kullanılabilecek bir değişken oluşturabilirim.

objdoc.setvariable "users1", text2.text
Autocad.acadapplication.activedocument.sendcommand (setq a (getvar ""users1")

Teşekkür ederim.

 

[rpor66]

“users1”i lisp'e geçmediniz, ancak değişken "a"yı bu değere taşıdınız.
$="test"
Autocad.acadapplication.activedocument.sendcommand (setq a " & chr(34) & $ & chr(34) & ")
Yani istediğiniz kadar çok geçebilirsin.
Başka yöntemler var ama bu yönetmek kolaydır.
Yemin ederim

 

[tiziano69]

Tamam teşekkürler, Çeşitli testler yaptım ve aynı zamanda v6 kontrolleri içinde mevcut değerleri doğrudan geçebileceğinizi teyit edebilirim - bu kullanılan kod.

Özel alt komut1_ click()
objacad = getobject (, "autocad.application") set objdoc = objacad.activedocument

$ = "test"
b = "try"
c = 10
d = 45
Autocad.acadapplication.activedocument.sendcommand (setq a " & chr(34) & $ & chr(34) & ")

Autocad.acadapplication.activedocument.sendcommand" (setq b " & chr(34) & b & chr(34) & ")

Autocad.acadapplication.activedocument.sendcommand" (setq c " & chr(34) & c & chr(34) & ")

Autocad.acadapplication.activedocument.sendcommand" (setq d " & d")

Autocad.acadapplication.activedocument.sendcommand" (setq d " & text1.text & ")

end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end

 

[rpor66]

Bir clarification: Bunu yaparken halk değişkenleri yaratır, neden istenmeyen anormallikler ile sonuçlanacak değerlerin yazmasına neden olabilirler.

 

[tiziano69]

Aksine yapmak mümkün, bu, değişken bir "pippo"ya sahip olmak, vb6'dan gelen içeriği okuyabilmek mi?

 

[rpor66]

konfigürasyon logunu kullanabilirsiniz:
In lisp
(defunc c:rwrite()
(setq strpippo "test string değeri")
(vl-registry-write "hkey_current_usersoftware Oakvb ve etca program ayarları\myapp strlisp2vba" "pippo" strpippo)
)

"pippo" sütun adındaki konfigürasyon logunda sergilenecek
Veri sütununda değişken strpippo değeri

va
strpippo=the("myapp", "lisp2vba", "pippo", "")

Okumanın sonunda, kayıtta vba girişleri silinir.

Yemin ederim

 

[tiziano69]

Tamam, teşekkür ederim, Ne istediğimi aldım, son bir soru, kayıtta sesleri nasıl kaldırırım?

 

[rpor66]

"myapp", "lisp2vba"

Yemin ederim

 

[tiziano69]

Bunu çözdüm, tamam mı?

(defun c:del_chiave()
(vl-registry-delete "hkey_current_user 48software Oakvb ve etca program ayarları\myapp\\\\\lisp2vba" "pippo")
)

 

[rpor66]

Neredeyse eşit, grup lisp2vba kalır, küçük kötü.
Yemin ederim

 

[tiziano69]

Bana, bir kayıt anahtarını vb6'da yazma / yazma örneği veriyorsunuz... Sadece kısmen yönettim.

Rege.reg write "hkey_current_user\software\vb and etca program ayarları\myapp\tavoletta", değer, "reg_sz"


Teşekkür ederim.