疑难问题急待解决请教各位斑竹（谢谢了）

wb0815 · 发表于 2003-11-12 19:55:00

谢谢各位斑竹的大力帮助？小生在这里谢了

-------------------------------------------------------------------------------------------------------------

相识恨晚相逢是缘

^_^^_^^_^^_^^_^^_^^_^^_^^_^^_^^_^^_^^_^^_^^_^^_^^_^^_^^_^

wb0815 · 发表于 2003-11-12 19:57:00

为什么我发贴的时候这么费劲也不知道什么时候能发。点完一点感觉都没有。请教各位

meflying · 发表于 2003-11-12 20:04:00

你250.3 253.9这条线上的251点怎么找呢？按比例吗？

wb0815 · 发表于 2003-11-12 20:23:00

我觉得应该是按照比例去求值的，可是我们单位以前的一位高手说可以求出251的直线然后取出251线和线2的交点。然后将交点坐标加入到251的3dpoly线中去。

我没有更好的思路。所以向您请教。

meflying · 发表于 2003-11-12 20:27:00

不是思路的问题，问题是你那251的直线到底是个什么东西？什么叫251的直线？太专业了，实在无法理解，直线有起点、终点，角度，甚至说高度也可以明白，但这个251的直线真不知道是什么。

wb0815 · 发表于 2003-11-13 08:35:00

对不起也许是我说的太专业了。
我觉得应该是按照比例去找250.3和253中间的251点的

如果说按照比例能求出来的话那么有如何加到251的线表中去呢

meflying · 发表于 2003-11-13 08:59:00

你找到通过251的那段的两个端点，加入你需要的点，下面这个函数是在多线段中加入点：

(defun Addpt(ent pt pt1 pt2 / ent ents ents2 pt i item pt1x pt2x m)
(setq ents (entget ent))
(setq pt1x (reverse (cdr (reverse pt1))))
(setq pt2x (reverse (cdr (reverse pt2))))
(setq i 0)
(setq m t)
(while (< i (length ents))
(setq item (nth i ents))
(if (and m (or
(equal pt1x (cdr item))
(equal pt2x (cdr item))
))
(progn
(setq ents2 (append ents2 (list item '(40 . 0.0) '(41 . 0.0) '(42 . 0.0) (cons 10 (reverse (cdr (reverse pt)))))))
(setq m nil)
)
(setq ents2 (append ents2 (list item)))
)
(setq i (1+ i))
)
(setq ents2 (subst (cons 90 (+ (cdr (assoc 90 ents2)) 1)) (assoc 90 ents2) ents2))
(entmod ents2)
)

wb0815 · 发表于 2003-11-13 10:53:00

程序是加点的没错可是如何在线上自动加点，那就是问题的所在。如果线很多的话，是否还需要搜索全图线。

斑竹看一下这个就是可以实现那个取整数值的处理结果。

能否提供一下思路。

meflying · 发表于 2003-11-13 11:06:00

你在程序里调用我的函数不就是自动加点了吗

wb0815 · 发表于 2003-11-13 11:08:00

可是那个程序不是我编的，我只有arx程序。我想学会把它变成我的东西。
我没有源代码

你要不要那个arx程序可是看一下那里的功能，编程的那个人也是一个高手。可惜我在也看不到他了。
我是一天12小时在线的如果有什么问题的话。可以直接找我。

账号		自动登录	找回密码
密码			注册

疑难问题急待解决请教各位斑竹（谢谢了）

本帖子中包含更多资源

本帖子中包含更多资源