帮助我解决Lisp中的错误
我来自巴西，我的代码出现了以下错误：命令：；错误：在*error*函数bad DXF内发生错误
组：（-3（“DADOS1”（1000）（1040.1.0）））
我的代码是：
(defun w2condl1lr ()
(progn
(setq setagens (getvar "OSMODE")
ortogo (getvar "ORTHOMODE")
eco (getvar "CMDECHO")
layer (getvar "CLAYER")
)
(w2layer)
(setvar "CLAYER" "Condulete")
(setvar "CMDECHO" 0)
(setvar "OSMODE" 33)
(setvar "ORTHOMODE" 1)
(setq basec (getpoint "\nDefina a base do condulete: "))
(setq angulo (getangle "\nDefina seu ângulo: " basec))
(setvar "OSMODE" 0)
(setq ladoe (polar basec (+ angulo pi) (* 0.235 escalac))
ladoc (polar basec (+ angulo ang90) (* 0.1 escalac))
)
(setq selecao (ssget ladoc))
(if (/= selecao nil)
(progn
(setq objeto (ssname selecao 0)
props(entget objeto)
cond1(cdr (assoc 0 props))
cond2(cdr (assoc 8 props))
)
(if (and (= cond1 "LINE")
(or (= cond2 ellayer) (= cond2 ellayer2))
)
(command "break" objeto basec ladoc)
)
)
)
(setq selecao (ssget ladoe))
(if (/= selecao nil)
(progn
(setq objeto (ssname selecao 0)
props(entget objeto)
cond1(cdr (assoc 0 props))
cond2(cdr (assoc 8 props))
)
(if (and (= cond1 "LINE")
(or (= cond2 ellayer) (= cond2 ellayer2))
)
(command "break" objeto basec ladoe)
)
)
)
(command "insert"
"condl1lr"
basec
escalac
""
(* grau angulo)
)
(setq entidade (entlast))
(setq codigou ellayer)
(setq entlst (entget entidade))
(setq lista_dados (list (cons 1000 codigou)))
(setq pedacolst (cons "TIPO" lista_dados))
(setq entlst (append entlst (list (cons -3 (object pedacolst)))))
(entmod entlst)
(setvar "CLAYER" layer)
(setvar "CMDECHO" eco)
(setvar "OSMODE" setagens)
(setvar "ORTHOMODE" ortogo)
(warp)
(limpa)
(princ)
)
) 我已经更改了你帖子的标题，请以后使用更多描述性标题。
我还建议您将Lisp包装在代码标记中（
(without the extra spaces) at the end) as it makes it more easy to read. 好的，谢谢。
页:
[1]