STRETCH 发表于 2012-12-29 12:15:59

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

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


测试文件



zyhandw 发表于 2012-12-29 15:00:06

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

zyhandw 发表于 2012-12-29 17:29:39

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


zyhandw 发表于 2012-12-29 17:42:20

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

那也很好办啊，我再改下

STRETCH 发表于 2012-12-29 17:47:34

zyhandw 发表于 2012-12-29 17:42 static/image/common/back.gif
那也很好办啊，我再改下

好的，谢谢你

ZZXXQQ 发表于 2012-12-29 21:03:57


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

zyhandw 发表于 2012-12-30 09:27:07

STRETCH 发表于 2012-12-29 17:47 static/image/common/back.gif
好的，谢谢你

welcome
改了下，试试！

STRETCH 发表于 2012-12-30 11:44:57

zyhandw 发表于 2012-12-30 09:27 static/image/common/back.gif
welcome
改了下，试试！

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

zyhandw 发表于 2012-12-30 15:56:05

本帖最后由 zyhandw 于 2013-1-1 09:14 编辑

STRETCH 发表于 2012-12-30 11:44 static/image/common/back.gif
可以把这两个功能分开吗？因为我发现这样改直线起始点，还要先执行第一步，
很容易啊，其实我就是分开写的!

mjz521yy 发表于 2014-12-6 13:51:14

可以把这两个功能分开吗？
页: [1] 2
查看完整版本: 求直线起点终点标记，且可选择替换的程序