[求助]：一个文字镜像的小程序，请大家帮忙指正

eobser

[PHP];文本镜像
(defun c:test ()
  (setvar "cmdecho" 0)
  (setq ss (my-ssget "选择要镜像的文字:" '(((0 . "*TEXT")))))
  (setq ssn (sslength ss))
  (setq i 0)
  (repeat ssn
     (setq en (ssname ss i))  
           ent (entget en)
           ang (cdr (assoc 50 ent))
           pt1 (cdr (assoc 10 ent))
           pt2 (polar pt1 ang 10)
           pt3 (cons (car pt1) (list (cadr pt1)))
           pt4 (cons (car pt2) (list (cadr pt2)))
     )
     (command ".mirror" en pt3 pt4 "Y")
     (setq i (1+ i))
  )
  (princ)
)[/PHP]
运行提示如下:
错误: 参数类型错误: 二维/三维点: nil
是不是镜像点类型错了？
谢谢！

carrot1983

1.多了一个括号
2.少了两个引号
[PHP]
;文本镜像
(defun c:test ()
  (setvar "cmdecho" 0)
  (setq ss (ssget '((0 . "*TEXT"))))
  (setq ssn (sslength ss))
  (setq i 0)
  (repeat ssn
     (setq en (ssname ss i)  
           ent (entget en)
           ang (cdr (assoc 50 ent))
           pt1 (cdr (assoc 10 ent))
           pt2 (polar pt1 ang 10)
           pt3 (cons (car pt1) (list (cadr pt1)))
           pt4 (cons (car pt2) (list (cadr pt2)))
     )
     (command ".mirror" en "" pt3 pt4 "Y")
     (setq i (1+ i))
  )
  (princ)
)
[/PHP]

eobser

收到 谢谢！

egos

没发现有什么用处呢？

carrot1983

我也不懂有什么用!
请楼主注意一个变量!
(setq mirtxt (getvar "MIRRTEXT"))

eobser

用一个辅助绘图软件，标注桩号时文字位置有点问题。
我想对桩号文字进行批量镜像，再利用et里面的文本旋转处理。
谢谢两位。

carrot1983

那还不如用cht直接把文字的角度改掉就行了!
晕!

zml84

最初由 eobser 发布
[B]用一个辅助绘图软件，标注桩号时文字位置有点问题。
我想对桩号文字进行批量镜像，再利用et里面的文本旋转处理。
谢谢两位。 [/B]

敢问足下是做路线设计的吗？

carrot1983

“桩号”
如果我没有猜错，脚下是做结构的。是画基础平面图的时候的问题吧！

eobser

最初由 zml84 发布
[B]

敢问足下是做路线设计的吗？ [/B]

水利兼些路桥

marcoyuwen

直接修改该对象的组码71即可
71 文字生成标志（可选；默认值 = 0）：
2 = 文字反向（在 X 轴方向镜像）
4 = 文字倒置（在 Y 轴方向镜像)

coco25825

请问在块中也能镜像吗？