[原创][LISP]根据允许偏离距离DIST_MIN，处理LWPOLYLINE的凸度数据(弧段)

lockmyeye · 发表于 2004-1-3 13:17:00

复制代码

无痕 · 发表于 2004-1-3 20:19:00

人家简化还来不及，你却要加点。不知道你用在什么方面？

lockmyeye · 发表于 2004-1-4 01:46:00

输出为外部文件，转换成不支持ARC的系统。
我是为了输出成e00文件进行处理的。

aeo000000 · 发表于 2004-1-10 15:57:00

;;;gg -->原来的凸度
(setq ang (* 4 (atan (abs gg))) ;;;-->这弧线的包含角
;;;dist_min -->你给的允许偏离距离:新凸度
(setq ang_new(* 4 (atan (abs dist_min))) ;;;-->新角度
那么新弧线长为:
(setq new_hu_len(* old_hu_len(/ ang_new ang))) ;;;old_hu_len求应该很方便,就是你的"length_hu"
现在关键是你的dist_min 是根据什么来的.
能不能讲讲

lockmyeye · 发表于 2004-1-11 02:22:00

我是用来把大比例尺地形图的线输出成E00文件的。方案中有限差，最大不能超过图中距离0.1毫米，DWG数据用的是实地坐标，比例尺.1：1000。就是说不可以超出0.1。实际上为了保险起见，我把它调到0.05了。

[原创][LISP]根据允许偏离距离DIST_MIN，处理LWPOLYLINE的凸度数据(弧段)

发表回复

精选推荐