【文字】圆圈居中

newer · 发表于 2020-5-21 10:03:08

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun c:xdtb_cirjz (/ x pts b ss)
(if (and (xdrx-initssget "\n选择圆状曲线<退出>:")
(setq ss (xdrx-ssget '((0 . "circle,spline,*polyline"))))
)
(progn
(xdrx-begin)
(mapcar
'(lambda (x)
(setq pts (xdrx-getsamplept x))
(if (and (setq b (xdrx-points-mincircle pts))
(setq
ss (ssget "cp"
(xdrx-points-wcs2ucs (xd::pnts:open pts))
'((0 . "*text"))
)
)
)
(progn (xdrx-entity-move
(setq e1 (ssname ss 0))
(xd::geom:get9pt e1 5)
(car b)
)
)
)
)
(xdrx-pickset->ents ss)
)
(xdrx-end)
)
)
(princ)
)

(defun c:xdtb_cirjz (/ x pts b ss) 
  (if (and (xdrx-initssget "\n选择圆状曲线<退出>:") 
           (setq ss (xdrx-ssget '((0 . "circle,spline,*polyline")))) 
      ) 
    (progn 
      (xdrx-begin) 
      (mapcar 
        '(lambda (x) 
           (setq pts (xdrx-getsamplept x)) 
           (if (and (setq b (xdrx-points-mincircle pts)) 
                    (setq 
                      ss (ssget        "cp" 
                                (xdrx-points-wcs2ucs (xd::pnts:open pts)) 
                                '((0 . "*text")) 
                         ) 
                    ) 
               ) 
             (progn (xdrx-entity-move 
                      (setq e1 (ssname ss 0)) 
                      (xd::geom:get9pt e1 5) 
                      (car b) 
                    ) 
             ) 
           ) 
         ) 
        (xdrx-pickset->ents ss) 
      ) 
      (xdrx-end) 
    ) 
  ) 
  (princ) 
)

czb203 · 发表于 2020-5-21 22:50:16

群主高产~

LXH刚开始 · 发表于 2020-5-22 09:11:27

版主真是对论坛贡献太大了。

松树石头哥 · 发表于 2020-5-22 09:17:10

感谢楼主分享！！！

fyzld · 发表于 2020-5-22 14:59:24

感谢楼主分享！！！

evayleung · 发表于 2020-5-25 20:45:25

这个有很好的参考作用，谢谢分享

市政画图佬 · 发表于 2023-3-23 10:40:11

非常实用

账号		自动登录	找回密码
密码			立即注册

[工具] 【文字】圆圈居中

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。