求直线起点终点标记，且可选择替换的程序

STRETCH

要求：运行程序,选择直线后，显示起点终点，
     点的样式为小正方形框选要互换的线，
     实现直线起终点互换,支持在三维空间的
     直线


测试文件

zyhandw

这个应该不难实现吧，自己学着试试先！

zyhandw

先传个图看看，不知道是不是你要的结果，在你要求的起终点互换的后，加了个表现互换结果的箭头！

zyhandw

zyhandw 发表于 2012-12-29 17:29
先传个图看看，不知道是不是你要的结果，在你要求的起终点互换的后，加了个表现互换结果的箭头！

那也很好办啊，我再改下

STRETCH

zyhandw 发表于 2012-12-29 17:42
那也很好办啊，我再改下

好的，谢谢你

ZZXXQQ

1. (defun c:tt ()
   
2. (if (setq ss (ssget '((0 . "LINE")))) (progn
   
3.   (setq i -1)
   
4.   (repeat (sslength ss)
   
5.    (setq ent (entget(ssname ss (setq i (1+ i))))
   
6.          p1 (cdr(assoc 10 ent))
   
7.          p2 (cdr(assoc 11 ent))
   
8.          ent (subst (cons 10 p2) (assoc 10 ent) ent))
   
9.    (entmod (subst (cons 11 p1) (assoc 11 ent) ent))
   
10.   )
    
11. ))
    
12. (princ)
    
13. )
    

(defun c:tt ()<br /> (if (setq ss (ssget '((0 . "LINE")))) (progn<br />   (setq i -1)<br />   (repeat (sslength ss)<br />    (setq ent (entget(ssname ss (setq i (1+ i))))<br />          p1 (cdr(assoc 10 ent))<br />          p2 (cdr(assoc 11 ent))<br />          ent (subst (cons 10 p2) (assoc 10 ent) ent))<br />    (entmod (subst (cons 11 p1) (assoc 11 ent) ent))<br />   )<br /> ))<br /> (princ)<br /> )<br />

zyhandw

STRETCH 发表于 2012-12-29 17:47
好的，谢谢你

welcome
改了下，试试！

STRETCH

zyhandw 发表于 2012-12-30 09:27
welcome
改了下，试试！

可以把这两个功能分开吗？因为我发现这样改直线起始点，还要先执行第一步，

zyhandw

STRETCH 发表于 2012-12-30 11:44
可以把这两个功能分开吗？因为我发现这样改直线起始点，还要先执行第一步，

很容易啊，其实我就是分开写的!

mjz521yy

可以把这两个功能分开吗？