乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
楼主: dannywi77iams

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

[复制链接]
BlackBox

44

主题

3166

帖子

2803

银币

中流砥柱

Rank: 25

铜币
557
发表于 2022-7-6 08:50:55 | 显示全部楼层
伙计们，一定要使用 
  1. .
回复

使用道具 举报

fixo

1

主题

1069

帖子

1050

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
69
发表于 2022-7-6 08:55:51 | 显示全部楼层
试试上面我编辑的代码，
我只是随便更改了一个变量名
回复

使用道具 举报

MSasu

35

主题

2471

帖子

2447

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
174
发表于 2022-7-6 08:56:23 | 显示全部楼层
 
STRCAT函数将两个或多个字符串连接在一起-要连接数字，请检查RTOS和ITOA函数。
 
当做
米尔恰
回复

使用道具 举报

MSasu

35

主题

2471

帖子

2447

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
174
发表于 2022-7-6 08:59:14 | 显示全部楼层
 
AutoCAD有一些未记录的功能；FNSPITL可以翻译为“文件名在列表中拆分”：
 
  1. (fnsplitl "C:\\Folder\\File.Ext")   ;this will return ("C:\\Folder\" "File" ".Ext")

 
当做
米尔恰
回复

使用道具 举报

pBe

32

主题

2722

帖子

2666

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
211
发表于 2022-7-6 09:03:36 | 显示全部楼层
这些数字是substr的，不是strcat Danny的
 
至于jtbworld的FNSpitl。通用域名格式
回复

使用道具 举报

dannywi77iams

2

主题

14

帖子

12

银币

初来乍到

Rank: 1

铜币
10
发表于 2022-7-6 09:06:22 | 显示全部楼层 
  1. (defun c:l2t ()
  2. (setq usernm (getvar "Loginname"));"Daniel.Williams"
  3. (setq tilnm (strcat (substr usernm 1 1) (last (fnsplitl usernm))))
  4. (setq tilnm (strcase tilnm))
  5. );end

 
这是为了将所有字符更改为大写，因为我们所有的图形都需要在标题栏中包含大写文本。
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 09:11:37 | 显示全部楼层
还有一种方法：
 
  1. (setq user (getvar 'LOGINNAME))
  2. (if (setq pos (vl-string-position 46 user))
  3.    (strcase (strcat (substr user 1 1) (substr user (1+ pos))))
  4.    (strcase user)
  5. )
自：
 
  1. (last (fnsplitl "Lee Mac")) = ""
So
 
  2. (setq usernm "Lee Mac")
  3. (strcat (substr usernm 1 1) (last (fnsplitl usernm)))
  5. = "L"

 
很好的跳出框框思考
回复

使用道具 举报

pBe

32

主题

2722

帖子

2666

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
211
发表于 2022-7-6 09:14:41 | 显示全部楼层
 
谢谢李，我敢肯定你们中的任何人都会想到这一点。
幸运就是一切。
 
干杯
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 09:14:52 | 显示全部楼层
还有几个：
 
  1. (setq user (strcase (getvar 'LOGINNAME)))
  2. (if (wcmatch user "*`.*")
  3.    (setq user (vl-string->list user)
  4.          user (vl-list->string (cons (car user) (member 46 user)))
  5.    )
  6.    user
  7. )

 
  1. (setq user (strcase (getvar 'LOGINNAME)))
  2. (if (wcmatch user "*`.*")
  3.    (strcat (chr (ascii user))
  4.        (while (/= 46 (ascii user))
  5.            (setq user (substr user 2))
  6.        )
  7.    )
  8.    user
  9. )
回复

使用道具 举报

pBe

32

主题

2722

帖子

2666

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
211
发表于 2022-7-6 09:18:05 | 显示全部楼层
 
因为你处于涡轮模式。。为（vlax get或create object“VBScript.RegExp”）编写一个
回复

使用道具 举报

12
返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-9 08:20 , Processed in 0.603294 second(s), 81 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表