将文本添加到现有文本

BIGAL · 发表于 2022-7-5 16:35:25

dnovember99你看过我发布的内容吗？它不仅仅是记录时间。我每天都用精简版。它从第一天开始分别记录每个项目。


cut down report
START TIME of report entry .... 2018.Jan.05  09:54:53
END TIME of report entry ...... 2018.Jan.05  10:05:45
Total period ............................... 00:10:52
FILENAME:           2012161-PF.dwg
DIRECTORY:          [url="file://\\XXXX.l\2012"]\\XXXX.l\2012[/url] Projects\2012161\Design\
LAST SAVE:          2018.Jan.05  10:05:40
TOTAL EDITING TIME: 397:56:44
LOGGED USER:        BIGAL
START TIME of report entry .... 2018.Jan.06  10:17:53
END TIME of report entry ...... 2018.Jan.06  10:30:34
Total period ............................... 00:12:41
FILENAME:           2012161-PF.dwg
DIRECTORY:          [url="file://\\XXXX.l\2012"]\\XXXX.l\2012[/url] Projects\2012161\Design\
LAST SAVE:          2018.Jan.05  10:30:29
TOTAL EDITING TIME: 398:09:42
LOGGED USER:        BIGAL
START TIME of report entry .... 2018.Jan.07  10:31:01
END TIME of report entry ...... 2018.Jan.07  10:56:51
Total period ............................... 00:25:50

Grrr · 发表于 2022-7-5 16:36:37

根据具体情况（应用程序），使用的是pstxt，但我同意它不适合getstring，因此OP存在问题。
我在某处使用它来查找某个属性值，然后考虑它们是否对构造主字符串有效。
或者说（我知道这个例子可以写得更好）：

copy


(defun picktext ( msg / e r )
 (and 
   (setq e (car (entsel msg))) ; user is allowed to miss-pick
   (setq r (cdr (assoc 1 (entget e))))
 )
 r
)
(pstxt 
 (picktext "\nPrefix: ")
 (picktext "\nMain Text: ")
 (picktext "\nSuffix: ")
)

[编程交流] 将文本添加到现有文本

发表回复

精选推荐