社区 › AutoLISP/Visual LISP 编程技术 › 获取块的中心点

87282374 发表于 2024-1-19 14:44:31

(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 发表于 2024-1-19 14:45:46

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

87282374 发表于 2024-1-21 10:38:52

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

)

87282374 发表于 2024-1-21 11:39:33

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


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

qazxswk 发表于 2024-1-21 11:45:32

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


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

87282374 发表于 2024-1-21 12:21:45

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


这个厉害

查看完整版本: 获取块的中心点