VB6에서 Autolisp로 변환 변수

[tiziano69]

autolisp에 vb6의 변수를 전달할 수 있습니다.... 나는이 방법을 수행했지만 변수가 많기 때문에 나는 autocad에서 사용할 수있는 많은 변수 "users1"를 사용할 수 없습니다. 청소기 방법이 있거나 Vb6에서 autocad (lisp)에서 직접 사용할 수있는 변수를 만들 수 있습니다.

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

감사합니다.

 

[rpor66]

"users1"를 lisp로 전달하지 않았지만 변수 "a"를 그런 값으로 설정했습니다.
A$="테스트"
autocad.acadapplication.activedocument.sendcommand (setq a " & chr(34) & a$ & chr(34) & ")" & vbcr
당신이 원하는만큼 통과 할 수 있습니다.
다른 방법이 있지만 관리하기 쉽습니다.
이름 *

 

[tiziano69]

감사합니다, 나는 다양한 테스트를 만들어졌으며 vb6 컨트롤 내에서도 직접 값을 전달할 수 있다는 것을 확인할 수 있습니다. 이것은 사용 된 코드입니다.

private sub command1_click()
objacad = getobject (, "autocad.application") 설정 objdoc = objacad.activedocument

$ = "테스트"
b = "호"
₢ 킹
₢ 킹
autocad.acadapplication.activedocument.sendcommand (setq a " & chr(34) & a$ & chr(34) & ")" & vbcr

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

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

autocad.acadapplication.activedocument.sendcommand"(setq d " & d")" & vbcr

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

이름 *

 

[rpor66]

인증: 그래서 공공 변수를 만들려면, 왜 그들은 원치 않는 비정상적인 상황에서 발생할 수 있는 값의 overwriting에 의해 발생할 수 있는지 고려.

 

[tiziano69]

그것은 반대 할 수 있습니다, 즉, autocad에서 변수 "pippo", vb6에서 콘텐츠를 읽을 수 있습니까?

 

[rpor66]

구성 로그를 사용할 수 있습니다:
에 lisp
(defunc c:rwrite()
(setq strpippo "test string 값")
(vl-registry-write "hkey_current_user\ssoftware\vb 및 vba 프로그램 설정\myapp\\\\\\\lisp2vba" "pippo" strpippo)
·

"pippo"는 열 이름의 구성 로그에 표시됩니다.
data column의 변수 strpippo의 값

vba에서
strpippo=getsetting("myapp", "lisp2vba", "pippo", "")

vba에서 읽기의 끝에서 등록에 항목 삭제.

이름 *

 

[tiziano69]

감사합니다. 나는 내가 원하는 것을 가지고, 마지막 질문, 나는 등록에서 목소리를 제거하는 방법?

 

[rpor66]

삭제 "myapp", "lisp2vba"

이름 *

 

[tiziano69]

나는 그것을 해결했다, 괜찮아?

(defun c: 델_chiave()
(vl-registry-delete "hkey_current_user\software\\vb 및 vba 프로그램 설정\myapp\\\\\\\\\\lisp2vba" "pippo")
·

 

[rpor66]

거의 동일, 그룹 lisp2vba, 작은 나쁜 남아.
이름 *

 

[tiziano69]

당신은 vb6의 레지스트리 키 쓰기 / 읽기의 예를 만들 ... 부분적으로만 관리합니다.

rege.regwrite "hkey_current_user\software\vb 및 vba 프로그램 설정\myapp\tavoletta", 값, "reg_sz"


감사합니다.