【源码】简易坐标标注

;;;2026/6/10;;;XUYANYAN;;;简易坐标标注(defun C:zbbz(/ sub_bz ptb ptc)  (setq sub_bz(lambda(pt ptz / zbstr dect)  (setq zbstr(strcat"N="(rtos(cadr pt)2 3)"\\PE="(rtos(car pt)2 3))	dect(if(>(cos(angle pt ptz))0)1 -1))  (entmake (list '(0 . "CIRCLE")'(8 . "坐标标注")		 '(62 . 1)(cons 10 pt)(cons 40 0.25)))  (entmake(list '(0 . "LEADER")	       '(100 . "AcDbEntity")	       '(100 . "AcDbLeader")	       '(71 . 0)	       (cons 8 "坐标标注")	       (cons 10 pt)	       (cons 10 ptz)	       (cons 10 (mapcar'+ ptz(list(* dect 9)0)))))  (entmake(list '(0 . "MTEXT")		'(100 . "AcDbEntity")		'(100 . "AcDbMText")		'(71 . 4)'(7 . "HZ")		(cons 8 "坐标标注")		(cons 1 zbstr)		(cons 10(mapcar'+(mapcar'- ptz'(3.5 0))(list(* dect 4.5)0)))		(cons 40 0.75)		(cons 44 1.25)))))  (setq ptb t ptc t)  (while(and ptb ptc)  (setq ptb(getpoint"\n指定标注基点：<Exit>")	ptc(getpoint ptb"\n点选标注位置：<Exit>"))    (sub_bz ptb ptc)))(prompt"\n; 使用命令\"ZBBZ\"进行坐标标注")