[求助]：如何改变线型方向

gjq

一条多段线上的顶点序号都是从一端到另一端有序排列的，故而使得该线的线型有一定的方向（特别如陡坎线等），但有时该多段线的线形方向往往与实际不符，需要反向调整，请问如何才能做到？

萧山

那你就反方向画根线啊

whscom

再反方向画根线，用pedit和原线连接即可，

xiaoyanyan

**线形反向***
(defun c:fx()
　　　　(setq ss(ssget) mun 0)
(repeat (sslength ss)
　　　　(setq entl-y (ssname ss mun))
　　　　(command "pedit" entl-y "d" "")
　　　　(setq entl(entget entl-y))
　　　 (if (= "POLYLINE" (cdr(assoc 0 entl))) (command "pedit" entl-y "lt" "on" "x"))
　　　 (if (= 10 (car (nth 13 entl)))　(setq nn 13))
　　　 (if (= 10 (car (nth 12 entl)))　(setq nn 12))
　　　 (setq lt-name(cdr(assoc 6 entl)) la-name (cdr (assoc 8 entl)))　　
　　　　(setq W_list '())
　　　　(setq elem (cdr (nth nn entl)))
　　　　(setq w_list (append w_list (list elem)))　
　　　(while (not (null elem))　　　　　　　　　
　　(setq nn(+ nn 4))
　　(setq elem (cdr (nth nn entl)))　
　　　 (if (= (car (nth nn entl)) 10)
　　　　(setq w_list (append w_list (list elem)))　;构建实体坐标表　　
　　　 )
　　　)
　　　　(setq w_list (reverse w_list))
　　　　(setq pt1 (car W_list))
　　　　(command "pline" pt1)
　　　(while w_list
　　　　(setq w_list(cdr w_list))
　　　　(setq pt (car w_list))
　　　　(command pt)
　　　)
　　　　(command "")
　　　　(command "chprop" (entlast) "" "lt" lt-name "la" la-name "")
　　　　(command "pedit" (entlast) "lt" "on" "s" "")
　　　　(command "erase" entl-y "")
　　　　(setq mun (+ mun 1))
)
)

playboy

搂主是不是测绘的呀我也是交个朋友吧
4楼得就能解决你的问题

xcajcj

我一般用“spline”命令绘制这类线型，需要反向时，在用“splinedit”命令进行反向处理。

xiaohouchanzi

班竹怎么会扣六楼的钱,犯了什么错?

<font color=blue><b>[斑竹提示]：</b></font><font color=red><b>这是技术论坛，严禁灌水！本站和本版规则公告里面均有详细说明。    </b>&nbsp;&nbsp;&nbsp;&nbsp;<i>by cdhua001</i></font>

myfreemind

从四楼的程序和问的问题来看，没有问题，我的同行！