[讨论]怎样改变交换PLINE或LINE的两端座标呢?

vken7az2p

怎样改变交换PLINE或LINE的两端座标呢?
目前的做法
提取物件全部的资料
将物件座标点反转
再重新建立
不知道有更方便的方法吗
烦请各位高手能够提供意见
谢谢

zml84

3. ;;;交换 LINE 对象的起终点坐标
4. (defun C:TT (/ S1 ENT STR PT10 PT11)
5.     (if (and (setq S1 (entsel "\n点取 LINE 对象: "))
6.          (setq ENT (entget (car S1)))
7.          (= (cdr (assoc 0 ENT)) "LINE")
8.     )
9.     (progn
10.         ;;显示组码
11.         (setq STR "\n对象组码表为: \n")
12.         (setq STR (strcat STR (vl-princ-to-string ENT)))
13.         (alert STR)
14.         ;;交换起终点
15.         (setq PT10 (cdr (assoc 10 ENT))
16.           PT11 (cdr (assoc 11 ENT))
17.         )
18.         (setq ENT (subst (cons 10 PT11) (assoc 10 ENT) ENT)
19.           ENT (subst (cons 11 PT10) (assoc 11 ENT) ENT)
20.         )
21.         (entmod ENT)
22.         ;;显示修改后组码
23.         (setq STR (strcat STR
24.                   "\n\n修改后，对象组码表为: \n"
25.                   (vl-princ-to-string ENT)
26.               )
27.         )
28.         (alert STR)
29.         (princ STR)
30.     );_结束progn
31.     (princ "\n没有选择到 LINE 对象。")
32.     )
33.     (princ)
34. );_结束defun

;;;交换 LINE 对象的起终点坐标 (defun C:TT (/ S1 ENT STR PT10 PT11)     (if (and (setq S1 (entsel "\n点取 LINE 对象: "))          (setq ENT (entget (car S1)))          (= (cdr (assoc 0 ENT)) "LINE")     )     (progn         ;;显示组码         (setq STR "\n对象组码表为: \n")         (setq STR (strcat STR (vl-princ-to-string ENT)))         (alert STR)         ;;交换起终点         (setq PT10 (cdr (assoc 10 ENT))           PT11 (cdr (assoc 11 ENT))         )         (setq ENT (subst (cons 10 PT11) (assoc 10 ENT) ENT)           ENT (subst (cons 11 PT10) (assoc 11 ENT) ENT)         )         (entmod ENT)         ;;显示修改后组码         (setq STR (strcat STR                   "\n\n修改后，对象组码表为: \n"                   (vl-princ-to-string ENT)               )         )         (alert STR)         (princ STR)     );_结束progn     (princ "\n没有选择到 LINE 对象。")     )     (princ) );_结束defun

vken7az2p

谢谢 zml84 提供的程序

看来line的转换比较简单

pline就不容易了