X、Y坐标值交换小程序

yjwht

xiao1984 发表于 2025-3-1 21:22
(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坐标值的文本会造成干扰。多谢您的指导！

yjwht

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))))。多谢指导

xiao1984

yjwht 发表于 2025-3-2 11:36
9#贴也看懂了，增加了一个功能：修改后颜色调整为红色。学会一招，没有时扩展这一项：(setq x-ent (appen ...

运用方法不一样展示的效果就不一样

chslwj521

文字替换哦。你可以扩展下，多行文字，控制字体，字宽，字体不存在时自动加载。