有人能帮我一下吗
我想创建一个新的应用程序，当我按下加载按钮lsp文件时，我给出了错误“错误：错误参数值：非负：-1” 如果没有代码，就有点难找出问题所在。 (defun c:intdrstg ();==========================================================================================================================
(vl-load-com)
;==========================================================================================================================
(resetsilviu) ;se afla in setari_MobCAD
;==========================================================================================================================
(setq ipt (getpoint "\n Alege colt DR-JOS <Exit>: "))
(setq ipt1 (getpoint "\n Alege colt DR-SUS <Exit>: "))
(setq ipt2 (getpoint "\n Pina unde STG-SUS <Exit>: "))
;==========================================================================================================================
(defun caremaidecare ()
;==========================================================================================================================
(vl-load-com)
;==========================================================================================================================
(mapcar (function (lambda ( sym foo str def )
(set sym (cond (((eval foo) (strcat str " <" (vl-princ-to-string
(set sym (cond ((eval sym)) ( def )))) "> : " ))) ((eval sym))))))
'(*nrs* *ret*) '(getint getint)
'("\nNumar Spatii" "\nRetragere Intermediar DIN FATA") '(3 100))
;==========================================================================================================================
(progn
(setq nrint (- *nrs* 1)) ;numar intermediari
(setq spatiu (/(- (- (car ipt) (car ipt2)) (* nrint grPAL)) *nrs*)) ;lungime sparii intre intermediari
(setq disp (rtos spatiu 5))
(setq hint (- (caddr ipt1) (caddr ipt))) ;inaltime intermediari H
);end progn
(princ)
);end defun
(princ)
;==========================================================================================================================
(setq myAnswer "Da") ; set up a variable to hold the answer
(setq dnint nil) ; set up a variable to hold your guess
(while (/= myAnswer dnint) ;while you don't know the answer
(initget"Da Nu")
(setq dnint (getkword (strcat "\nSpatiu = "disp "mm" ": ")))
(caremaidecare)
) ;close the loop
;==========================================================================================================================
(cond ((= ckret "0")
(progn
(setq *a* (- *a* (+ *ret* *retpfl*))) ;adincime intermediari
(setq ckret "1") ;ckret - este variabila care scade pfl daca are falt sau nut
);end progn
)
((= ckret "1")
(progn
(setq *a**a*) ;adincime polita cu retragere daca este cazul
);end progn
)
(T (prompt "\nInter Gresit"))
);end cond
;==========================================================================================================================
(offresetvar) ;se afla in setari_MobCAD
;==========================================================================================================================
(resetsilviu) ;se afla in setari_MobCAD
;==========================================================================================================================
(if (= dnint "Da")
(progn
(repeat nrint
(if (null ipti)
(progn
(setq ipti (list (- (car ipt) (+ spatiu grPAL)) (+ (cadr ipt) *ret*) (caddr ipt))) ;XYZ point intermediari
(command "_.box" "_non" ipti "L" grPAL *a* hint)(int1000)
(setq a1 (list (car ipt) (cadr ipti)(caddr ipt))) ;XYZ point dreapta jos
(setq a2 (list (car ipt) (cadr ipti)(caddr ipt1))) ;XYZ point dreapta sus
(setq a3 (list (car ipt2) (cadr ipti)(caddr ipt))) ;XYZ point stinga jos
(setq a4 (list (car ipt2) (cadr ipti)(caddr ipt1))) ;XYZ point stinga sus
(entmakex (list (cons 0 "POINT") (cons 10 a1)))
(entmakex (list (cons 0 "POINT") (cons 10 a2)))
(entmakex (list (cons 0 "POINT") (cons 10 a3)))
(entmakex (list (cons 0 "POINT") (cons 10 a4)))
(setq s4 (list (car ipt) (cadr ipti) (caddr ipt1)))
(setq s1 (list (- (car ipt) spatiu)(cadr ipti) (caddr ipt1))) ;XYZ point semn inter dreapta
(setq s2 (list (car ipti) (cadr ipti) (caddr ipt1))) ;XYZ point semn inter stinga
(setq s3 (list (car ipt2) (cadr ipti) (caddr ipt1))) ;XYZ point semn stinga
(setq tx1 (list (+(car s1) (-(/ spatiu 2)150)) (cadr ipti) (caddr ipt1))) ;XYZ point text dreapta
(setq tx2 (list (+ (car s3)(-(/ spatiu 2)150)) (cadr ipti) (caddr ipt1))) ;XYZ point text stinga
(command "-insert" "dimsk" s4 "1" "" "0")(command "explode" (entlast));semn interior corp dreapta
(command "-insert" "txto" tx1 "1" "" "0")(command "explode" (entlast));
(command "-insert" "dimsj" s1 "1" "" "0")(command "explode" (entlast));semn inter dreapta
(command "-insert" "dimsk" s2 "1" "" "0")(command "explode" (entlast));semn inter stinga
(command "-insert" "txto" tx2 "1" "" "0")(command "explode" (entlast));
(command "-insert" "dimsj" s3 "1" "" "0")(command "explode" (entlast));semn interior corp stinga
(setq newcot (rtos spatiu 5))
(modcota)
(setq cv1 (list (- (car ipti)160) (cadr ipti) (+ (caddr ipti) (-(/ hint 2)150)))) ;XYZ point text vertical
(setq cv2 (list (car ipti) (cadr ipti)(+ (caddr ipti) hint)));XYZ point semn sus
(command "-insert" "dimss" ipti "1" "" "0")(command "explode" (entlast));semn jos
(command "-insert" "txtv" cv1 "1" "" "0")(command "explode" (entlast));text
(command "-insert" "dimjs" cv2 "1" "" "0")(command "explode" (entlast));semn sus
(setq newcot (rtos hint 5))
(modcota)
)
(progn
(setq ipti (list (- (car ipti) (+ grPAL spatiu)) (cadr ipti) (caddr ipti))) ;XYZ point intermediari
(command "_.box" "_non" ipti "L" grPAL *a* hint)(int1000)
(setq s1 (list (car ipti) (cadr ipti) (caddr ipt1)));XYZ point dreapta sus semn
(setq tx1 (list (+ (car s1) (-(/ spatiu 2)130))(cadr s1) (caddr s1))) ;XYZ point text
(setq s2 (list (+(car s1) grPAL)(cadr s1) (caddr s1))) ;XYZ point stinga sus semn
(command "-insert" "dimsk" s1 "1" "" "0")(command "explode" (entlast));semn stinga
(command "-insert" "txto" tx1 "1" "" "0")(command "explode" (entlast));text
(command "-insert" "dimsj" s2 "1" "" "0")(command "explode" (entlast));semn dreapta
(setq newcot (rtos spatiu 5))
(modcota)
)
);end if
);end repeat
;==========================================================================================================================
(setq htext (RTOS hint))
(setq htext1 (RTOS spatiu))
(setq text (STRCAT "\nH-Inaltime Spatiu = " htext "-mm" " " "\nLumgime Spatiu = " htext1 "-mm"))
;(setq text1 (STRCAT "\nLumgime Spatiu = " htext1 "-mm" ))
(prompt text)
;==========================================================================================================================
)T);end if
;==========================================================================================================================
(onresetvar);se afla in setari_MobCAD
;==========================================================================================================================
(layrestordef) ;restore active layer ;se afla in setari_MobCAD
;==========================================================================================================================
(setq varlst '(ipt1 ipt2htext text htext1 text1 ipti a1 a2 a3 a4 s1 s2 tx1 tx2 *adi* *ret* hint spatiu nrint cv1 cv2 newcot
dnint disp))
(mapcar '(lambda (x)(set x nil)) varlst)
;==========================================================================================================================
(princ)
);end defun
(princ)
;==========================================================================================================================
;==========================================================================================================================
;========================================================================================================================== 你有没有尝试过搜索网页，寻找类似的问题解决方案？
https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/visual-lisp-make-application-error/td-p/8127427
HTH。，M、 R。 非常感谢你。现在它工作了
页:
[1]