CODE08：選択した円/円弧の中心座標値を一括表記

2023年05月13日

2023年06月22日


;選択した円/円弧の中心座標値を一括表記
;+++++++++++++
(defun C:CODE08 ( / Obj cnt num tmpl ed PtX PtY Pt )
;+++++++++++++
    (princ "\n円/円弧を選択")
    (setq Obj (ssget '((0 . "CIRCLE,ARC"))))
    (if (not(= Obj nil));円/円弧が選択されていたら・・・
        (progn
            (setq cnt 0)
            (setq num (sslength Obj))
            (Command "OsnapCoord" "1" "-Layer" "M" "FlagID" "")
            (while (< cnt num);
                (setq tmpl (ssname Obj cnt))
                (setq ed (entget tmpl))
                (setq Pt (cdr(assoc 10 ed)));円の中心
                (setq Pt (trans Pt  tmpl 0))　;OCS座標からWCS座標に変換 ;ename-circle
                (setq Pt (trans Pt  0 1))　;WCS座標からUCS座標に変換
                ;+++++++++++++
                (setq PtX (car Pt)
                        PtY (cadr Pt))
                (setq PtX (rtos PtX )
                        PtY (rtos PtY ))
                ;+++++++++++++	
                (setq Pt (strcat PtX "," PtY))
                (Command 
                    "ID" Pt
                    "Ucs" "w" "-MText" "@" "J" "ML" "@0,0" 
                    (strcat "X=" PtX) (strcat "Y=" PtY) ""
                    "Ucs" "p")
                (setq cnt (1+ cnt))
            );while
        );progn
        ;円/円弧が選択されていなかったら・・・
        (alert "選択エラー：円/円弧が選択されていません") 
    ):if
    (princ)
)