如何创建边界框

MSasu · 发表于 2022-7-5 20:40:33

李，恐怕2007版的PEDIT命令不支持样条线作为输入。
我认为编程上的替代方法是用适当的defame解析样条线实体，并用多段线跟踪它。不知道如何确定诽谤的大小。

kwwong6 · 发表于 2022-7-5 20:43:06

耶！李当然可以工作。但结果差距很小。我附上一张图给你看。

谢谢
样条曲线。拉链

Lt Dan's l · 发表于 2022-7-5 20:45:44

 
 (defun tracecurve ( obj di / cycle st )
   (defun cycle ( st stp seg l )
     (cond
       ( (< (+ st seg) stp )
         (cycle (+ seg st) stp seg
           (cons (vlax-curve-getPointAtParam obj st) l)
         )
       )
       ( t
         (and (< st stp)
           (setq l
             (cons (vlax-curve-getPointAtParam obj st) l)
           )
         )
         (reverse
           (cons (vlax-curve-getPointAtParam obj stp) l)
         )
       )
     )
   )
   (if
     (and (not (minusp di))(not (zerop di))
       (vl-position 
         (vla-get-objectname 
           (cond
             ( (eq 'ENAME (type obj))(vlax-ename->vla-object obj ))
             ( obj )
           )
         ) '("AcDbCircle" "AcDbArc" "AcDbEllipse" "AcDbSpline")
       )
     )
     (cycle 
       (setq st (vlax-curve-getStartParam obj))
       (vlax-curve-getEndParam obj)
       (- (vlax-curve-getParamAtDist obj 0.125) st)
       nil
     )
   )
 )