[编程申请]：求R14下的LSP程序：加后缀，选定字符，回车，则被选定字符加上后缀 MG V2

lengliqun · 发表于 2004-7-6 10:40:17

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

求R14下的LSP程序：加后缀，选定字符，回车，则被选定字符加上后缀 MG V2]14

要求 MG V2]14这几个字符在LSP程序中，以免每次输入。谢谢。

cqnj023 · 发表于 2004-7-6 11:25:33

(defun c:test ( / END LEN N NEWSTR OLDSTR STRSS)
  (setq strss (ssget '((0 . "TEXT,MTEXT"))))
  (setq len (sslength strss) n 0)
  (repeat len
(setq end (entget (ssname strss n)))
(setq newstr (cons '1 (strcat (cdr (setq oldstr (ASSOC '1 end))) "MG V2]14")))
(setq end (subst newstr oldstr end))
(ENTMOD end)
(setq n (1+ n))
)
  )

lsjjm · 发表于 2004-7-6 11:27:07

Try this:
[php]
(defun c:test ()
  (setq a (car (entsel)))
  (setq el (entget a))
  (setq el (subst (cons 1 (strcat (cdr (assoc 1 el)) "MG V2]14"))(assoc 1 el) el))
  (entmod el)
)
[/php]

liuyan629 · 发表于 2004-7-6 11:52:26

我加了后怎么不会出现后缀呀，
命令是什么呢？

lengliqun · 发表于 2004-7-6 12:58:08

lsjjm 的在R2002下可用，R14下可用，但R14下的天正装修中不能用，为什么？提示：exception:　access violation at address 6dab31h，请求尽快解答。

cqnj023 的在R2002与R14下不可用，其中R2002下提示语法错误。
请续继编出在R14下的LSP。谢谢。

cqnj023 · 发表于 2004-7-6 17:00:25

哦，多了一个），已修改。lsjjm的代码没有问题呀。

我加了后怎么不会出现后缀呀,命令是什么

命令test。

lsjjm · 发表于 2004-7-7 04:04:47

5楼: 对不起, 我手头没有"天正", 也不知道"天正" 是什么?

账号		自动登录	找回密码
密码			立即注册

[编程申请]：求R14下的LSP程序：加后缀，选定字符，回车，则被选定字符加上后缀 MG V2

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块