[编程申请]：点击第一条线,再点击第二条线,则第二条线变化到第一条线的延长线上

lengliqun

点击第一条线（line）,再点击第二条线（line）,则第二条线变化到第一条线的延长线上。
(说明：第二条线没改变前可能与第一条线平行，也可能不平行，但都位于XY平面内。有点难度吧，嘿嘿......)

playboy

难度大
不过我们现在用的软件有这个功能

lengliqun

我们现在用的哪个软件有这个功能？

playboy

那个软件是没有破解的
cmap你听说过吗
我们用的就是这个

yangjr

我以前用r12时编个一个和你要求差不多的，因为不常用找了找没有找着，我把思路写上你自己编一个吧。
1、判断两条线是否平行（方位角相等），如果不平行则做下一步
2、求两条线的交点（虚交点）
3、第二条线的起点到交点（虚交点）画线，删除原来的第二条线。

lengliqun

我只知道使用，不懂编程，大家帮帮忙啦。

yangjr

找到一个，用了一下还行。
;;线到线连直线   
(defun C:LXX (/ pw1 pw2 fg1 fg2 fg3 fg4 pt pt1 pt2 fgg fgg1 fgg3)
    (setvar "CMDECHO" 0)
    (setq fgg nil)
    (setq fg1 (entsel "\n选择基线:"))                     
    (setq fg4 (entget (car fg1)))       
    (setq pt1 (cdr (assoc 10 fg4)))       
    (setq pt2 (cdr (assoc 11 fg4)))
    (setq fgg1 (entsel "\n选择延伸线:"))                     
    (setq fgg4 (entget (car fgg1)))       
    (setq pw1 (cdr (assoc 10 fgg4)))       
    (setq pw2 (cdr (assoc 11 fgg4)))       
    (setq fgg (inters pt1 pt2 pw1 pw2 nil))
    (command "line" pw1 fgg "")
    (if (/= fgg nil) (command "ERASE" fgg1 "")
   (command "FILLET" fg1 fgg1)
   )
   (princ)
  )

eachy

最初由 yangjr 发布
[B]找到一个，用了一下还行。
;;线到线连直线   
(defun C:LXX (/ pw1 pw2 fg1 fg2 fg3 fg4 pt pt1 pt2 fgg fgg1 fgg3)
    (setvar "CMDECHO" 0)
    (setq fgg nil)
    (setq fg1 (entsel "\n选择基线:"))     ... [/B]

用 Extend 的 Edge 选项。

yangjr

按斑竹提示新写了一个，简单多啦。
;;线到线连直线   
(defun C:LXX (/ fg1 fgg1)
    (setvar "CMDECHO" 0)
    (setq fg1 (entsel "\n选择基线:"))                     
    (setq fgg1 (entsel "\n选择延伸线:"))                          
    (command "EXTEND" fg1 "" "Edge" "e" fgg1 "")
   (princ)
  )

shenqifei

与九楼楼主相同的意见。我的就是这样编的，CAD里大部分命令二级子命令包含了许多指令。根本不用新编，只需按自己常用或习惯来改进一下即可。