[编程申请]：有班竹有一个line问题！！！请解救

kkk3kkk

有班竹有一个line问题！！！请解救一个line问题！！！
我想在程序中添加一段代码，用来改线的位置p1(1,2,3),p2 (5,6,7)改成p1(4,5,6),p2 (10,11,12)，要自动，和可以 X，Y，Z改任何一方数值，:6

XDSoft

最初由 kkk3kkk 发布
[B]有班竹有一个line问题！！！请解救一个line问题！！！
我想在程序中添加一段代码，用来改线的位置p1(1,2,3),p2 (5,6,7)改成p1(4,5,6),p2 (10,11,12)，要自动，和可以 X，Y，Z改任何一方数值，:6 [/B]

思路：

使用ENTMOD修改LINE的实体数据库的组码10，11
10代表起始点，11代表终止点。

下面代码：p10代表起点，p11代表终止点

(setq ed (entget e))  ;; e是LINE实体名，得到数据定义
(setq p10 (cdr (assoc 10 ed))) ;; 得到组码10点
(setq p11 (cdr (assoc 11 ed))) ;;得到组码11点

(setq ed (subst p10_new p10 ed));; 用你的新点p10_new替换p10
(setq ed (subst p11_new p11 ed));; 替换p11

(entmod ed) ;;更新数据

就可以了。

只要你构造出新点，然后用上面的代码就可以了（包括了你第二个问题）。

kkk3kkk

问题加深，在3DFACE里，P3，P4点，用您的方案改P3，P4同步，先P3 后P4。只有P4改了，先P4 后P3。只有P3改了，不能同时改变，请指您导方针

长清

最初由 kkk3kkk 发布
[B]问题加深，在3DFACE里，P3，P4点，用您的方案改P3，P4同步，先P3 后P4。只有P4改了，先P4 后P3。只有P3改了，不能同时改变，请指您导方针 [/B]

注意，3DFACE和LINE是两种不同类型的实体，3DFACE里，用10，11，12，13来索引四个顶点的坐标值，不是LINE的10，11。其他方面类似修改LINE。