如何编一个能查出“靠点靠线”的程序，把端点未相互捕捉上的用圆画出来

lhr · 发表于 2004-8-19 15:44:00

请大家帮忙：

我做的是地形图，

如何编一个能查出“靠点靠线”的程序，把端点未相互捕捉上的用圆画出来.

（1）例图2：粉线（房子）要捕捉到黄线的端点上

（2）例图1：图边的线要捕捉到内图廓线上

lhr · 发表于 2004-8-20 09:20:00

为什么没有人帮助我。

如果能帮我找一下思路也可以。

多谢！

f5612140 · 发表于 2004-8-20 11:52:00

只处理"LINE"的问题

(defun exztempl2( ss /)
(command "layer" "m" "ZTEMPL" "c" 2 "ZTEMPL" "")
(setq i 0)
(repeat (sslength ss)
(setq ename (ssname ss i))
(setq endata (entget ename))
(setq enlay (cdr (assoc 8 endata)))
(setq p1 (cdr (assoc 10 endata)))
(setq p2 (cdr (assoc 11 endata)))
(setq j 0)
(setq dtmin nil)
(repeat (- (sslength ss) 0)
(setq eename (ssname ss j))
(setq eedata (entget eename))
(setq eenlay (cdr (assoc 8 eedata)))
(setq p3 (cdr (assoc 10 eedata)))
(setq p4 (cdr (assoc 11 eedata)))
(if (and (/= i j)(= enlay eenlay))
(progn
(setq px (inters p1 p2 p3 p4))
(setq px2 (inters p1 p2 p3 p4 nil)) (if (/= px nil)
(progn
(setq dt1 (distance p3 px))
(setq dt2 (distance p4 px))
(setq dtmin (min dt1 dt2))
(setq mark (< dtmin 0.0000001))
(if (and (< dtmin dtset)(/= mark T))
(progn
(if (> dt1 dt2)
(command "circle" p4 dtset)
(command "circle" p3 dtset)
)
)
)
)
)
(if (and (= px nil) (/= px2 nil)) (progn
(setq px (inters p1 p2 p3 p4 nil))
(setq pxx (inters p3 px p1 p2))
(if (/= pxx nil)
(progn
(setq dt1 (distance p3 pxx))
(setq dt2 (distance p4 pxx))
(setq dtmin (min dt1 dt2))
(setq mark (< dtmin 0.0000001))
(if (and (< dtmin dtset)(/= mark T))
(progn
(if (< dt1 dt2)
(command "circle" p3 dtset)
(command "circle" p4 dtset)
)
)
)
)
)
)
)
)
)
(setq j (+ j 1))
)
(setq i (+ i 1)) )(prin1)
)
(defun c:xxx() (setvar "cmdecho" 0)
(setvar "blipmode" 0)
(setq sel (getvar "osmode"))
(setvar "osmode" 0)
(setvar "filletrad" 0)
(setq cly (getvar "clayer"))
(setq dtset (getreal "\nSetup join distance?"))
(setq ss1 (ssget))
(setq ss1 (ssget "P" '((0 . "LINE"))))
(setq pkx (getvar "pickbox"))
(setvar "pickbox" 0)
(if (/= ss1 nil)(exztempl2 ss1)) (setvar "osmode" sel)
(setvar "pickbox" pkx)
(command "layer" "s" cly "") (prin1)
)

(defun exztempl2( ss /)
         (command "layer" "m" "ZTEMPL" "c" 2 "ZTEMPL" "")
         (setq i 0)
         (repeat (sslength ss)
               (setq ename (ssname ss i))
               (setq endata (entget ename))
               (setq enlay (cdr (assoc 8 endata)))
               (setq p1 (cdr (assoc 10 endata)))
               (setq p2 (cdr (assoc 11 endata)))
               (setq j 0)
               (setq dtmin nil)
               (repeat (- (sslength ss) 0)
                     (setq eename (ssname ss j))
                     (setq eedata (entget eename))
                     (setq eenlay (cdr (assoc 8 eedata)))
                     (setq p3 (cdr (assoc 10 eedata)))
                     (setq p4 (cdr (assoc 11 eedata)))
   
               (if (and (/= i j)(= enlay eenlay))
                       (progn
                             (setq px (inters p1 p2 p3 p4))
                             (setq px2 (inters p1 p2 p3 p4 nil))                             (if (/= px nil)
                                     (progn
                                           (setq dt1 (distance p3 px))
                                           (setq dt2 (distance p4 px))
                                           (setq dtmin (min dt1 dt2))
                                           (setq mark (< dtmin 0.0000001))
                                           (if (and (< dtmin dtset)(/= mark T))
                                                   (progn 
                                                         (if (> dt1 dt2)
                                                                 (command "circle" p4 dtset)
                                                                 (command "circle" p3 dtset)
                                                         )
                                                   )
                                           )
                                     )
                             )                 
               
                             (if (and (= px nil) (/= px2 nil))                                           (progn
                                           (setq px (inters p1 p2 p3 p4 nil))
                                           (setq pxx (inters p3 px p1 p2))
                                           (if (/= pxx nil)      
                                                   (progn
                                                         (setq dt1 (distance p3 pxx))
                                                         (setq dt2 (distance p4 pxx))
                                                         (setq dtmin (min dt1 dt2))
                                                         (setq mark (< dtmin 0.0000001))
                                                         (if (and (< dtmin dtset)(/= mark T))
                                                                 (progn
                                                                       (if (< dt1 dt2)
                                                                                 (command "circle" p3 dtset)
                                                                                 (command "circle" p4 dtset)
                                                   
                                                                       )
                                                                 )
                                                           )
                                                   )
                                           )
                                     )
                             )
                       )
                 )
           
                 (setq j (+ j 1))
             )
             (setq i (+ i 1))         )(prin1)
)
(defun c:xxx()         (setvar "cmdecho" 0)
         (setvar "blipmode" 0)
         (setq sel (getvar "osmode"))
         (setvar "osmode" 0)
         (setvar "filletrad" 0)
         (setq cly (getvar "clayer"))
           
         (setq dtset (getreal "\nSetup join distance?"))
         (setq ss1 (ssget))
         (setq ss1 (ssget "P" '((0 . "LINE"))))
         
         (setq pkx (getvar "pickbox")) 
         (setvar "pickbox" 0)
   
         (if (/= ss1 nil)(exztempl2 ss1))         (setvar "osmode" sel)
         (setvar "pickbox" pkx)
         (command "layer" "s" cly "") (prin1)
)

wb0815 · 发表于 2004-8-20 17:13:00

楼上的你也是测绘的啊

可以和我联系啊

我的qq 114743023

小狼 · 发表于 2004-8-20 20:14:00

这种情况很麻烦，接边线比较多,而且线的两端都在内图廓线上(特别是等高线)时候算法比较复杂,容易出错

lhr · 发表于 2004-8-25 09:00:00

本帖最后由作者于 2004-9-1 9:57:35 编辑

谢谢3楼朋友！

lhr · 发表于 2004-9-1 09:59:00

wb0815朋友你什么时间上网啊！

有机会我们联系

wb0815 · 发表于 2004-9-1 12:36:00

lhr

我在网上

你可以随时找我

无痕 · 发表于 2004-9-1 13:59:00

能不能相互捕捉还要看pickbox设置，这个可是个变数啊

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

如何编一个能查出“靠点靠线”的程序，把端点未相互捕捉上的用圆画出来

本帖子中包含更多资源