[文章]：关于圆弧用PLINE线加密

lj154864041

由于经常需要将CAD 中的圆弧经过PLINE线加密的方式输出，但是没有好的办法。同常是用div或measure的方法将圆弧分成若干段，然后再用PLINE连接。一旦加密点多达上百个点后画起来就格外头疼。所以最近想用LIST来实现上面加密的两种情况。我一开始考虑用画多边形的方法来加密，但是后来发现多边形最多只能画1024条边，有时达不到加密的精度。后来考虑用极坐标的思路来解决div的实现。对于measure的实现确实分的头疼，不只各位有什么高见！

xyp1964

2pl程序：

zhuflash

这个不错，支持一下，命令就清晰，不用输几次了

yangguangcb

这个不错，支持一下，命令就清晰，不用输几次

houxianyong

怎么没有程序代码啊，迫切需要

ljttjl

可在网盘http://ljttjl.ys168.com  20080420 目录下载 任意曲线转换成多段线程序

jiyi20099

怎么没有程序代码啊，迫切需要 ，太好了

guohq

(defun Arc2PL(ent cell mode delif / obj pts ang1 ang2 ang num num1 len addif dist pt rtn nn)
  ;;功能:弧线转折线
  ;;cell是最小距离
  ;;mode=0 距离优先，如果弧长较小，以角度优先 10度1段
  ;;mode=1 强制距离优先
  ;;delif 表示是否删除原来的弧
  (setq obj (vlax-ename->vla-object ent))
  (setq ang1 (vla-get-startangle obj) ang2 (vla-get-endangle obj))
  (setq ang (/ (* 180.0 (- ang2 ang1)) pi))
  (setq num (/ ang 10.0))
  (if (> (- num (fix num)) 0)
    (setq num1 (1+ num))
    (setq num1 num)
    )
  (setq num1 (fix num1))
  (setq len (vla-get-ArcLength obj))
  (if (or (> (/ len num1) cell) (= mode 1))
    (progn
      (setq num1 (/ len cell))
      (if (> (- num1 (fix num1)) 0);;是否添加尾点
        (setq addif T)
        (setq addif nil)
        )
      (setq num1 (fix num1) pts (list (V3d->L3d(vla-get-startpoint obj))) nn 1)
      (repeat num1
        (setq dist (* cell nn) nn (1+ nn))
        (setq pt (vlax-curve-getpointatdist obj dist))
        (setq pts (cons pt pts))
        )
      (if addif
        (setq pts (cons (v3d->l3d(vla-get-endpoint obj)) pts))
        )
      (setq pts (reverse pts))
      (setq rtn (list (drawPL pts nil) pts))
      (if delif
        (entdel ent)
        )
      )
    (progn
      (if (<= num 1)
        (progn
          (setq pts (list (v3d->l3d (vla-get-startpoint obj)) (v3d->l3d (vla-get-endpoint obj))))
          )
        (progn
          (if (>  num (fix num))
            (setq addif T)
            (setq addif nil)
            )
          (setq cell (/ len num) num (fix num) pts (list (V3d->L3d(vla-get-startpoint obj))) nn 1 )
          (repeat num
            (setq dist (* cell nn) nn (1+ nn))
            (setq pt (vlax-curve-getpointatdist obj dist))
            (setq pts (cons pt pts))
            )
          (if addif
            (setq pts (cons (v3d->l3d(vla-get-endpoint obj)) pts))
            )
          (setq pts (reverse pts))
          
          )
        )
      (setq rtn (list (drawPL pts nil) pts))
      (if delif
        (entdel ent)
        )
      )
    )
  rtn
  )

(defun DrawPL(lst CleIf /  cosmode nn rtn)
  ;;功能:根据列表绘制pl线
  (setq nn 0 Cosmode (getvar "osmode"))
  (setvar "osmode" 0)
  (command "pline")  
  (repeat (length lst)
    (command (nth nn lst))
    (setq nn (1+ nn))
    )
  (if cleif
    (command "c")
    (command "")
    )
  (setvar "osmode" cosmode)
  (setq rtn (entlast))
  rtn
  )

xjfbeck

不错，先学习一下

yoyoho

感谢 guohq 分享程序!