变径的多段线，如何求出内外弧的信息

newer

如图，多段线起始宽度和终止宽度不同， 中间红色的线是宽度0的多段线， 内弧和外弧和 红色的中间弧线的数学关系式什么？

st788796

变宽的应该不是圆弧，渐开线，曾经 Wkai 写过一个剪影

q3_2006

我用WMFOUT WMFIN方式提取。。

q3_2006

但导出导入的尺寸如何换算我还是没搞明白，最后都要通过缩放调整，有点麻烦，希望版主能指导一下，这中间的换算方法，这个太常用了，是必须有效解决的问题。。。

q3_2006

st788796 发表于 2013-10-19 17:36
变宽的应该不是圆弧，渐开线，曾经 Wkai 写过一个剪影

版主也解决一下这个问题吧。。WMFOUT WMFIN的比例是如何换算的？？

newer

q3_2006 发表于 2013-10-19 21:59
但导出导入的尺寸如何换算我还是没搞明白，最后都要通过缩放调整，有点麻烦，希望版主能指导一下，这中间的 ...

你把转换后的外框曲线，贴个DWG上来吧。看看曲线信息。

q3_2006

newer 发表于 2013-10-19 22:05
你把转换后的外框曲线，贴个DWG上来吧。看看曲线信息。

还是很完美的。。

aeo

q3_2006 发表于 2013-10-19 22:04
版主也解决一下这个问题吧。。WMFOUT WMFIN的比例是如何换算的？？

按屏幕的左上点插入
2倍
刚好和你的实体重叠
(输出和输入时屏幕不要变化)

st788796

aeo 发表于 2013-10-19 23:22
按屏幕的左上点插入
2倍
刚好和你的实体重叠

不错

1. (defun c:tt (/ e le fl)
   
2.   (if (and
   
3.         (setq e (car (xdrx_entsel "\nPick pline: ")))
   
4.         (not (vl-every 'zerop (mapcar
   
5.                                 'cdr
   
6.                                 (vl-remove-if-not '(lambda (x)
   
7.                                                      (vl-position (car x) '(43 41 40))
   
8.                                                    ) (entget e)
   
9.                                 )
   
10.                               )
    
11.              )
    
12.         )
    
13.       )
    
14.     (progn
    
15.       (setq fl (strcat (getenv "temp") "\\xdtempwmf.wmf"))
    
16.       (vl-cmdf ".wmfout" fl e "")
    
17.       (vl-cmdf ".wmfin" fl (last (xdrx_getscreenbox)) 2. 2. 0.)
    
18.       (setq le (entlast))
    
19.       (xdrx_system_filedel fl)
    
20.       (xdrx_geom_searchoutline (entlast) 0.)
    
21.       (entdel le)
    
22.       (entdel e)
    
23.     )
    
24.   )
    
25.   (princ)
    
26. )
    

(defun c:tt (/ e le fl)<br />   (if (and<br />         (setq e (car (xdrx_entsel "\nPick pline: ")))<br />         (not (vl-every 'zerop (mapcar<br />                                 'cdr<br />                                 (vl-remove-if-not '(lambda (x)<br />                                                      (vl-position (car x) '(43 41 40))<br />                                                    ) (entget e)<br />                                 )<br />                               )<br />              )<br />         )<br />       )<br />     (progn<br />       (setq fl (strcat (getenv "temp") "\\xdtempwmf.wmf"))<br />       (vl-cmdf ".wmfout" fl e "")<br />       (vl-cmdf ".wmfin" fl (last (xdrx_getscreenbox)) 2. 2. 0.)<br />       (setq le (entlast))<br />       (xdrx_system_filedel fl)<br />       (xdrx_geom_searchoutline (entlast) 0.)<br />       (entdel le)<br />       (entdel e)<br />     )<br />   )<br />   (princ)<br /> )<br />

XDSoft

st788796 发表于 2013-10-20 00:40
不错

用下 xdrx_geom_searchAllOutline 更好，虚线也可以转，

修改下代码，发布了 ，选宽度多段线也可以直接在SSGET里面构造。

http://bbs.xdcad.net/thread-671175-1-1.html