提取要放置的登录名

dannywi77iams · 发表于 2022-7-6 08:17:56

大家好

我是CADTutor的新手，我已经使用AutoCAD 4年了，但在过去的一年里，我发现了关于LISP的知识，对它知之甚少。

我正在尝试编写一个例程，找出谁登录到系统（在我的工作地点，当使用“LOGINNAME”时，它显示“Daniel.Williams”）。
所以我知道如何将其放入字符串（（setq usernm（getvar“Loginname”））

一旦我有了这个名字（这就是我被卡住的地方），我想取名字的第一个字母，去掉所有其他字母，直到“句号”，然后用其余字母以（D.Williams）结尾，然后将其放入a字符串中，放入我的标题栏。

我已经在互联网上和论坛上到处找过了，但找不到任何例子来帮助我了解如何做到这一点。

如果有人能帮我编写代码，这将是一个很大的帮助，因为我说我还在学习LISP，想学习更多关于语言的知识。

这将被安抚。

fixo · 发表于 2022-7-6 08:24:24

欢迎加入
;; 比如，在你得到它之后：

copy

 
(setq ln (getvar "loginname"))
;; and it returned "Daniel.Williams"
;;search for "."  within this string:
(setq newString (vl-string-subst (substr ln 1 1) (substr ln 1 (vl-string-position (ascii ".") ln) ) ln ))
(alert newString)

MSasu · 发表于 2022-7-6 08:24:49

一种解决方案是按点拆分字符串，并按新规则重新组合：

copy


;;; STR2LST
;;; Transforms a string with separator into a list of strings
;;; Author: Gile
;;; Arguments
;;; str = the string
;;; sep = the separator pattern
(defun str2lst (str sep / pos)
 (if (setq pos (vl-string-search sep str))
   (cons (substr str 1 pos)
     (str2lst (substr str (+ (strlen sep) pos 1)) sep)
   )
   (list str)
 )
)
(setq usernm (getvar "Loginname")
     usernm (str2lst usernm ".")
     usernm (strcat (strcase (substr (car usernm) 1 1))
                    "."
                    (strcase (substr (cadr usernm) 1 1))
                    (substr (cadr usernm) 2)))

当做
米尔恰

dannywi77iams · 发表于 2022-7-6 08:29:41

嗨，伙计们

谢谢你的回复，我已经尝试了这两个代码，但都用“错误：错误参数类型：stringp nil”进行了回复

老实说，我不懂“vl”代码，我只是在了解基本代码。你能解释一下代码中发生了什么，让我理解发生了什么吗。

对不起，如果我遇到了愚蠢的，但这就是论坛在这里的目的，帮助像我这样的愚蠢的人哈哈。

pBe · 发表于 2022-7-6 08:31:27

copy


(setq usernm (getvar "Loginname"))
"Daniel.Williams"
(strcat (substr usernm 1 1) (last (fnsplitl usernm)))

MSasu · 发表于 2022-7-6 08:34:51

为了能够访问VisualLisp扩展的功能，请在代码中添加以下行：

copy

(vl-load-com)

当做
米尔卡

附：我在创业阶段就有它，所以把它视为理所当然，总是忘记把它添加到例子中。。。

dannywi77iams · 发表于 2022-7-6 08:39:47

copy

(defun c:l2t ()
(setq usernm (getvar "Loginname"));"Daniel.Williams"
(strcat (substr usernm 1 1) (last (fnsplitl usernm)))
);end

这就是我想要的

运行完代码后，我得到了（D.Williams）

但是当我列出（！usernm）时，它会给出（Daniel.Williams）如何将完成的结果放入字符串中。

谢谢pBe

dannywi77iams · 发表于 2022-7-6 08:42:54

我想我拿到了

copy

(defun c:l2t ()
(setq usernm (getvar "Loginname"));"Daniel.Williams"
(setq tilnm (strcat (substr usernm 1 1) (last (fnsplitl usernm))))
);end

pBe · 发表于 2022-7-6 08:45:44

真为你高兴。。

很高兴我能帮忙

干杯

dannywi77iams · 发表于 2022-7-6 08:48:17

命令“fnsplitl”未在lisp帮助中列出，在哪里可以找到未列出的命令的信息。

很抱歉，对于“strcat”命令，您使用了数字，lisp帮助没有解释使用数字。
你能解释一下为什么以及他们做了什么，或者为我指出获取这些信息的方向吗。

再次感谢

[编程交流] 提取要放置的登录名

发表回复

精选推荐