获取块的中心点

87282374

(defun hlkx ( en / s )
(if en
    (entmakex
      (append
        (list
          (cons 0 "LWPOLYLINE")
          (cons 100 "AcDbEntity")
          (cons 100 "AcDbPolyline")
          (cons 90 4)
          (cons 70 1)
        )
        (mapcar '(lambda ( p ) (cons 10 p)) (LM:MinBoundingBox en 0.001))
      )
    )
  )
  (entlast)
)

wharan

什么叫块的中心点？命题就是错误的吧？

87282374

(defun c:tt3()
   (setq   entw (car (entsel))
             l0 (hlkx entw)
             )
        (command "zoom" "o" entw "")
  (princ(MJ:Centroid l0))
  (command "_.erase" l0 "")
  (princ)

)

87282374

wharan 发表于 2024-1-19 14:45
什么叫块的中心点？命题就是错误的吧？

都是一些简单的、对称性的多边形等。描述可能不准确，形心点应该更准确些。

qazxswk

xyp1964 发表于 2024-1-18 20:45

终于放出简单而实用的代码了，不容易

87282374

xyp1964 发表于 2024-1-18 20:45

这个厉害