绘制两条多段线的中心线

zengqingyi · 发表于 2017-6-9 17:52:35

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

网上搜索很多绘制中心线的插件均只能绘制两条直线的中心线，能否增加绘制两条多段线的中心线捏

Lispboy · 发表于 2017-6-10 23:27:17

zengqingyi 发表于 2017-6-10 20:29

(defun c:tt ()
(if (and (setq e1 (car (xdrx_entsel
"\n拾取第一条多段线<退出>:"
'((0 . "LWPOLYLINE"))
)
)
)
(setq e2 (car (xdrx_entsel
"\n拾取第一条多段线<退出>:"
'((0 . "LWPOLYLINE"))
)
)
)
)
(progn
(setq g1 (xdge::constructor e1)
g2 (xdge::constructor e2)
g1lst (xdge::getpropertyvalue g1 "getcurvelist")
g2lst (xdge::getpropertyvalue g2 "getcurvelist")
)
(if (= (length g1lst)(length g2lst))
(progn
(setq ents nil)
(mapcar '(lambda (x y)
(setq t1 (xdge::type x)
t2 (xdge::type y)
)
(cond
((= t1 t2)
(mapcar 'set '(p1-1 p1-mid p1-2)(xdge::getpropertyvalue x "startpoint" "midpoint" "endpoint"))
(mapcar 'set '(p2-1 p2-mid p2-2)(xdge::getpropertyvalue y "startpoint" "midpoint" "endpoint"))
(setq pmid1 (xdrx_midp p1-1 p2-1)
pmid2 (xdrx_midp p1-2 p2-2)
pmid3 (xdrx_midp p1-mid p2-mid)
)
(if (= t1 "kLineSeg3d")
(setq g (xdge::constructor "kLineSeg3d" pmid1 pmid2))
(setq g (xdge::constructor "kCircArc3d" pmid1 pmid3 pmid2))
)
(setq ents (cons g ents))
)
)
)
g1lst
g2lst
)
(if ents
(progn
(setq ss (xdge::entity:make (reverse ents)))
(xdrx_curve->polyline ss)
(xdrx_setpropertyvalue (entlast) "color" 7)
(xdge::free ents)
)
)
)
(progn
(xdrx_prompt "\n两条多段线段数不同，不能绘制.")
)
)
(xdge::free g1 g2 g1lst g2lst)
)
)
(princ)
)

(defun c:tt () 
  (if (and (setq e1 (car (xdrx_entsel 
                           "\n拾取第一条多段线<退出>:" 
                           '((0 . "LWPOLYLINE")) 
                         ) 
                    ) 
           ) 
           (setq e2 (car (xdrx_entsel 
                           "\n拾取第一条多段线<退出>:" 
                           '((0 . "LWPOLYLINE")) 
                         ) 
                    ) 
           ) 
      ) 
    (progn 
      (setq g1    (xdge::constructor e1) 
            g2    (xdge::constructor e2) 
            g1lst (xdge::getpropertyvalue g1 "getcurvelist") 
            g2lst (xdge::getpropertyvalue g2 "getcurvelist") 
      ) 
      (if (= (length g1lst)(length g2lst)) 
        (progn 
          (setq ents nil) 
          (mapcar '(lambda (x y) 
                     (setq t1 (xdge::type x) 
                           t2 (xdge::type y) 
                     ) 
                     (cond 
                       ((= t1 t2) 
                        (mapcar 'set '(p1-1 p1-mid p1-2)(xdge::getpropertyvalue x "startpoint" "midpoint" "endpoint")) 
                        (mapcar 'set '(p2-1 p2-mid p2-2)(xdge::getpropertyvalue y "startpoint" "midpoint" "endpoint")) 
                        (setq pmid1 (xdrx_midp p1-1 p2-1) 
                              pmid2 (xdrx_midp p1-2 p2-2) 
                              pmid3 (xdrx_midp p1-mid p2-mid) 
                        ) 
                        (if (= t1 "kLineSeg3d") 
                          (setq g (xdge::constructor "kLineSeg3d" pmid1 pmid2)) 
                          (setq g (xdge::constructor "kCircArc3d" pmid1 pmid3 pmid2)) 
                        ) 
                        (setq ents (cons g ents)) 
                       ) 
                      ) 
                   ) 
                  g1lst 
                  g2lst 
          ) 
          (if ents 
            (progn 
              (setq ss (xdge::entity:make (reverse ents))) 
              (xdrx_curve->polyline ss) 
              (xdrx_setpropertyvalue (entlast) "color" 7) 
              (xdge::free ents) 
            ) 
          ) 
        ) 
        (progn 
          (xdrx_prompt "\n两条多段线段数不同，不能绘制.") 
        ) 
      ) 
      (xdge::free g1 g2 g1lst g2lst) 
    ) 
  ) 
  (princ) 
)

newer · 发表于 2017-6-9 18:59:56

1、请把手工画的图，截图贴上来。

2、论坛这类程序很多，用中心线做关键字搜索论坛。

zengqingyi · 发表于 2017-6-10 10:03:44

newer 发表于 2017-6-9 18:59

图片及cad图都上传了，论坛中的绘制中心线都是绘制直线的，多段线的无法实现

newer · 发表于 2017-6-10 13:44:07

本帖最后由 newer 于 2017-6-10 13:46 编辑

zengqingyi 发表于 2017-6-10 10:03

这样图形的中线你怎么画呢？

既然是不规则的多段线，你得给定个规则吧

zengqingyi · 发表于 2017-6-10 20:27:06

取同时垂直于两条多段线的中点的连线

zengqingyi · 发表于 2017-6-10 20:29:42

取同时垂直于两条多段线的直线的中点的连线

zengqingyi · 发表于 2017-6-12 15:58:08

Lispboy 发表于 2017-6-10 23:27

段数不相同时能否实现？实际制图过程中段数不一样的情况经常出现的哦

newer · 发表于 2017-6-12 21:23:46

zengqingyi 发表于 2017-6-12 15:58

段数不同，可能画出来的就乱了，

QQ截图20170612212131.png

上面这个图，每段的中点连线，位置就串了，上面那个最后还悬着一个，这只是一个简单的情况，如果段数差很多，就更没法画了，极端点，上面3个段，下面10个段，能画出来吗？

还是画图的时候就按规矩来，后面处理也方便。

你说的这种情况，用另外的工具，多段线增加节点或者删除节点，让两边的段保持一致。尽可能的让计算机理解你的图。

zengqingyi · 发表于 2017-6-13 08:13:39

newer 发表于 2017-6-12 21:23

好的，非常感谢

zhizhewujiang · 发表于 2017-11-2 09:32:04

好东西，找了好久了

86524559 · 发表于 2018-6-20 16:54:44

请问，我复制代码建成lisp文件，加载到cad里面，输入命令提示未知命令，这是怎么回事啊？

86524559 · 发表于 2018-6-20 16:56:21

请问，为什么我加载了这个lisp文件，输入命令提示未知命令呢？

hth0615 · 发表于 2018-6-22 09:50:27

取同时垂直于两条多段线的中点的连线

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

[编程申请] 绘制两条多段线的中心线

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子