平分线的原理

明天你好 · 发表于 2017-5-17 18:35:51

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由明天你好于 2017-5-17 20:39 编辑

下面的代码除了可以平分角，平分平行线，还能平分什么？

;;;;;;;;;;;;;;软绵绵绘制平分线;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;BY YJR111 2011-11-19;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;可自由传播，但请保留原著者信息，谢谢!;;;;;;;;;;;
(defun c:pfx(/ fglst please input others youself 3q vla_e1 vla_e2)
(vl-load-com)
(SETQ oldosmode(GETVAR "OSMODE" ))
(SETQ oldltscale(GETVAR "ltscale" ))
(SETQ oldceltscale(GETVAR "celtscale" ))
(setvar "cmdecho" 0)
(setvar "osmode" 0)
(setvar "ltscale" 1)
(setvar "celtscale" 1)
(setvar "cecolor" "1");;;;颜色红色
(command "linetype" "s" "center" "");;;;线型center
(setq sss(ssadd))
(setq myms(vla-get-modelspace (setq mydoc(vla-get-activedocument(vlax-get-acad-object))));;;模型空间
myss(vla-get-SelectionSets mydoc)
myutility(vla-get-utility mydoc)
mylayer(vla-get-layers mydoc)
mylinetypes(vla-get-linetypes mydoc))
(initget 6)
(if (and(=(type *num_fenge*)'int)*num_fenge*) (setq num_fenge (getint (strcat "\n请选择平分的数目<" (rtos *num_fenge* 2 0)">")))
(progn(setq num_fenge (getint "\n请选择平分的数目" ))
(if (/=(type num_fenge)'int)(progn
(princ"\n输入的数字类型不对，请输入整数!")
(setq num_fenge (getint "\n请选择平分的数目" ))))
)
)
(if (not num_fenge)(setq num_fenge *num_fenge*)(setq *num_fenge* num_fenge ))
(while(and(setq e1 (car(setq nentsel_e1(nentselp"\n请选择第一条线<右键退出>:"))))
(setq e2 (car(setq nentsel_e2(nentselp"\n请选择第二条线<右键退出>:")))))
(setq point_e1 (cadr nentsel_e1))
(setq s1 (entget e1))
(setq point_e2 (cadr nentsel_e2))
(setq s2 (entget e2))
(setq vla_e1(vlax-ename->vla-object e1))
(setq vla_e2(vlax-ename->vla-object e2))
(if (<= (length nentsel_e1) 2)
(setq point_e1(vlax-curve-getClosestPointTo vla_e1 point_e1 ))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;OCS和WCS之间的转换;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(progn
(setq vla_ee1 (vlax-ename->vla-object(caar(reverse nentsel_e1)))
xsca(vla-get-XScaleFactor vla_ee1)
ysca(vla-get-YScaleFactor vla_ee1)
zsca(vla-get-ZScaleFactor vla_ee1)
rto(vla-get-rotation vla_ee1)
insertp(cdr(assoc 10(entget(caar(reverse nentsel_e1))))))
(setq shuzu1 (caddr nentsel_e1))
(setq variant_shuzu1 (vlax-make-safearray vlax-vbDouble '(0 . 3)'(0 . 3) ))
(command "undo" "be" )
(vlax-safearray-fill variant_shuzu1 shuzu1)
(vla-transformby vla_e1 variant_shuzu1)
(command "undo" "e" )
(setq point_e1(vlax-curve-getClosestPointTo vla_e1 point_e1 ))
(command "undo" 1 )
)
)
(if (<= (length nentsel_e2) 2)
(setq point_e2(vlax-curve-getClosestPointTo vla_e2 point_e2 ))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;OCS和WCS之间的转换;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(progn
(setq vla_ee2 (vlax-ename->vla-object(caar(reverse nentsel_e2)))
xsca(vla-get-XScaleFactor vla_ee2)
ysca(vla-get-YScaleFactor vla_ee2)
zsca(vla-get-ZScaleFactor vla_ee2)
rto(vla-get-rotation vla_ee2)
insertp(cdr(assoc 10(entget(caar(reverse nentsel_e2))))))
(setq shuzu2 (caddr nentsel_e2))
(setq variant_shuzu2 (vlax-make-safearray vlax-vbDouble '(0 . 3)'(0 . 3) ))
(command "undo" "be" )
(vlax-safearray-fill variant_shuzu2 shuzu2)
(vla-transformby vla_e2 variant_shuzu2)
(command "undo" "e" )
(setq point_e2(vlax-curve-getClosestPointTo vla_e2 point_e2 ))
(command "undo" 1 )
)
)
(if (=(vla-get-objectname vla_e1)"AcDbLine" )
(progn
(changedxf10<->11 s1)
(entupd e1)
(setq s1 ss ss nil )
(setq dxf10_e1(cdr (assoc 10 s1))
dxf11_e1(cdr (assoc 11 s1)))
(setq vla_e1_ang(vla-get-angle vla_e1))
))
(if (=(vla-get-objectname vla_e2)"AcDbLine" )
(progn
(changedxf10<->11 s2)
(entupd e2)
(setq s2 ss ss nil)
(setq dxf10_e2(cdr (assoc 10 s2))
dxf11_e2(cdr (assoc 11 s2)))
(setq vla_e2_ang(vla-get-angle vla_e2))
))
(if (=(vla-get-objectname vla_e1)"AcDbPolyline" )
(progn
(setq pline1_dxf10(vla-get-coordinates vla_e1))
(setq dxf_e1 (vlax-safearray->list(vlax-variant-value pline1_dxf10)))
(setq fglst nil)
(fgb dxf_e1)
(setq dxf10_lst fglst n 0)
(if (> (length nentsel_e1) 2)
(progn
(setq dxf10_lst(mapcar (function(lambda(x)(trans x (caar(reverse nentsel_e1)) 0)))dxf10_lst));;;;;;;增加Z坐标
(setq dxf10_lst(mapcar (function(lambda(x)(ocs->wcs x shuzu1);;;;;;;;;多段线顶点坐标列表转换到WCS
)
)
dxf10_lst))
))
(while(< n (length dxf10_lst))
(cond ((< n (1-(length dxf10_lst)))(setq nthn1 (nth n dxf10_lst))(setq nthn2 (nth (1+ n) dxf10_lst)))
((= n (1-(length dxf10_lst)))(setq nthn1 (nth n dxf10_lst))(setq nthn2 (nth 0 dxf10_lst)))
)
(setq point_ee1(vlax-curve-getClosestPointTo (setq vla_e1(vla-addline myms (vlax-3d-point nthn1)(vlax-3d-point nthn2)))point_e1 ))
(if (not (and(equal (car point_e1)(car point_ee1) 1e-3)(equal (cadr point_e1)(cadr point_ee1) 1e-3)(equal (caddr point_e1)(caddr point_ee1) 1e-3)))
(progn
(vla-delete vla_e1);;;;;删除辅助线
(setq n(1+ n))
)
(progn
(setq e1(vlax-vla-object->ename vla_e1))
(setq s1 (entget e1))
(setq sss (ssadd))
(setq sss(ssadd e1 sss ))
(setq n (length dxf10_lst));;;;;;;确保找到后退出循环
)
)
)
(if (=(vla-get-objectname vla_e1)"AcDbLine" )
(progn
(changedxf10<->11 s1);;;;;;直线起点终点统一方向
(setq s1 ss ss nil)
(entupd e1)
(setq dxf10_e1(cdr (assoc 10 s1))
dxf11_e1(cdr (assoc 11 s1)))
(setq vla_e1_ang(vla-get-angle vla_e1))
))
)
)
(if (=(vla-get-objectname vla_e2)"AcDbPolyline" )
(progn
(setq pline2_dxf10(vla-get-coordinates vla_e2))
(setq dxf_e2 (vlax-safearray->list(vlax-variant-value pline2_dxf10)))
(setq fglst nil)
(fgb dxf_e2);;;;分割多段线顶点列表
(setq dxf10_lst fglst n 0)
(if (> (length nentsel_e2) 2)
(progn
(setq dxf10_lst(mapcar (function(lambda(x)(trans x (caar(reverse nentsel_e2)) 0)))dxf10_lst))
(setq dxf10_lst(mapcar (function(lambda(x)(ocs->wcs x shuzu2)
)
)
dxf10_lst))
))
(while(< n (length dxf10_lst))
(cond ((< n (1-(length dxf10_lst)))(setq nthn1 (nth n dxf10_lst))(setq nthn2 (nth (1+ n) dxf10_lst)))
((= n (1-(length dxf10_lst)))(setq nthn1 (nth n dxf10_lst))(setq nthn2 (nth 0 dxf10_lst)))
)
;;;;;;怪事了，点表比较时就算一模一样也会认为不一样，不知道怎么回事,只能XYZ各个比较了;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq point_ee2(vlax-curve-getClosestPointTo (setq vla_e2(vla-addline myms (vlax-3d-point nthn1)(vlax-3d-point nthn2)))point_e2 ))
(if (not (and(equal (car point_e2)(car point_ee2) 1e-3)(equal (cadr point_e2)(cadr point_ee2) 1e-3)(equal (caddr point_e2)(caddr point_ee2) 1e-3)))
;(vlax-curve-getClosestPointTo (setq vla_e2(vla-addline myms (vlax-3d-point nthn1)(vlax-3d-point nthn2)))point_e2 )))
(progn
(vla-delete vla_e2)
(setq n(1+ n))
)
(progn
(setq e2(vlax-vla-object->ename vla_e2))
(setq s2 (entget e2))
(setq sss(ssadd e2 sss ))
(setq n (length dxf10_lst))
)
)
)
(if (=(vla-get-objectname vla_e2)"AcDbLine" )
(progn
(changedxf10<->11 s2)
(entupd e2)
(setq s2 ss ss nil)
(setq dxf10_e2(cdr (assoc 10 s2))
dxf11_e2(cdr (assoc 11 s2)))
(setq vla_e2_ang(vla-get-angle vla_e2))
))
)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;当角度相等时;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(cond((or(EQUAL vla_e1_ang vla_e2_ang 1E-4)
(EQUAL (abs(- vla_e1_ang vla_e2_ang )) pi 1e-4))
;;;;;;;;;;;;;;;;;;可按要求数量平分距离;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq n 1)
(repeat (1- *num_fenge*)
(if (and(=(cdr(assoc 0(entget(car nentsel_e1))))"LINE" )(=(cdr(assoc 0(entget(car nentsel_e2))))"LINE" )
(/=(last (cadr shuzu1))0)(/=(last (cadr shuzu2))0)(> (length nentsel_e1) 2)(> (length nentsel_e2) 2))
(progn
(command "undo" "be" )
(vlax-safearray-fill variant_shuzu1 shuzu1)
(vla-transformby vla_e1 variant_shuzu1)
(vlax-safearray-fill variant_shuzu2 shuzu2)
(vla-transformby vla_e2 variant_shuzu2)
(command "undo" "e" )
(setq point_e1_start(3d->2d(vlax-safearray->list(vlax-variant-value(vla-get-startpoint vla_e1 )))))
(setq point_e1_end(3d->2d(vlax-safearray->list(vlax-variant-value(vla-get-endpoint vla_e1 )))))
(if (>(cadr point_e1_start)(cadr point_e1_end))(progn
(setq point_e1_start(list (car point_e1_start)(cadr point_e1_end)0.0))
(setq point_e1_end(list (car point_e1_end)(cadr point_e1_start)0.0))
))
(setq point_e2_start(3d->2d(vlax-safearray->list(vlax-variant-value(vla-get-startpoint vla_e2 )))))
(setq point_e2_end(3d->2d(vlax-safearray->list(vlax-variant-value(vla-get-endpoint vla_e2 )))))
(if (>(cadr point_e2_start)(cadr point_e2_end))(progn
(setq point_e2_start(list (car point_e2_start)(cadr point_e2_end)0.0))
(setq point_e2_end(list (car point_e2_end)(cadr point_e2_start)0.0))
))
(command "undo" 1 )
(setq myline(vla-addline myms (vlax-3d-point point_e1_start)(vlax-3d-point point_e1_end)))
(setq dist_num(/(distance dxf10_e1 dxf10_e2) *num_fenge* ))
(vla-move myline (vlax-3d-point point_e1_start) (vlax-3d-point(polar point_e1_start (angle point_e1_start point_e2_start) (* dist_num n))))
)
(progn
(setq myline(vla-copy vla_e1))
(setq dist_num(/(distance dxf10_e1 dxf10_e2) *num_fenge* ))
(vla-move myline (vlax-3d-point dxf10_e1) (vlax-3d-point(polar dxf10_e1 (angle dxf10_e1 dxf10_e2) (* dist_num n))))
)
)
(setq n (1+ n))
)
(princ (strcat "\n 平分后间距为" (rtos dist_num 2 2) ))
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;当角度不相等时;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
((and(/= vla_e1_ang vla_e2_ang)(wcmatch(vla-get-objectname vla_e1)"*Line" ))
(if (setq inters_e1_e2 (inters dxf10_e1 dxf11_e1 dxf10_e2 dxf11_e2 ))
(progn
(setq myline1 (vla-addline myms (vlax-3d-point inters_e1_e2) (vlax-3d-point point_e1)))
(setq myline1_ang(vla-get-angle myline1))
(setq myline2 (vla-addline myms (vlax-3d-point inters_e1_e2) (vlax-3d-point point_e2)))
(setq myline2_ang(vla-get-angle myline2))
(if (or(and(>= myline1_ang pi )(>= myline2_ang pi ))(and(<= myline1_ang pi )(<= myline2_ang pi ))
(and (> myline1_ang (/ pi 2))(< myline1_ang myline2_ang))
(and(> myline1_ang myline2_ang)(> (* 1.5 pi) myline1_ang pi )))
(setq inters_angle (- myline1_ang myline2_ang))
(progn
(if (< myline1_ang myline2_ang)
(setq inters_angle (- myline1_ang (- myline2_ang (* 2 pi))))
(setq inters_angle (-(- myline1_ang (* 2 pi)) myline2_ang ))
)
)
)
;;; (vla-rotate myline1 (vlax-3d-point inters_e1_e2) (* -1(/ inters_angle 2)))
;;;;;;;;;;;;;;;;;;可按要求数量平分角度;;;;;;;;;;;;;;;;;;;;;;;;;;;
(repeat (1- *num_fenge*)
(setq angle_num (* -1(/ inters_angle *num_fenge*)))
(vla-rotate myline1 (vlax-3d-point inters_e1_e2) angle_num)
(setq myline1(vla-copy myline1))
)
(vla-delete myline2)
(princ (strcat "\n 平分后角度为" (rtos (abs(*(/ angle_num pi)180)) 2 2) ))
)
(progn
(if (setq inters_e1_e2 (inters dxf10_e1 dxf11_e1 dxf10_e2 dxf11_e2 nil))
(progn
(princ"\n无交点的两条线仅考虑一条平分线，与平分数量无关!也不影响平分数量的输入!")
(setq inters_e1_angle (angle inters_e1_e2 dxf10_e1))
(setq inters_e2_angle (angle inters_e1_e2 dxf10_e2))
(if (> inters_e1_angle inters_e2_angle)
(setq myline(vla-addline myms (vlax-3d-point inters_e1_e2)
(vlax-3d-point(polar inters_e1_e2 (setq inters_angle(+(/(- inters_e1_angle inters_e2_angle)2)inters_e2_angle))(vla-get-length vla_e1)))))
(setq myline(vla-addline myms (vlax-3d-point inters_e1_e2)
(vlax-3d-point(polar inters_e1_e2 (setq inters_angle(+(/(- inters_e2_angle inters_e1_angle)2)inters_e1_angle))(vla-get-length vla_e1)))))
)
(vla-move myline (vlax-3d-point inters_e1_e2) (if (>= inters_angle pi )
(vlax-3d-point (polar dxf11_e1 (angle dxf11_e1 dxf11_e2)(/(distance dxf11_e1 dxf11_e2)2)))
(vlax-3d-point (polar dxf10_e1 (angle dxf10_e1 dxf10_e2)(/(distance dxf10_e1 dxf10_e2)2)))) )
)
)
(princ (strcat "\n 平分后角度为" (rtos (abs(*(/ (if (> inters_angle pi)(setq inters_angle (- inters_angle (* 1.5 pi) ))inters_angle)pi) 180)) 2 2) ))
)
)
)
)
(if (or(=(vla-get-objectname vla_e1)"AcDbCircle" )(=(vla-get-objectname vla_e1)"AcDbArc" ))
(progn
(setq center (vla-get-center vla_e1)
radius (vla-get-radius vla_e1)
)
(cond((=(vla-get-objectname vla_e1)"AcDbArc" )
(setq myline (vla-addline myms center (vla-get-startpoint vla_e1))
angle_total (vla-get-totalangle vla_e1))
)
(t(setq myline (vla-addline myms center (vlax-3d-point point_e1))
angle_total (* pi 2)))
)
(setq n 1)
(repeat (1- *num_fenge*)
(setq myline(vla-copy myline))
(setq angle_num (/ angle_total *num_fenge*))
(vla-rotate myline center angle_num)
(setq n (1+ n))
)
(princ (strcat "\n 平分后角度为" (rtos (abs(*(/ angle_num pi)180)) 2 2) ))
)
)
;;;;;;;;;;;;;;;;;;;;删除根据多段线复制出的局部线段;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq n 0)
(if (>(sslength sss)0)
(repeat (sslength sss)
(command "erase" (ssname sss n) "")
(setq n(1+ n))
)
)
)
(SETvar "osmode" oldosmode)
(SETvar "ltscale" oldltscale)
(princ "\n 谢谢使用软绵绵绘制平分线， by yjr111")
(princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;将表内元素每2个进行分割重新组表;;;;;;;;;;;;;;;;;;;;;;;;;
;;;(setq lst '(20882.6 12429.7 35344.0 12429.7 35344.0 8473.39 20882.6 8473.39))
;;;(fgb lst) ((20882.6 12429.7)(35344.0 12429.7)(35344.0 8473.39)(20882.6 8473.39))
(defun fgb(lst / fglst1 dxf10 n)
(setq n 0 i 0)
(repeat (/(length lst)2)
(repeat 2
(setq dxf10 (nth n lst))
(setq fglst1 (append fglst1 (list dxf10 )))
(setq n (1+ n))
)
(setq fglst (append fglst (list fglst1 )))
(setq fglst1 nil)
(setq i(1+ i))
)
)
;;;;;;;;;;;;;;;;;对直线的起点和终点进行处理，使角度均小于pi;;;;;;;;;;;;;;;;;;;
(defun changedxf10<->11(s)
(cond((or(> (cadr (cdr(assoc 10 s))) (cadr (cdr(assoc 11 s))))
(and(= (cadr (cdr(assoc 10 s))) (cadr (cdr(assoc 11 s))))
(>(car (cdr(assoc 10 s))) (car (cdr(assoc 11 s)))))
)
(setq s(subst (cons 12 (cdr(assoc 10 s))) (assoc 10 s) s))
(setq s(subst (cons 10 (cdr(assoc 11 s))) (assoc 11 s) s))
(setq s(subst (cons 11 (cdr(assoc 12 s))) (assoc 12 s) s))
(entmod s)
)
)
(setq ss s)
)
;;;;;;;;;;;;;;;;;;;;;ocs->wcs;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun ocs->wcs(p1 shuzu )
(setq shuzu_nth0 (nth 0 shuzu) shuzu_nth1 (nth 1 shuzu) shuzu_nth2 (nth 2 shuzu) shuzu_nth3 (nth 3 shuzu))
(setq trans_point (list (+(*(car p1)(car shuzu_nth0))(*(cadr p1)(cadr shuzu_nth0))(*(caddr p1)(caddr shuzu_nth0))(cadddr shuzu_nth0) )
(+(*(car p1)(car shuzu_nth1))(*(cadr p1)(cadr shuzu_nth1))(*(caddr p1)(caddr shuzu_nth1))(cadddr shuzu_nth1) )
(+(*(car p1)(car shuzu_nth2))(*(cadr p1)(cadr shuzu_nth2))(*(caddr p1)(caddr shuzu_nth2))(cadddr shuzu_nth2) )
)
)
(setq point_e trans_point)
)
;;;;;;;;;;;;;;;;3Dpoint->2Dpoint;;;;;;;;;;;;;;;;;;;;;;;
(defun 3d->2d(p)
(setq p (list(car p)(cadr p)0.0))
)
(princ "\n 软绵绵绘制平分线程序，BY YJR111 命令:pfx")

;;;;;;;;;;;;;;软绵绵绘制平分线;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
;;;;;;;;;;;;;BY YJR111 2011-11-19;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
;;;;;;;;;;;;;可自由传播，但请保留原著者信息，谢谢!;;;;;;;;;;; 
(defun c:pfx(/ fglst please input others youself 3q vla_e1 vla_e2) 
  (vl-load-com) 
  (SETQ oldosmode(GETVAR  "OSMODE" )) 
  (SETQ oldltscale(GETVAR  "ltscale" )) 
  (SETQ oldceltscale(GETVAR  "celtscale" )) 
  (setvar "cmdecho" 0) 
  (setvar "osmode" 0) 
  (setvar "ltscale" 1) 
  (setvar "celtscale" 1) 
  (setvar "cecolor" "1");;;;颜色红色 
  (command "linetype" "s" "center" "");;;;线型center 
  (setq sss(ssadd)) 
  (setq myms(vla-get-modelspace (setq mydoc(vla-get-activedocument(vlax-get-acad-object))));;;模型空间 
        myss(vla-get-SelectionSets mydoc) 
        myutility(vla-get-utility mydoc) 
        mylayer(vla-get-layers mydoc) 
        mylinetypes(vla-get-linetypes mydoc)) 
  (initget 6) 
  (if (and(=(type *num_fenge*)'int)*num_fenge*) (setq num_fenge (getint (strcat "\n请选择平分的数目<" (rtos *num_fenge* 2 0)">"))) 
                  (progn(setq num_fenge (getint  "\n请选择平分的数目" )) 
                        (if (/=(type num_fenge)'int)(progn 
                          (princ"\n输入的数字类型不对，请输入整数!") 
                            (setq num_fenge (getint  "\n请选择平分的数目" )))) 
  ) 
   ) 
  (if (not num_fenge)(setq num_fenge *num_fenge*)(setq *num_fenge* num_fenge )) 
  (while(and(setq e1 (car(setq nentsel_e1(nentselp"\n请选择第一条线<右键退出>:")))) 
        (setq e2 (car(setq nentsel_e2(nentselp"\n请选择第二条线<右键退出>:"))))) 
  (setq point_e1 (cadr nentsel_e1)) 
  (setq s1 (entget e1)) 
  (setq point_e2 (cadr nentsel_e2)) 
  (setq s2 (entget e2)) 
  (setq vla_e1(vlax-ename->vla-object e1)) 
  (setq vla_e2(vlax-ename->vla-object e2)) 
    (if (<= (length nentsel_e1) 2) 
       (setq point_e1(vlax-curve-getClosestPointTo vla_e1 point_e1 )) 
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;OCS和WCS之间的转换;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
      (progn 
      (setq vla_ee1 (vlax-ename->vla-object(caar(reverse nentsel_e1))) 
            xsca(vla-get-XScaleFactor vla_ee1) 
            ysca(vla-get-YScaleFactor vla_ee1) 
            zsca(vla-get-ZScaleFactor vla_ee1) 
            rto(vla-get-rotation vla_ee1) 
            insertp(cdr(assoc 10(entget(caar(reverse nentsel_e1)))))) 
             (setq shuzu1 (caddr nentsel_e1)) 
             (setq variant_shuzu1 (vlax-make-safearray  vlax-vbDouble '(0 . 3)'(0 . 3) )) 
             (command "undo" "be" ) 
             (vlax-safearray-fill variant_shuzu1 shuzu1) 
             (vla-transformby vla_e1 variant_shuzu1) 
             (command "undo" "e" ) 
             (setq point_e1(vlax-curve-getClosestPointTo vla_e1 point_e1 )) 
             (command "undo" 1 ) 
            ) 
      )         
    (if (<= (length nentsel_e2) 2) 
      (setq point_e2(vlax-curve-getClosestPointTo vla_e2 point_e2 )) 
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;OCS和WCS之间的转换;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
      (progn 
      (setq vla_ee2 (vlax-ename->vla-object(caar(reverse nentsel_e2))) 
            xsca(vla-get-XScaleFactor vla_ee2) 
            ysca(vla-get-YScaleFactor vla_ee2) 
            zsca(vla-get-ZScaleFactor vla_ee2) 
            rto(vla-get-rotation vla_ee2) 
            insertp(cdr(assoc 10(entget(caar(reverse nentsel_e2)))))) 
             (setq shuzu2 (caddr nentsel_e2)) 
             (setq variant_shuzu2 (vlax-make-safearray  vlax-vbDouble '(0 . 3)'(0 . 3) )) 
             (command "undo" "be" ) 
             (vlax-safearray-fill variant_shuzu2 shuzu2) 
             (vla-transformby vla_e2 variant_shuzu2) 
             (command "undo" "e" ) 
             (setq point_e2(vlax-curve-getClosestPointTo vla_e2 point_e2 )) 
             (command "undo" 1 ) 
            ) 
      ) 
  (if (=(vla-get-objectname vla_e1)"AcDbLine" ) 
  (progn 
  (changedxf10<->11  s1) 
  (entupd e1) 
  (setq s1 ss ss nil ) 
  (setq dxf10_e1(cdr (assoc 10 s1)) 
        dxf11_e1(cdr (assoc 11 s1))) 
  (setq vla_e1_ang(vla-get-angle vla_e1)) 
  )) 
  (if (=(vla-get-objectname vla_e2)"AcDbLine" ) 
  (progn 
  (changedxf10<->11  s2) 
  (entupd e2) 
  (setq s2 ss ss nil) 
  (setq dxf10_e2(cdr (assoc 10 s2)) 
        dxf11_e2(cdr (assoc 11 s2))) 
  (setq vla_e2_ang(vla-get-angle vla_e2)) 
  )) 
    (if (=(vla-get-objectname vla_e1)"AcDbPolyline" ) 
    (progn 
        (setq pline1_dxf10(vla-get-coordinates vla_e1)) 
        (setq dxf_e1 (vlax-safearray->list(vlax-variant-value pline1_dxf10))) 
        (setq  fglst nil) 
        (fgb dxf_e1) 
        (setq dxf10_lst fglst n 0) 
        (if (> (length nentsel_e1) 2) 
          (progn 
        (setq dxf10_lst(mapcar (function(lambda(x)(trans  x (caar(reverse nentsel_e1)) 0)))dxf10_lst));;;;;;;增加Z坐标 
        (setq dxf10_lst(mapcar (function(lambda(x)(ocs->wcs x shuzu1);;;;;;;;;多段线顶点坐标列表转换到WCS 
                                          ) 
                                        ) 
                                                       dxf10_lst)) 
        )) 
        (while(< n (length dxf10_lst)) 
                (cond ((< n (1-(length dxf10_lst)))(setq nthn1 (nth n dxf10_lst))(setq nthn2 (nth (1+ n) dxf10_lst))) 
                      ((= n (1-(length dxf10_lst)))(setq nthn1 (nth n dxf10_lst))(setq nthn2 (nth 0 dxf10_lst))) 
                ) 
          (setq point_ee1(vlax-curve-getClosestPointTo (setq vla_e1(vla-addline myms (vlax-3d-point nthn1)(vlax-3d-point nthn2)))point_e1 )) 
                (if (not (and(equal (car point_e1)(car point_ee1) 1e-3)(equal (cadr point_e1)(cadr point_ee1) 1e-3)(equal (caddr point_e1)(caddr point_ee1) 1e-3))) 
                (progn 
                (vla-delete vla_e1);;;;;删除辅助线 
                (setq n(1+ n)) 
                ) 
                (progn 
                (setq e1(vlax-vla-object->ename vla_e1)) 
                (setq s1 (entget e1)) 
                (setq sss (ssadd)) 
                (setq sss(ssadd e1 sss )) 
                (setq n (length dxf10_lst));;;;;;;确保找到后退出循环 
                ) 
                ) 
         ) 
  (if (=(vla-get-objectname vla_e1)"AcDbLine" ) 
  (progn 
  (changedxf10<->11 s1);;;;;;直线起点终点统一方向 
  (setq s1 ss ss nil) 
  (entupd e1) 
  (setq dxf10_e1(cdr (assoc 10 s1)) 
        dxf11_e1(cdr (assoc 11 s1))) 
  (setq vla_e1_ang(vla-get-angle vla_e1)) 
  ))                         
       ) 
  ) 
 
  (if (=(vla-get-objectname vla_e2)"AcDbPolyline" ) 
    (progn 
        (setq pline2_dxf10(vla-get-coordinates vla_e2)) 
        (setq dxf_e2 (vlax-safearray->list(vlax-variant-value pline2_dxf10))) 
        (setq  fglst nil) 
        (fgb dxf_e2);;;;分割多段线顶点列表 
        (setq dxf10_lst fglst n 0) 
        (if (> (length nentsel_e2) 2) 
          (progn 
             (setq dxf10_lst(mapcar (function(lambda(x)(trans  x (caar(reverse nentsel_e2)) 0)))dxf10_lst)) 
        (setq dxf10_lst(mapcar (function(lambda(x)(ocs->wcs x shuzu2) 
                                          ) 
                                        ) 
                                                       dxf10_lst)) 
        )) 
        (while(< n (length dxf10_lst)) 
                (cond ((< n (1-(length dxf10_lst)))(setq nthn1 (nth n dxf10_lst))(setq nthn2 (nth (1+ n) dxf10_lst))) 
                      ((= n (1-(length dxf10_lst)))(setq nthn1 (nth n dxf10_lst))(setq nthn2 (nth 0 dxf10_lst))) 
                ) 
  ;;;;;;怪事了，点表比较时就算一模一样也会认为不一样，不知道怎么回事,只能XYZ各个比较了;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
             (setq point_ee2(vlax-curve-getClosestPointTo (setq vla_e2(vla-addline myms (vlax-3d-point nthn1)(vlax-3d-point nthn2)))point_e2 )) 
                (if (not (and(equal (car point_e2)(car point_ee2) 1e-3)(equal (cadr point_e2)(cadr point_ee2) 1e-3)(equal (caddr point_e2)(caddr point_ee2) 1e-3))) 
                ;(vlax-curve-getClosestPointTo (setq vla_e2(vla-addline myms (vlax-3d-point nthn1)(vlax-3d-point nthn2)))point_e2 ))) 
                (progn 
                (vla-delete vla_e2) 
                (setq n(1+ n)) 
                ) 
                (progn 
                (setq e2(vlax-vla-object->ename vla_e2)) 
                (setq s2 (entget e2)) 
                (setq sss(ssadd e2 sss )) 
                (setq n (length dxf10_lst)) 
                ) 
                                     ) 
                           ) 
  (if (=(vla-get-objectname vla_e2)"AcDbLine" ) 
  (progn 
  (changedxf10<->11  s2) 
  (entupd e2) 
  (setq s2 ss ss nil) 
  (setq dxf10_e2(cdr (assoc 10 s2)) 
        dxf11_e2(cdr (assoc 11 s2))) 
  (setq vla_e2_ang(vla-get-angle vla_e2)) 
  )) 
 
       )    
   ) 
 
 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;当角度相等时;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
    (cond((or(EQUAL  vla_e1_ang vla_e2_ang 1E-4) 
             (EQUAL (abs(-  vla_e1_ang vla_e2_ang )) pi 1e-4)) 
          
          ;;;;;;;;;;;;;;;;;;可按要求数量平分距离;;;;;;;;;;;;;;;;;;;;;;;;;;; 
           (setq n 1) 
           (repeat (1- *num_fenge*) 
            
             (if (and(=(cdr(assoc 0(entget(car nentsel_e1))))"LINE" )(=(cdr(assoc 0(entget(car nentsel_e2))))"LINE" ) 
                     (/=(last (cadr shuzu1))0)(/=(last (cadr shuzu2))0)(> (length nentsel_e1) 2)(> (length nentsel_e2) 2)) 
             (progn 
             (command "undo" "be" ) 
             (vlax-safearray-fill variant_shuzu1 shuzu1) 
             (vla-transformby vla_e1 variant_shuzu1) 
              (vlax-safearray-fill variant_shuzu2 shuzu2) 
             (vla-transformby vla_e2 variant_shuzu2) 
             (command "undo" "e" ) 
             (setq point_e1_start(3d->2d(vlax-safearray->list(vlax-variant-value(vla-get-startpoint vla_e1  ))))) 
             (setq point_e1_end(3d->2d(vlax-safearray->list(vlax-variant-value(vla-get-endpoint vla_e1  ))))) 
              (if (>(cadr point_e1_start)(cadr point_e1_end))(progn 
                (setq point_e1_start(list (car point_e1_start)(cadr point_e1_end)0.0)) 
                (setq point_e1_end(list (car point_e1_end)(cadr point_e1_start)0.0)) 
                )) 
             (setq point_e2_start(3d->2d(vlax-safearray->list(vlax-variant-value(vla-get-startpoint vla_e2  ))))) 
             (setq point_e2_end(3d->2d(vlax-safearray->list(vlax-variant-value(vla-get-endpoint vla_e2  ))))) 
             (if (>(cadr point_e2_start)(cadr point_e2_end))(progn 
                (setq point_e2_start(list (car point_e2_start)(cadr point_e2_end)0.0)) 
                (setq point_e2_end(list (car point_e2_end)(cadr point_e2_start)0.0)) 
                )) 
             (command "undo" 1 ) 
             (setq myline(vla-addline myms (vlax-3d-point point_e1_start)(vlax-3d-point point_e1_end))) 
             (setq dist_num(/(distance dxf10_e1 dxf10_e2) *num_fenge* )) 
             (vla-move myline  (vlax-3d-point point_e1_start) (vlax-3d-point(polar point_e1_start (angle point_e1_start point_e2_start) (* dist_num n)))) 
             
             ) 
              (progn 
             (setq myline(vla-copy  vla_e1)) 
             (setq dist_num(/(distance dxf10_e1 dxf10_e2) *num_fenge* )) 
             (vla-move myline  (vlax-3d-point dxf10_e1) (vlax-3d-point(polar dxf10_e1 (angle dxf10_e1 dxf10_e2) (* dist_num n)))) 
             
             ) 
               ) 
             (setq n (1+ n)) 
             ) 
          (princ (strcat "\n 平分后间距为" (rtos dist_num 2 2) )) 
         ) 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;当角度不相等时;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
         ((and(/= vla_e1_ang vla_e2_ang)(wcmatch(vla-get-objectname vla_e1)"*Line" )) 
          (if (setq inters_e1_e2 (inters dxf10_e1 dxf11_e1 dxf10_e2 dxf11_e2 )) 
              (progn 
              (setq myline1 (vla-addline myms (vlax-3d-point inters_e1_e2) (vlax-3d-point point_e1))) 
              (setq myline1_ang(vla-get-angle myline1)) 
               
              (setq myline2 (vla-addline myms (vlax-3d-point inters_e1_e2) (vlax-3d-point point_e2))) 
              (setq myline2_ang(vla-get-angle myline2)) 
               
              (if (or(and(>= myline1_ang pi )(>= myline2_ang pi ))(and(<= myline1_ang pi )(<= myline2_ang pi )) 
                     (and (> myline1_ang (/ pi 2))(< myline1_ang myline2_ang)) 
                     (and(> myline1_ang myline2_ang)(> (* 1.5 pi) myline1_ang pi ))) 
              (setq  inters_angle (- myline1_ang  myline2_ang)) 
                (progn 
                (if (< myline1_ang myline2_ang) 
               (setq  inters_angle (- myline1_ang  (- myline2_ang (* 2 pi)))) 
               (setq  inters_angle (-(- myline1_ang (* 2 pi)) myline2_ang )) 
               ) 
               ) 
                ) 
;;;              (vla-rotate myline1 (vlax-3d-point inters_e1_e2) (* -1(/ inters_angle 2))) 
              ;;;;;;;;;;;;;;;;;;可按要求数量平分角度;;;;;;;;;;;;;;;;;;;;;;;;;;; 
              (repeat (1- *num_fenge*) 
              (setq angle_num (* -1(/ inters_angle *num_fenge*))) 
              (vla-rotate myline1 (vlax-3d-point inters_e1_e2)  angle_num) 
              (setq myline1(vla-copy myline1)) 
              ) 
              (vla-delete myline2) 
              (princ (strcat "\n 平分后角度为" (rtos (abs(*(/ angle_num pi)180)) 2 2) )) 
              ) 
              (progn 
              (if (setq inters_e1_e2 (inters dxf10_e1 dxf11_e1 dxf10_e2 dxf11_e2 nil)) 
              (progn 
            (princ"\n无交点的两条线仅考虑一条平分线，与平分数量无关!也不影响平分数量的输入!") 
            (setq inters_e1_angle (angle inters_e1_e2 dxf10_e1)) 
            (setq inters_e2_angle (angle inters_e1_e2 dxf10_e2)) 
            (if (> inters_e1_angle inters_e2_angle) 
            (setq myline(vla-addline myms (vlax-3d-point inters_e1_e2) 
                        (vlax-3d-point(polar inters_e1_e2 (setq inters_angle(+(/(- inters_e1_angle inters_e2_angle)2)inters_e2_angle))(vla-get-length vla_e1))))) 
            (setq myline(vla-addline myms (vlax-3d-point inters_e1_e2) 
                        (vlax-3d-point(polar inters_e1_e2 (setq inters_angle(+(/(- inters_e2_angle inters_e1_angle)2)inters_e1_angle))(vla-get-length vla_e1))))) 
            ) 
            (vla-move myline (vlax-3d-point inters_e1_e2) (if (>= inters_angle  pi ) 
                                                              (vlax-3d-point (polar dxf11_e1 (angle dxf11_e1 dxf11_e2)(/(distance dxf11_e1 dxf11_e2)2))) 
                                                              (vlax-3d-point (polar dxf10_e1 (angle dxf10_e1 dxf10_e2)(/(distance dxf10_e1 dxf10_e2)2)))) ) 
           ) 
            ) 
              (princ (strcat "\n 平分后角度为" (rtos (abs(*(/ (if (> inters_angle pi)(setq inters_angle (- inters_angle (* 1.5 pi) ))inters_angle)pi) 180)) 2 2) )) 
          ) 
          ) 
 
          ) 
          ) 
  (if (or(=(vla-get-objectname vla_e1)"AcDbCircle" )(=(vla-get-objectname vla_e1)"AcDbArc" )) 
  (progn 
  (setq center (vla-get-center vla_e1) 
        radius (vla-get-radius vla_e1) 
     ) 
  (cond((=(vla-get-objectname vla_e1)"AcDbArc" ) 
  (setq myline (vla-addline myms center (vla-get-startpoint vla_e1)) 
        angle_total  (vla-get-totalangle vla_e1)) 
    ) 
       (t(setq myline (vla-addline myms center (vlax-3d-point point_e1)) 
               angle_total  (* pi 2))) 
     ) 
  (setq n 1) 
  (repeat (1- *num_fenge*) 
  (setq myline(vla-copy  myline)) 
  (setq angle_num (/  angle_total   *num_fenge*)) 
  (vla-rotate myline center angle_num) 
   (setq n (1+ n)) 
  ) 
  (princ (strcat "\n 平分后角度为" (rtos (abs(*(/ angle_num pi)180)) 2 2) )) 
    ) 
    ) 
 
 ;;;;;;;;;;;;;;;;;;;;删除根据多段线复制出的局部线段;;;;;;;;;;;;;;;;;;;;;;;;;; 
    (setq n 0) 
    (if (>(sslength sss)0) 
    (repeat (sslength sss) 
    (command "erase" (ssname sss n) "") 
      (setq n(1+ n)) 
      ) 
    ) 
     ) 
   (SETvar  "osmode" oldosmode) 
   (SETvar  "ltscale" oldltscale) 
  (princ "\n 谢谢使用软绵绵绘制平分线， by yjr111") 
   (princ) 
  ) 
 
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;将表内元素每2个进行分割重新组表;;;;;;;;;;;;;;;;;;;;;;;;; 
;;;(setq lst '(20882.6 12429.7 35344.0 12429.7 35344.0 8473.39 20882.6 8473.39)) 
;;;(fgb lst) ((20882.6 12429.7)(35344.0 12429.7)(35344.0 8473.39)(20882.6 8473.39)) 
(defun fgb(lst / fglst1 dxf10 n) 
(setq n 0 i 0) 
(repeat (/(length lst)2) 
   (repeat 2 
    (setq  dxf10 (nth n lst)) 
    (setq fglst1 (append fglst1 (list dxf10 ))) 
    (setq n (1+ n)) 
    ) 
  (setq fglst (append  fglst (list fglst1 ))) 
  (setq fglst1 nil) 
  (setq i(1+ i)) 
  ) 
  ) 
;;;;;;;;;;;;;;;;;对直线的起点和终点进行处理，使角度均小于pi;;;;;;;;;;;;;;;;;;; 
 (defun changedxf10<->11(s) 
 (cond((or(> (cadr (cdr(assoc 10 s))) (cadr (cdr(assoc 11 s)))) 
          (and(= (cadr (cdr(assoc 10 s))) (cadr (cdr(assoc 11 s)))) 
          (>(car (cdr(assoc 10 s))) (car (cdr(assoc 11 s))))) 
          ) 
      (setq s(subst (cons 12 (cdr(assoc 10 s))) (assoc 10 s) s)) 
      (setq s(subst (cons 10 (cdr(assoc 11 s))) (assoc 11 s) s)) 
      (setq s(subst (cons 11 (cdr(assoc 12 s))) (assoc 12 s) s)) 
      (entmod s) 
 
   ) 
    ) 
   (setq ss s) 
    ) 
;;;;;;;;;;;;;;;;;;;;;ocs->wcs;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
(defun ocs->wcs(p1 shuzu ) 
      (setq shuzu_nth0 (nth 0 shuzu) shuzu_nth1 (nth 1 shuzu) shuzu_nth2 (nth 2 shuzu) shuzu_nth3 (nth 3 shuzu)) 
      (setq trans_point (list (+(*(car p1)(car shuzu_nth0))(*(cadr p1)(cadr shuzu_nth0))(*(caddr p1)(caddr shuzu_nth0))(cadddr shuzu_nth0) ) 
                     (+(*(car p1)(car shuzu_nth1))(*(cadr p1)(cadr shuzu_nth1))(*(caddr p1)(caddr shuzu_nth1))(cadddr shuzu_nth1) ) 
                     (+(*(car p1)(car shuzu_nth2))(*(cadr p1)(cadr shuzu_nth2))(*(caddr p1)(caddr shuzu_nth2))(cadddr shuzu_nth2) ) 
                ) 
      ) 
    (setq point_e trans_point) 
    ) 
;;;;;;;;;;;;;;;;3Dpoint->2Dpoint;;;;;;;;;;;;;;;;;;;;;;; 
(defun 3d->2d(p) 
  (setq p (list(car p)(cadr p)0.0)) 
  ) 
(princ "\n 软绵绵绘制平分线程序，BY YJR111 命令:pfx")

newer · 发表于 2017-5-17 18:51:58

你这问题让人不好回答啊，得仔细的看代码啊。

明天你好 · 发表于 2017-5-17 19:00:34

newer 发表于 2017-5-17 18:51

呵呵，是要看代码
本人能力差，太码又太长，看得头晕了

感觉有平分圆弧和圆，但是圆弧和圆怎么平分呢？

newer · 发表于 2017-5-17 19:04:52

也就是平分线，没其他什么功能
而且不相交的，画的也不对

搜狗截图20170517190332.png

另外，楼主，再贴代码，先用VLIDE美化下代码，然后用发帖界面下排倒数第四个按钮专门贴代码用的，你试试。别这么贴一整个页面。

newer · 发表于 2017-5-17 19:11:32

明天你好发表于 2017-5-17 19:00

弧线即使选两条，它也只给第一条弧线平分下

搜狗截图20170517190935.png

这代码你还是少看，......

明天你好 · 发表于 2017-5-17 19:18:21

据说这是一个大师的代码....

我浏览器好像有问题，点<> code 没反应，版主帮我修改下吧

newer · 发表于 2017-5-17 19:23:46

明天你好发表于 2017-5-17 19:18

你得学会贴代码，不用那个按钮，你可以
把代码放到 {code=lisp}{/code}之间， { 贴的时候，换成 [ , }换成 ]

如你这么说，这代码也是大师小时候写的。

Lisphk · 发表于 2017-5-17 22:10:54

看这样的代码累，缺乏层次，很多功能应该设计成函数调用，主程序根据条件分之处理，这样代码容易维护，让人容易看懂。

cable2004 · 发表于 2017-5-17 23:24:18

有没有平分空间三点的角平分线的函数

marting · 发表于 2017-5-18 00:07:59

本帖最后由 marting 于 2017-5-18 00:48 编辑

cable2004 发表于 2017-5-17 23:24

不管怎么空间，三点都决定一个平面，两边单位向量相加，就是角分线的单位向量

;;;-----------------------------------------------------------;;
;;; 两向量相加 addition ;;
;;; Input: v1,v2 -vectors in R^n ;;
;;; OutPut: A vector ;;
;;;-----------------------------------------------------------;;
(defun XD::Vec:v+v (v1 v2)
(mapcar '+ v1 v2)
)
;;;-----------------------------------------------------------;;
;;; 单位向量 ;;
;;; Unit Vector ;;
;;; Args: v - vector in R^n ;;
;;;-----------------------------------------------------------;;
(defun XD::Vec:Normalize (v)
((lambda (n)
(if (equal 0.0 n 1e-14)
nil
(XD::VEC:v*s v (/ 1.0 n))
)
)
(XD::VEC:length v)
)
)
;;;-----------------------------------------------------------;;
;;; 向量乘标量(系数) ;;
;;; Vector x Scalar ;;
;;; Args: v - vector in R^n, s - real scalar ;;
;;;-----------------------------------------------------------;;
(defun XD::Vec:v*s (v s)
(mapcar (function (lambda (n) (* n s))) v)
)
;;;-----------------------------------------------------------;;
;;; 向量的模(长度) ;;
;;; Vector Norm ;;
;;; Args: v - vector in R^n ;;
;;;-----------------------------------------------------------;;
(defun XD::Vec:length (v)
(sqrt (apply '+ (mapcar '* v v)))
)

;;;-----------------------------------------------------------;; 
;;; 两向量相加 addition                                       ;; 
;;; Input: v1,v2 -vectors in R^n                              ;; 
;;; OutPut: A vector                                          ;; 
;;;-----------------------------------------------------------;; 
(defun XD::Vec:v+v (v1 v2) 
  (mapcar '+ v1 v2) 
) 
;;;-----------------------------------------------------------;; 
;;; 单位向量                                                      ;; 
;;; Unit Vector                                               ;; 
;;; Args: v - vector in R^n                                      ;; 
;;;-----------------------------------------------------------;; 
(defun XD::Vec:Normalize (v) 
  ((lambda (n) 
     (if (equal 0.0 n 1e-14) 
       nil 
       (XD::VEC:v*s v (/ 1.0 n)) 
     ) 
   ) 
    (XD::VEC:length v) 
  ) 
) 
;;;-----------------------------------------------------------;; 
;;; 向量乘标量(系数)                                              ;; 
;;; Vector x Scalar                                                 ;; 
;;; Args: v - vector in R^n, s - real scalar                ;; 
;;;-----------------------------------------------------------;; 
(defun XD::Vec:v*s (v s) 
  (mapcar (function (lambda (n) (* n s))) v) 
) 
;;;-----------------------------------------------------------;; 
;;; 向量的模(长度)                                              ;; 
;;; Vector Norm                                                        ;; 
;;; Args: v - vector in R^n                                      ;; 
;;;-----------------------------------------------------------;; 
(defun XD::Vec:length (v) 
  (sqrt (apply '+ (mapcar '* v v))) 
)

(defun jfx (p1 p2 p3)
(setq v1 (mapcar '- p1 p2)
v2 (mapcar '- p3 p2)
vx (xd::vec:v+v v1 v2)
len (xd::vec:length vx)
v1 (xd::vec:normalize v1)
v2 (xd::vec:normalize v2)
vx (xd::vec:v+v v1 v2)
vx (xd::vec:normalize vx)
)
(list p2 (mapcar '+ p2 (xd::vec:v*s vx len)))
)

sicky111 · 发表于 2017-5-18 00:09:30

谢谢分享。

明天你好 · 发表于 2017-5-18 08:23:19

marting 发表于 2017-5-18 00:07

如果要做N等分呢

明天你好 · 发表于 2017-5-18 11:10:14

newer 发表于 2017-5-17 19:23

版主，要做到上图两种情景的均分，有什么方法和思路呢？

newer · 发表于 2017-5-18 11:31:58

明天你好发表于 2017-5-18 11:10

上面矩阵的函数都给你了

1、两向量的点积，等于两向量的夹角夹角余弦，用反余弦函数，就能求得夹角
2、夹角除以等分数，就能得到几等分后的一个夹角，然后你用向量旋转角度就可以很方便的求另一个点
循环等分数，夹角乘以倍数，算第二个，第N个夹角.....

两个向量平行（平行线，你图二），向量点积=1.0

这个你就多次OFFSET就行了，论坛有代码，用OFFSET搜索论坛。

建议你搜索下论坛和网络，找向量的几何意义方面的文献看看。

http://bbs.xdcad.net/thread-677302-1-1.html

http://bbs.xdcad.net/thread-451891-1-1.html

用计算几何搜索论坛，看看算**坛的一些知识。

newer · 发表于 2017-5-18 12:00:54

这有个计算几何常用算法，看看

http://bbs.xdcad.net/thread-704410-1-1.html

矩阵，向量的LISP函数，论坛都有

账号		自动登录	找回密码
密码			立即注册

[研讨] 平分线的原理

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。