放大标准字体
有没有办法在标准文本编辑器（非多行文字）中放大字体？我发现自己浪费了很多时间用鼠标定位光标，只需要使用箭头键将光标移到我真正想要的位置？我想我老了，视力也变差了。不事实上，我已经有很多年的麻烦了。我发现这是我处理的最浪费时间的事情之一。这些字母在对话框中靠得太近，无法准确地放置光标，而不会真正减慢编辑过程。谢谢 你想要一个LISP程序吗？？ 嗨，史蒂夫，
试试附件，它可能适合你的眼睛需要
键入“QE”以调用
快速编辑。lsp 特罗加夫，
我在试下面李的Lisp程序。如果你有什么愿意分享的，我很乐意尝试一下。谢谢 李，
我认为我的需要不仅仅是视觉上的。我的鼠标手显然也不像以前那么稳定了。我不仅在变老；我快要衰老了。
您的快速编辑。lsp程序似乎比标准AutoCAD对话框要好得多。是固定宽度字体使其如此吗？通过调出固定宽度的字体，你会自动得到对话框中出现的字体吗，还是在我错过的其他地方调出的字体？
李，我发布了一个编辑程序的一部分，我用一个程序来提取大多数文本类型的实体，就能够编辑它们而言。有什么方法可以让你快速编辑。lsp可以快速编辑，这样我就可以在附加的代码中用QE代替DDEDIT？或者我最好只是尝试编辑固定宽度字体的标准AutoCAD DDEDIT对话框？我怎样才能找到哪个acad。AutoCAD正在使用dcl。我昨晚试图修改文件，但找不到合适的文件。
我发现更改dtexted变量可能是解决我的问题的另一种方法，尽管我更喜欢对话框而不是就地编辑器。
非常感谢，李！！！
(setq a1(ssget ' ( (-4 .
"<OR")
(0 .
"ATTDEF")
(0 .
"TEXT")
(0 .
"DIMENSION")
(0 .
"INSERT")
(0 .
"MTEXT")
(-4 .
"OR>")
)
)
)
(setq
n (sslength a1))
(setq index 0)
(setq d2a
"DUMMY")
(repeat n
(setq b1 (entget (ssname a1
index)))
(setq b3 (cdr (car b1)))
(setq tip (cdr
(assoc 0 b1)))
(setq e b1)
(if (= tip "ATTDEF")
(command "ddedit" b3 ""))
(if (= tip "TEXT") (command "ddedit" b3
""))
(if (= tip "INSERT") (command "ddatte"
b3))
(if (= tip "MTEXT") (command "ddedit"
b3))
(if (= tip "DIMENSION") (DDEDIM E));Dependent
Function This File.
(setq index (+ index 1))
)
;repeat
嗨，史蒂夫，
正确，DCL属性：fixed\u width\u font=true；使文本显示为您看到的内容。
请尝试附加的程序，我已将主QuickEdit程序重组为子函数，接受实体参数并返回字符串。
我还提供了三个使用新的QuickEdit子功能的程序：“qe”、“iqe”和“mqe”。这些程序的说明包含在代码中。
李
QuickEditV1-1。lsp 太好了，李。
非常感谢你！！！！ 不客气Steve
页:
[1]