如何沿着路径画等长或等距的直线

浪子_无限

工作中有时碰到要用直线模拟曲线的情况，不知有没有办法实现如图的要求

429014673

怎么标题前就加个【Gu_xl】，楼主不知是什么意思吗

浪子_无限

429014673 发表于 2015-6-13 20:30
怎么标题前就加个【Gu_xl】，楼主不知是什么意思吗

发帖不多，见笑

llsheng_73

按弧长相等很简单，通过vlax-curve-getpointatdist来得到需要的点，然后绘制直线就是了。按得到的直线相等这相对来说要麻烦些，可能需要按直线长度绘制圆与曲线相交才能准确得到需要的点，如果相对于曲线复杂度来说直线过长的话，可能会得到多于2个点的情况，这需要根据其在曲线上的位置vlax-curve-getdistatpoint进一步确定哪一个点才是需要的(如果解析几何很历害，可以通过数学求解来得到结果，但一是数学功底要求比较高，二是代码写起来也很复杂)
然而这两种办法都无法保证与原曲线的相似度，除非给定的直线足够小

浪子_无限

llsheng_73 发表于 2015-6-14 12:45
按弧长相等很简单，通过vlax-curve-getpointatdist来得到需要的点，然后绘制直线就是了。按得到的直线相等这 ...

http://bbs.mjtd.com/thread-93868-1-1.html
今天在论坛搜到这个贴子，感觉功能有些相近，只是这个是定数等分。如果放样后能满足实际工作中的允许误差，到也是一个不错的方式。
本人仅了解一些简单的代码，望高手能帮写一个

浪子_无限

刚刚翻到G版的大作
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=92459
这个能实现第一种情况的要求，

荒野孤行

可以参照这个帖子里面的源码去修改哦：http://bbs.mjtd.com/thread-107510-1-1.html

ZZXXQQ

;近似画法

2. (defun c:tt ()
   
3. (setvar "CMDECHO" 0)
   
4. (if (setq ln (getdist "\n长度: "))
   
5.   (if (setq ss (ssget '((0 . "ARC,*POLYLINE,SPLINE"))))
   
6.    (repeat (setq i (sslength ss))
   
7.     (setq en (ssname ss (setq i (1- i))))
   
8.     (setq ent (entget en))
   
9.     (setq ptlst (list
   
10.      (if (= (cdr(assoc 0 ent)) "ARC")
    
11.       (polar (cdr(assoc 10 ent)) (cdr(assoc 51 ent)) (cdr(assoc 40 ent)))
    
12.       (cdr(assoc 10 (reverse ent)))
    
13.      )
    
14.     ))
    
15.     (command "_.MEASURE" en ln)
    
16.     (setq sspt (ssget "P"))
    
17.     (repeat (setq j (sslength sspt))
    
18.      (setq ptlst (cons (cdr(assoc 10 (entget(ssname sspt (setq j (1- j)))))) ptlst))
    
19.     )
    
20.     (command "_.ERASE" sspt "")
    
21.     (if (= (cdr(assoc 0 ent)) "ARC")
    
22.      (command "_.PLINE" (polar (cdr(assoc 10 ent)) (cdr(assoc 50 ent)) (cdr(assoc 40 ent))))
    
23.      (command "_.PLINE" (cdr(assoc 10 ent)))
    
24.     )
    
25.     (foreach pt ptlst (command pt))
    
26.     (command "")
    
27.    )
    
28.   )
    
29. )
    
30. (setvar "CMDECHO" 1)
    
31. (princ)
    
32. )
    

(defun c:tt ()<br /> (setvar "CMDECHO" 0)<br /> (if (setq ln (getdist "\n长度: "))<br />   (if (setq ss (ssget '((0 . "ARC,*POLYLINE,SPLINE"))))<br />    (repeat (setq i (sslength ss))<br />     (setq en (ssname ss (setq i (1- i))))<br />     (setq ent (entget en))<br />     (setq ptlst (list<br />      (if (= (cdr(assoc 0 ent)) "ARC")<br />       (polar (cdr(assoc 10 ent)) (cdr(assoc 51 ent)) (cdr(assoc 40 ent)))<br />       (cdr(assoc 10 (reverse ent)))<br />      )<br />     ))<br />     (command "_.MEASURE" en ln)<br />     (setq sspt (ssget "P"))<br />     (repeat (setq j (sslength sspt))<br />      (setq ptlst (cons (cdr(assoc 10 (entget(ssname sspt (setq j (1- j)))))) ptlst))<br />     )<br />     (command "_.ERASE" sspt "")<br />     (if (= (cdr(assoc 0 ent)) "ARC")<br />      (command "_.PLINE" (polar (cdr(assoc 10 ent)) (cdr(assoc 50 ent)) (cdr(assoc 40 ent))))<br />      (command "_.PLINE" (cdr(assoc 10 ent)))<br />     )<br />     (foreach pt ptlst (command pt))<br />     (command "")<br />    )<br />   )<br /> )<br /> (setvar "CMDECHO" 1)<br /> (princ)<br /> )<br />

浪子_无限

ZZXXQQ 发表于 2015-6-24 08:52
;近似画法

感谢帮助
有点小问题，我自己将第四句改成
(if (setq ss (ssget '((0 . "LINE,*POLYLINE,SPLINE,ARC"))))
想增加选择圆弧，结果会画出一个封闭的pl线，不知为何？
还有些小问题，我附在附图里，请赐教。

我有个思路，就是用cad的me命令得到一系列等分点，然后连接这些点得到最终的线段，只是连接多个点不知道该用什么方法。

ZZXXQQ

浪子_无限 发表于 2015-6-26 10:44
感谢帮助
有点小问题，我自己将第四句改成
(if (setq ss (ssget '((0 . "LINE,*POLYLINE,SPLINE,ARC")) ...

8楼改了。再试试。