如何在框选线段的端点插入块

qcw911

如题

如果框选上端，也能画圆或者插入块

weijiewen

框选直线端点插块，非常实用！

goldwheat

我下载了，上面的程序，作到工作中，有不小的帮助。

357785513

這個問題提得好,有創意,但不会写呀

xyp1964

vlax-curve-getStartPoint
insert

为什么任兵

看看是你想要的吗？？
命令 tt13

357785513

格下的程序一定是人家不想要的,要是能识别交点不就就好了如图所示,
所以P1 AND P2有可能都要加

qcw911

为什么任兵 发表于 2013-3-2 15:32
看看是你想要的吗？？
命令 tt13

是的，大侠
能附上源码研究一下吗

qcw911

2. 
   
3. (defun c:tt (/ ss i lst s1 pt e1 e2)
   
4. ;;;  (setq  ss  (ssget '((0 . "LINE"))))
   
5.   (setq xy (last (ssnamex (setq ss (ssget '((0 . "LINE")))) 0)))
   
6.   (setq x (last (cadr xy)) y (last (cadddr xy)))
   
7.   (command "RECTANG" x y)
   
8.   (setq myname (entlast))
   
9.   (setq  i   -1)
   
10.   (setq   LSTe '())
    
11.   (setq   LSTs '())
    
12.   (repeat (sslength ss)
    
13.     (setq s1  (ssname SS (setq i (1+ i)))
    
14.     pte  (dxf 11 (entget s1))
    
15.     pts  (dxf 10 (entget s1))
    
16.     lste (cons pte lste)
    
17.           lsts (cons pts lsts)
    
18.     )
    
19.   )
    
20.   (setq  lsts (vl-sort lsts
    
21.          (function (lambda (e1 e2) (> (car e1) (car e2))))
    
22.       )
    
23.   )
    
24.   (setq  lste (vl-sort lste
    
25.          (function (lambda (e1 e2) (> (car e1) (car e2))))
    
26.       )
    
27.   )
    
28.   (setq lst (append lsts lste)) ;合并元素
    
29.   (setq n (length  lst )) ;表内元素个数
    
30.   (setq ii 0)
    
31.   (repeat n
    
32.        (setq ptn (nth ii lst))
    
33.           (setq ptn_x(car ptn))
    
34.           (setq ptn_y(cadr ptn))
    
35.           (setq x_x (car x))
    
36.           (setq x_y (cadr x))
    
37.           (setq y_x (car y))
    
38.           (setq y_y (cadr y))
    
39.         
    
40.          ;判断ptn点是否在x，y点形成的矩形区域内
    
41.           ;这块不会写  那个大侠帮帮忙
    
42. 
    
43.    
    
44.        (setq ii (1+ ii))
    
45.    )
    
46. 
    
47.    
    
48. ;;;  lst
    
49. )
    
50. (defun dxf (code elist) (cdr (assoc code elist)))

<br /> (defun c:tt (/ ss i lst s1 pt e1 e2)<br /> ;;;  (setq  ss  (ssget '((0 . "LINE"))))<br />   (setq xy (last (ssnamex (setq ss (ssget '((0 . "LINE")))) 0)))<br />   (setq x (last (cadr xy)) y (last (cadddr xy)))<br />   (command "RECTANG" x y)<br />   (setq myname (entlast))<br />   (setq  i   -1)<br />   (setq   LSTe '())<br />   (setq   LSTs '())<br />   (repeat (sslength ss)<br />     (setq s1  (ssname SS (setq i (1+ i)))<br />     pte  (dxf 11 (entget s1))<br />     pts  (dxf 10 (entget s1))<br />     lste (cons pte lste)<br />           lsts (cons pts lsts)<br />     )<br />   )<br />   (setq  lsts (vl-sort lsts<br />          (function (lambda (e1 e2) (> (car e1) (car e2))))<br />       )<br />   )<br />   (setq  lste (vl-sort lste<br />          (function (lambda (e1 e2) (> (car e1) (car e2))))<br />       )<br />   )<br />   (setq lst (append lsts lste)) ;合并元素<br />   (setq n (length  lst )) ;表内元素个数<br />   (setq ii 0)<br />   (repeat n<br />        (setq ptn (nth ii lst))<br />           (setq ptn_x(car ptn))<br />           (setq ptn_y(cadr ptn))<br />           (setq x_x (car x))<br />           (setq x_y (cadr x))<br />           (setq y_x (car y))<br />           (setq y_y (cadr y))<br />         <br />          ;判断ptn点是否在x，y点形成的矩形区域内<br />           ;这块不会写  那个大侠帮帮忙<br /> <br />     <br />        (setq ii (1+ ii))<br />    )<br /> <br />     <br /> ;;;  lst<br /> )<br /> (defun dxf (code elist) (cdr (assoc code elist)))

哪位大侠帮帮忙写一下
或者有其他思路？？

Gu_xl

qcw911 发表于 2013-3-4 18:44
哪位大侠帮帮忙写一下
或者有其他思路？？

可以参考使用ssnamex函数来获取鼠标选择物体的位置！结合vlax-curve-getstartpoint 和vlax-curve-getendpoint函数来判断块插入是在曲线起点还是端点！

为什么任兵

qcw911 发表于 2013-3-4 14:56
是的，大侠
能附上源码研究一下吗

大侠不敢当，就是比较简单的算法

qcw911

为什么任兵 发表于 2013-3-4 20:55
大侠不敢当，就是比较简单的算法

非常感谢，根据你提供的程序，解决了我工作上的问题