Question

求懂LSP大神帮忙看看这段程序有什么问题，在CAD里面加载不了。

(defungettextposition(lst)(if(listplst)(progn(setqan(xd::geom:angleformat(apply'anglelst)))(polar(apply'xdrx_line_midplst)(+an(*pi0.5))1.))(xd::geom:angleformatlst)))(defunc:xdtb_linelen(/sseidptsanpp1p2tllp0mattxt)(defuncallback(dynpt/)(xdrx_entity_transformtxt(xdrx_matrix_settranslationmat(mapcar'-dynptp0)))(setqp0dynpt))(if(setqss(ssget'((0."*polyline,line"))))(progn(xdrx_document_ucsoff)(xdrx_setsstodbss0)(setqtl0.)(while(setqe(xdrx_getentdata0))(setqid(xdrx_getpropertyvaluee"ObjectID")pts(xdrx_curve_getpointe)typ(xdrx_getentdxf0)l(xdrx_getpropertyvaluee"Length"))(if(=typ"LINE")(setqan(xd::geom:angleformat(angle(carpts)(caddrpts)))p(gettextposition(list(carpts)(lastpts))))(progn(setqpam(fix(xdrx_curve_getparamatpointe(cadrpts)))bulge(xdrx_polyline_getbulgeatepam))(if(zeropbulge)(setqp1(xdrx_polyline_getpointatepam)p2(xdrx_polyline_getpointate(1+pam))an(xd::geom:angleformat(anglep1p2))p(gettextposition(list(xdrx_polyline_getpointatepam)(xdrx_polyline_getpointate(1+pam)))))(setqan(gettextposition(xdrx_curve_getfirstderive(cadrpts)))p(polar(cadrpts)an1.)))))(setqtl(+ltl))(xdrx_text_makep(rtosl22)2.an))(setqp0(getvar"viewctr")txt(xdrx_text_makep0(strcat"TotleLength="(rtostl22))2.0.)mat(xdrx_matrix_identity3))(setqret(xdrx_pointmonitor"Callback"txt))(setqp(getpoint"\nPosition:"))(xdrx_pointmonitor)(xdrx_document_ucson)))(princ))

Answer 1

好厉害的编辑方式啊，没有换行，没有空格，真是服了，
大致看了一下，程序没有什么问题，估计是这段程序调用的某个API或者说函数（子程序）之类的东西不存在，导致出错，，分析可能是 该插件 软件没有装完整，也就是说这段程序还需要某个插件的支撑，，，嗯嗯嗯