[编程申请]：怎样找出多线段中带圆弧的多线段

giswater · 发表于 2004-3-15 18:17:41

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

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

×

多线段中可能只有折线，也会有圆弧，怎样能实现自动找出其中带圆弧的多线段，同时不改变他们的图层，颜色等本来的信息

lsjjm · 发表于 2004-3-16 03:45:16

(defun c:test ( / bulge)
  (foreach i (entget (car (entsel)))
(if (= (car i) 42)
   (if (/= (cdr i) 0)
      (setq bulge T)
   )
)
  )
  bulge
)

giswater · 发表于 2004-3-25 09:31:18

最初由 giswater 发布
[B]多线段中可能只有折线，也会有圆弧，怎样能实现自动找出其中带圆弧的多线段，同时不改变他们的图层，颜色等本来的信息 [/B]

好象没有办法实现！是不是程序有错，谢谢，谁帮帮忙！

XDSoft · 发表于 2004-3-25 09:52:46

最初由 giswater 发布
[B]多线段中可能只有折线，也会有圆弧，怎样能实现自动找出其中带圆弧的多线段，同时不改变他们的图层，颜色等本来的信息 [/B]

下面的函数在晓东工具箱环境下，参数是POLYLINE实体名和POLYLINE上的一个测试点和是否绘制标记CLR，NIL或者T。

该函数能把POLYLINE上，测试点下面的线或者弧线得到他们的起始，结束点等参数，如果函数参数CLR为T，直接画出测试点下面的线或者弧线。

你可以参考下。

;|
用法：($XDLSP_PolyLine_getSegAt <多义线实体名> <测试点> <绘制标记>)
获得一个*POLYLINE线上指定一点处的“段”的信息。
对于直线段返回：(顶点索引 "kLine" 起点终点)
对于弧线段返回：(顶点索引 "kArc" 起点凸度终点)
所有返回点在UCS下。
|;
(defun $XDLSP_PolyLine_getSegAt (e pt clr / cNa tf i nNums eTyl eSegData el
tf1 tf2
)
(setq cNa (car (xdrx_Object_ClassName e)))
(if (wcmatch cNa "*POLYLINE")
(progn
(setq tf t)
(if (setq tf (= cNa "POLYLINE"))
(setq tf (xdrx_polyline_ConvertFrom e)
tf2 tf
)
(setq tf t)
)
(if tf
(progn
(setq nNums (xdrx_polyline_numVerts e)
i -1
)
(setq tf1 t)
(while (and
tf1
(< i nNums)
)
(if (xdrx_polyline_onSegAt e (setq i (1+ i))
pt
)
(progn
(setq eTyl (xdrx_polyline_segtype e i)
eSegData (cond
((= "kLine" eTyl)
(setq data1
(xdrx_polyline_getLineSegAt e i)
data2
(xdrx_polyline_getWidthsAt e i)
)
(if (/= clr 0)
(progn
(apply
'command
(cons ".pline" data1)
)
(command "")
(if (= "POLYLINE" (car (xdrx_object_classname (entlast))))
(xdrx_polyline_ConvertFrom (entlast))
)
(xdrx_polyline_setConstantWidth
(entlast)
(/
(getvar "viewsize") 64
)
)
(xdrx_entity_setcolor
(entlast) 1
)
)
)
(append
data1
data2
)
)
((= "kArc") ; (xdrx_polyline_getArcSegAt e
; i)
(list (xdrx_polyline_getpointat e i)
(xdrx_polyline_getBulgeAt e i)
(xdrx_polyline_getpointat e
(1+ i)
)
)
)
)
el (cons i (cons eTyl eSegData))
tf1 nil
)
)
)
)
)
)
(if tf2
(xdrx_polyline->2dpolyline e)
)
)
)
el
)

;| 
   用法：($XDLSP_PolyLine_getSegAt <多义线实体名> <测试点> <绘制标记>) 
   获得一个*POLYLINE线上指定一点处的“段”的信息。 
   对于直线段返回：(顶点索引 "kLine" 起点 终点) 
   对于弧线段返回：(顶点索引 "kArc" 起点 凸度 终点) 
   所有返回点在UCS下。 
|; 
(defun $XDLSP_PolyLine_getSegAt (e pt clr / cNa tf i nNums eTyl eSegData el 
                                   tf1 tf2 
                                ) 
  (setq cNa (car (xdrx_Object_ClassName e))) 
  (if (wcmatch cNa "*POLYLINE") 
    (progn 
      (setq tf t) 
      (if (setq tf (= cNa "POLYLINE")) 
        (setq tf (xdrx_polyline_ConvertFrom e) 
              tf2 tf 
        ) 
        (setq tf t) 
      ) 
      (if tf 
        (progn 
          (setq nNums (xdrx_polyline_numVerts e) 
                i -1 
          ) 
          (setq tf1 t) 
          (while (and 
                   tf1 
                   (
                 ) 
            (if (xdrx_polyline_onSegAt e (setq i (1+ i)) 
                                       pt 
                ) 
              (progn 
                (setq eTyl (xdrx_polyline_segtype e i) 
                      eSegData (cond 
                                 ((= "kLine" eTyl) 
                                   (setq data1 
                                         (xdrx_polyline_getLineSegAt e i) 
                                         data2 
                                         (xdrx_polyline_getWidthsAt e i) 
                                   ) 
                                   (if (/= clr 0) 
                                     (progn 
                                       (apply 
                                         'command 
                                         (cons ".pline" data1) 
                                       ) 
                                       (command "") 
                                       (if (= "POLYLINE" (car (xdrx_object_classname (entlast)))) 
                                          (xdrx_polyline_ConvertFrom (entlast)) 
                                       ) 
                                       (xdrx_polyline_setConstantWidth 
                                                                       (entlast) 
                                                                       (/ 
                                                                          (getvar "viewsize") 64 
                                                                       ) 
                                       ) 
                                       (xdrx_entity_setcolor 
                                                             (entlast) 1 
                                       ) 
                                     ) 
                                   ) 
                                   (append 
                                     data1 
                                     data2 
                                   ) 
                                 ) 
                                 ((= "kArc") ; (xdrx_polyline_getArcSegAt e 
                                       ; i) 
                                   (list (xdrx_polyline_getpointat e i) 
                                         (xdrx_polyline_getBulgeAt e i) 
                                         (xdrx_polyline_getpointat e 
                                                                   (1+ i) 
                                         ) 
                                   ) 
                                 ) 
                               ) 
                      el (cons i (cons eTyl eSegData)) 
                      tf1 nil 
                ) 
              ) 
            ) 
          ) 
        ) 
      ) 
      (if tf2 
        (xdrx_polyline->2dpolyline e) 
      ) 
    ) 
  ) 
  el 
)

lsjjm · 发表于 2004-3-25 18:40:18

最初由 giswater 发布
[B]好象没有办法实现！是不是程序有错，... [/B]

我在2000i 和2004都没有问题呀！？

giswater · 发表于 2004-3-26 08:29:12

最初由 XDSoft 发布
[B]

下面的函数在晓东工具箱环境下，参数... [/B]

我在试试,我是在2002中试的

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

[编程申请]：怎样找出多线段中带圆弧的多线段

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

相关帖子

Re: [编程申请]：怎样找出多线段中带圆弧的多线段

Re: [编程申请]：怎样找出多线段中带圆弧的多线段

Re: Re: [编程申请]：怎样找出多线段中带圆弧的多线段

Re: Re: [编程申请]：怎样找出多线段中带圆弧的多线段

浏览过的版块