(defun c:tt (/ ss n i obj text x-list y-list x-value y-value x-obj y-obj x-pair y-pair)
(prompt " ...
7#贴可以框选一次交换所有XY坐标值
(while (and x-list y-list)...(setq x-list (cdr x-list)) (setq y-list (cdr y-list)))的方法我没用过，感觉以后用得上。
但附近若有不需交换XY坐标值的文本会造成干扰。多谢您的指导！ xiao1984 发表于 2025-3-1 22:45
(defun c:hhzb (/ ss n i obj text x-list y-list x-value y-value x-obj y-obj x-pair y-pair)
(prom ...
9#贴也看懂了，增加了一个功能：修改后颜色调整为红色。学会一招，没有时扩展这一项：(setq x-ent (append x-ent (list (cons 62 1))))。多谢指导 yjwht 发表于 2025-3-2 11:36
9#贴也看懂了，增加了一个功能：修改后颜色调整为红色。学会一招，没有时扩展这一项：(setq x-ent (appen ...
运用方法不一样展示的效果就不一样 文字替换哦。你可以扩展下，多行文字，控制字体，字宽，字体不存在时自动加载。
页:
1
[2]