世井 发表于 2022-4-26 12:59:07

检查圆弧半径大于10000以上改为直线

那位大师 有检查圆弧半径大于10000以上 改为直线

自贡黄明儒 发表于 2022-4-26 15:22:15

(DEFUN c:FF1 (/ E EN EP LA N R SP SS)
(VL-LOAD-COM)
(IF (SETQ SS (SSGET "x" '((0 . "ARC"))))
    (REPEAT (SETQ N (SSLENGTH SS))
      (SETQ E (SSNAME SS (SETQ N (1- N))))
      (SETQ EN (ENTGET E))
      (SETQ R (CDR (ASSOC 40 EN)))
      (IF (> R 100000)
        (PROGN
          (SETQ LA (ASSOC 8 EN))
          (SETQ SP (vlax-curve-getStartPoint E))
          (SETQ EP (vlax-curve-getENDPoint E))
          (ENTDEL E)
          (ENTMAKE (LIST '(0 . "LINE") LA (CONS 10 SP) (CONS 11 EP)))
        )
      )
      (PRINC "\N FINISH...")
    )
)
(PRINC)
)

世井 发表于 2022-4-26 16:01:32

自贡黄明儒 发表于 2022-4-26 15:22


多谢黄大师

林立 发表于 2024-6-25 14:26:24

世井 发表于 2022-4-26 16:01
多谢黄大师

这个可以加入框选吗:lol:lol
页: [1]
查看完整版本: 检查圆弧半径大于10000以上改为直线