[LISP]求助，如何将两条相同属性的线连接

yulijin608

我是一个新手，哪位大侠能不能帮帮小弟，如何将两条相同属性的线连接起来。

xyp1964

使用fillet命令

yulijin608

多谢，原来这么简单。

yulijin608

但是用fillet命令，两条在同一条直线上的两条直线不能连。

xyp1964

加载LX.LSP，运行CX ___________________________________ ;;;LX.LSP (DEFUN CX(/ s1 s2 lin1 lin2 pt3 pp1 pp2 pp3 pp4 pt2 pt1 dist5 ang3 ang1 ang4 dist2 dist1 dist4 dist3)
(cmdla0)
(SETVAR"osmode"512)
(SETVAR"cmdecho"0)
(WHILE(SETQ lin1 (ENTSEL"\n请点取第一根线 <退出>: "))
(WHILE(NOT(SETQ lin2 (ENTSEL"\n请选取另一根线: "))))
(SETQ pt2(CADR lin1)pt1(CADR lin2)lin1(CAR lin1)lin2(CAR lin2)
s1(ENTGET lin1)s2(ENTGET lin2)pp1(CDR(ASSOC 10 s1))
pp2(CDR(ASSOC 11 s1))pp3(CDR(ASSOC 10 s2))
pp4(CDR(ASSOC 11 s2))ang3(ANGLE pp1 pp2)
ang1(ANGLE pp3 pp4)ang4(ABS(SIN(- ang3 ang1)))
pt2(INTERS pp1 pp2 pt2(POLAR pt2 (+ ang3(* PI 0.5))5)NIL)
pt1(INTERS pp3 pp4 pt1(POLAR pt1 (+ ang1(* PI 0.5))5)NIL))
(SETVAR"osmode"0)
(IF(> ang4 1e-4)
(PROGN(SETQ pt3 (INTERS pp1 pp2 pp3 pp4 NIL)dist2(DISTANCE pt3 pp1)
dist1(DISTANCE pt3 pp2)ang3(ANGTOS(ANGLE pt3 pp1)0 3)
ang1(ANGTOS(ANGLE pt3 pp2)0 3)ang4(ANGTOS(ANGLE pt3 pt2)0 3))
(IF(= ang3 ang1)
(IF(> dist2 dist1)
(SETQ pt2 pp1)
(SETQ pt2 pp2))
(IF(= ang3 ang4)
(SETQ pt2 pp1)
(SETQ pt2 pp2)))
(SETQ dist2(DISTANCE pt3 pp3)ang3(ANGTOS(ANGLE pt3 pp3)0 3)
dist1(DISTANCE pt3 pp4)ang1(ANGTOS(ANGLE pt3 pp4)0 3)
ang4(ANGTOS(ANGLE pt3 pt1)0 3))
(IF(= ang3 ang1)
(IF(> dist2 dist1)
(SETQ pt1 pp3)
(SETQ pt1 pp4))
(IF(= ang3 ang4)
(SETQ pt1 pp3)
(SETQ pt1 pp4)))
(SETQ s1(SUBST(CONS 10 pt2)
(ASSOC 10 s1)s1)s1(SUBST(CONS 11 pt3)
(ASSOC 11 s1)s1)s2(SUBST(CONS 10 pt1)
(ASSOC 10 s2)s2)s2(SUBST(CONS 11 pt3)
(ASSOC 11 s2)s2))
(ENTMOD s1)
(ENTMOD s2))
(PROGN(SETQ dist2(DISTANCE pp1 pp3)dist1(DISTANCE pp1 pp4)dist4(DISTANCE pp2 pp3)
dist3(DISTANCE pp2 pp4)dist5(LIST(LIST dist2 pp1 pp3)
(LIST dist1 pp1 pp4)
(LIST dist4 pp2 pp3)
(LIST dist3 pp2 pp4))pt3(APPLY(quote MAX)
(MAPCAR(quote CAR)dist5))dist5(ASSOC pt3 dist5)dist5(CDR dist5)pt2(CAR dist5)
pt1(CADR dist5)s1(SUBST(CONS 10 pt2)
(ASSOC 10 s1)s1)s1(SUBST(CONS 11 pt1)
(ASSOC 11 s1)s1))
(ENTDEL lin2)
(ENTMOD s1)))
(SETVAR"osmode"512))
(SETVAR"osmode"0)
(SETVAR"pickbox"4)
(cmdla1)
(pxyp"lx (连线)")
)
;;;-------------------------------------------
;;;子程序
;;;
(defun CMDLA0 ()
(setq cmdech (GETVAR "CMDECHO"))
(setq oom (getvar "orthomode"))
(setq osm (getvar "osmode"))
(SETQ LA (getvar "clayer"))
(setvar "regenmode" 1)
(SETVAR "CMDECHO" 0)
) ;;;
(defun CMDLA1 ()
(SETVAR "CMDECHO" cmdech)
(setvar "orthomode" oom)
(setvar "osmode" osm)
(setvar "clayer" LA)
(setvar "regenmode" 1)
)
;;;
(DEFUN PXYP (TXT1)
(SETQ TXT1 (STRCAT "\n\r 程序命令: " TXT1 " -- XYP@bsedi.com"))
(PRINC TXT1)
(Princ)
);defun (pxyp"lx (连线)")
(princ) ;;;END

yulijin608

谢谢版主，这程序实在是太妙了。我是一个初学者，你能给我指点一下吗，我该怎样学习用lisp编程?

tjztsh

用fillet能够连接，但用该程序连接不上，何故？

yulijin608

不可能吧，那个程序我以前试过，可以啊，你在试试。