放大标准字体

SteveBubendorf · 发表于 2022-7-6 10:04:25

有没有办法在标准文本编辑器（非多行文字）中放大字体？我发现自己浪费了很多时间用鼠标定位光标，只需要使用箭头键将光标移到我真正想要的位置？我想我老了，视力也变差了。不事实上，我已经有很多年的麻烦了。我发现这是我处理的最浪费时间的事情之一。这些字母在对话框中靠得太近，无法准确地放置光标，而不会真正减慢编辑过程。

谢谢

troggarf · 发表于 2022-7-6 10:21:06

你想要一个LISP程序吗？？

Lee Mac · 发表于 2022-7-6 10:24:14

嗨，史蒂夫，

试试附件，它可能适合你的眼睛需要

键入“QE”以调用
快速编辑。lsp

SteveBubendorf · 发表于 2022-7-6 10:30:22

特罗加夫，

我在试下面李的Lisp程序。如果你有什么愿意分享的，我很乐意尝试一下。谢谢

SteveBubendorf · 发表于 2022-7-6 10:40:28

李，

我认为我的需要不仅仅是视觉上的。我的鼠标手显然也不像以前那么稳定了。我不仅在变老；我快要衰老了。

您的快速编辑。lsp程序似乎比标准AutoCAD对话框要好得多。是固定宽度字体使其如此吗？通过调出固定宽度的字体，你会自动得到对话框中出现的字体吗，还是在我错过的其他地方调出的字体？

李，我发布了一个编辑程序的一部分，我用一个程序来提取大多数文本类型的实体，就能够编辑它们而言。有什么方法可以让你快速编辑。lsp可以快速编辑，这样我就可以在附加的代码中用QE代替DDEDIT？或者我最好只是尝试编辑固定宽度字体的标准AutoCAD DDEDIT对话框？我怎样才能找到哪个acad。AutoCAD正在使用dcl。我昨晚试图修改文件，但找不到合适的文件。

我发现更改dtexted变量可能是解决我的问题的另一种方法，尽管我更喜欢对话框而不是就地编辑器。

非常感谢，李！！！

copy


(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

copy

[/code][code]

Lee Mac · 发表于 2022-7-6 10:53:10

嗨，史蒂夫，

正确，DCL属性：fixed\u width\u font=true；使文本显示为您看到的内容。

请尝试附加的程序，我已将主QuickEdit程序重组为子函数，接受实体参数并返回字符串。

我还提供了三个使用新的QuickEdit子功能的程序：“qe”、“iqe”和“mqe”。这些程序的说明包含在代码中。

李
QuickEditV1-1。lsp

SteveBubendorf · 发表于 2022-7-6 11:00:28

太好了，李。

非常感谢你！！！！

Lee Mac · 发表于 2022-7-6 11:07:19

不客气Steve

[编程交流] 放大标准字体

发表回复

精选推荐