(DEFUN ACA_F:DELLINREPD(/)(SETQ C:ACA_LINREP NIL ACA_F:LINREPTMP1 NIL ACA_F:LINREPTMP2 NIL)(PRINC"\nC:ACA_LINREPD gel”scht")(PRIN1))(DEFUN ACA_F:LINREPTMP1(ACAj ACA@)(CDR(ASSOC ACAj ACA@)))(DEFUN ACA_F:LINREPTMP2(ACAQ ACAl)(ANGTOS(ANGLE ACAQ ACAl)0 5))(DEFUN C:ACA_LINREP(/ ACA& ACA1 ACA# ACA0 ACA@ ACAQ ACAl ACA$ ACAO)(SETQ ACA1(SSADD)ACA_V:ER"CM1")(PROMPT"\nZwei Linien w„hlen. ")(SETQ ACA1(SSGET))(WHILE(AND(=(TYPE ACA1)(quote PICKSET))(NOT(= 2(SSLENGTH ACA1))))(PROMPT"\nNur zwei Linien w„hlen!! ")(SETQ ACA1(SSGET)))(IF(=(TYPE ACA1)(quote PICKSET))(PROGN(SETQ ACA0(ENTGET(SSNAME ACA1 0))ACA@(ENTGET(SSNAME ACA1 1)))(IF(="LINE"(ACA_F:LINREPTMP1 0 ACA0)(ACA_F:LINREPTMP1 0 ACA@))(PROGN(SETQ ACAQ(ACA_F:LINREPTMP1 10 ACA0)ACAl(ACA_F:LINREPTMP1 11 ACA0)ACA$(ACA_F:LINREPTMP1 10 ACA@)ACAO(ACA_F:LINREPTMP1 11 ACA@))(IF(OR(=(ACA_F:LINREPTMP2 ACAQ ACAl)(ACA_F:LINREPTMP2 ACAQ ACAO))(=(ACA_F:LINREPTMP2 ACAl ACAQ)(ACA_F:LINREPTMP2 ACAQ ACAO)))(PROGN(ENTDEL(ACA_F:LINREPTMP1 -1 ACA@))(SETQ ACA#(DISTANCE ACAQ ACAO)ACA@(LIST ACAQ ACAO))(FOREACH ACA&(LIST(LIST ACAQ ACA$)(LIST ACAl ACA$)(LIST ACAl ACAO))(IF(>(DISTANCE(CAR ACA&)(CADR ACA&))ACA#)(SETQ ACA#(DISTANCE(CAR ACA&)(CADR ACA&))ACA@ ACA&)))(ENTMOD(SUBST(CONS 11(CADR ACA@))(CONS 11 ACAl)(SUBST(CONS 10(CAR ACA@))(CONS 10 ACAQ)ACA0))))(PROMPT"Linien haben ungleichen Winkel!! ")))(PROMPT"Objekte sind keine Linien!! ")))(PROMPT"Keine zwei Linien gew„hlt!! "))(PRIN1))(PRIN1)