[编程申请]：扩展目标捕捉命令FROM的功能

LIFUPING

要求改进目标捕捉命令FROM

eachy

最初由 LIFUPING 发布
[B]要求改进目标捕捉命令FROM [/B]

不知理解的对不对。

2. 
   
3. (defun XDTB:From (/ e p1 p2 dis dis1 dis2 dist p)
   
4.   (xdrx_sysVar_Push "osmode")
   
5.   (setq e (xdrx_entsel "\n请选取曲线实体<退出>:"))
   
6.   (if (and
   
7.         e
   
8.         (listp e)
   
9.       )
   
10.     (progn
    
11.       (setq e (car e))
    
12.       (setvar "osmode" 512)
    
13.       (if (and
    
14.             (setq
    
15.               p1 (xdrx_curve_getClosestPoint e (getvar "lastpoint"))
    
16.             )
    
17.             (setq dis (getdist "\n间 距: "))
    
18.             (setq p2 (getpoint p1 "\n方向点: "))
    
19.           )
    
20.         (progn
    
21.           (setq        p2   (xdrx_curve_getClosestPoint e p2)
    
22.                 dis1 (xdrx_curve_getdistatpoint e p1)
    
23.                 dis2 (xdrx_curve_getdistatpoint e p2)
    
24.           )
    
25.           (if (> dis1 dis2)
    
26.             (setq dist (- dis1 dis))
    
27.             (setq dist (+ dis1 dis))
    
28.           )
    
29.           (setq p (xdrx_curve_getpointatdist e dist))
    
30.         )
    
31.       )
    
32.     )
    
33.   )
    
34.   (xdrx_sysvar_pop)
    
35.   p
    
36. )
    
37. (defun c:XDTB_From ()(xdtb:from) (princ))
    

<br /> (defun XDTB:From (/ e p1 p2 dis dis1 dis2 dist p)<br />   (xdrx_sysVar_Push "osmode")<br />   (setq e (xdrx_entsel "\n请选取曲线实体<退出>:"))<br />   (if (and<br />         e<br />         (listp e)<br />       )<br />     (progn<br />       (setq e (car e))<br />       (setvar "osmode" 512)<br />       (if (and<br />             (setq<br />               p1 (xdrx_curve_getClosestPoint e (getvar "lastpoint"))<br />             )<br />             (setq dis (getdist "\n间 距: "))<br />             (setq p2 (getpoint p1 "\n方向点: "))<br />           )<br />         (progn<br />           (setq        p2   (xdrx_curve_getClosestPoint e p2)<br />                 dis1 (xdrx_curve_getdistatpoint e p1)<br />                 dis2 (xdrx_curve_getdistatpoint e p2)<br />           )<br />           (if (> dis1 dis2)<br />             (setq dist (- dis1 dis))<br />             (setq dist (+ dis1 dis))<br />           )<br />           (setq p (xdrx_curve_getpointatdist e dist))<br />         )<br />       )<br />     )<br />   )<br />   (xdrx_sysvar_pop)<br />   p<br /> )<br /> (defun c:XDTB_From ()(xdtb:from) (princ))<br />

LIFUPING

似乎有问题吧，我所要求的命令，其执行过程、作用跟CAD目标捕捉命令FROM都一样，只不过FROM是沿直线方向确定相对于直线上某点一定距离的位置处，而所要求的命令S-FROM是沿曲线方向确定相对于曲线上某点一定长度的位置处。（该命令是透明执行命令）
    最好请阁下先在CAD中执行一下FROM命令，如上图直线一，要在直线上相对A点L处画圆：
1、先执行圆命令，命令栏提示确定基点；
2、执行FROM命令，提示-FROM 基点；
3、拾取A点，提示 -FROM 基点：偏移；
4、利用捕捉将光标置于直线上，并输入偏移距离值；
5、确定圆半径画圆。

eachy

最初由 LIFUPING 发布
[B]似乎有问题吧，我所要求的命令，其执行过程、作用跟CAD目标捕捉命令FROM都一样，只不过FROM是沿直线方向确定相对于直线上某点一定距离的位置处，而所要求的命令S-FROM是沿曲线方向确定相对于曲线上某点一定长度的位?.. [/B]

有些东西可以通过编程达到，有些恐怕只有期望Autodesk公司来解决了。既然沿曲线，可能会有第一次点在两条或几条曲线的交点处，下一个点究竟沿那条曲线呀？
我这菜鸟只能作到这样，看看那位高手还有办法。

LIFUPING

第二次拾取点通过捕捉命令（如最近点捕捉）将光标置于所在目标曲线上，应该容易办到。