请问如何得到多段线中直线与圆弧衔接的所有衔接点？

vbnewer

请问如何得到多段线中直线与圆弧衔接的所有衔接点？
圆弧段有可能是多段圆弧组成的。我的理解是检测这两种情况：一：组码42由0变成非0，二：组码42由非0变成0，但具体实现代码不知道怎么写。请大神赐教。

革天明

就是判断类型，但我也没写过
还有一种是判断凸度，凸度不为0的就是圆弧了

vbnewer

革天明 发表于 2021-11-7 10:21
就是判断类型，但我也没写过
还有一种是判断凸度，凸度不为0的就是圆弧了

是的，关键是要找出所有凸度由0变非0和由非0变0的所有位置。

gaics

(defun c:tt (/ ent obj pt lst co1 co2 i)
  (vl-load-com)
  (setq ent (car (entsel)))
  (setq obj (vlax-ename->vla-object ent))
  (setq lst '())
  (setq i 0)
  (repeat (- (cdr (assoc 90 (entget ent))) 1)
    (setq co1 (vla-getBulge obj i))
    (setq co2 (vla-getBulge obj (1+ i)))
    (cond ((and (= co1 0) (/= co2 0))
           (setq pt (vlax-safearray->list
                      (vlax-variant-value (vla-get-Coordinate obj (1+ i)))
                    )
           )
           (setq lst (cons pt lst))
          )
          ((and (/= co1 0) (= co2 0))
           (setq pt (vlax-safearray->list
                      (vlax-variant-value (vla-get-Coordinate obj (1+ i)))
                    )
           )
           (setq lst (cons pt lst))
          )
    )
    (setq i (1+ i))
  )
  lst
)

vbnewer

gaics 发表于 2021-11-8 17:21
(defun c:tt (/ ent obj pt lst co1 co2 i)
  (vl-load-com)
  (setq ent (car (entsel)))

第一次认识vla-getBulge这个函数，很好很强大，多谢大佬指点！