求改编快速建块程序

fire9527 · 发表于 2015-5-30 17:29:34

[hr]以下程序在明经社区找到的，作者忘了备注（向原著致敬！）
已经具备功能：快速建块，块名为时间
诉求：①希望能在块名前加入前缀“BLK-”；
         ②并将刚生成的图块所在图层改为“DIM”层，若“DIM”层不存在则新建DIM层，反正最终结果是让图块位于DIM层
叩谢各位大神！[hr]
(defun c:KSJK (/ ss1 p x2)
  (prompt "\n请选择加入块的对象: ")
  (setq ss1 (ssget))
  (princ "\n选择基点: ")
  (setq p  (getpoint)
x2 (rtos (* (getvar "cdate") 1000000) 2 0)
  )
  (command "_block" x2 p ss1 "")
  (command "_insert" x2 p "" "" "")
  (princ)
)

danxingpen · 发表于 2015-5-30 17:29:35

(defun c:KSJK (/ ss1 p x2)
(prompt "\n请选择加入块的对象: ")
(setq ss1 (ssget))
(princ "\n选择基点: ")
(setq p (getpoint)
x2 (strcat "BLK-" (rtos (* (getvar "cdate") 1000000) 2 0))
)
(if (tblsearch "layer" "DIM")
(if (/= (getvar "clayer")"DIM")
(setvar "clayer" "DIM")
)
(progn
(command "_layer" "n" "DIM" "")
(setvar "clayer" "DIM")
)
)
(command "_block" x2 p ss1 "")
(command "_insert" x2 p "" "" "")
(princ)
)

fire9527 · 发表于 2015-6-2 17:18:12

danxingpen 发表于 2015-5-30 17:29

非常感谢！

vladimir · 发表于 2016-6-12 23:11:48

谢谢楼主分享

sj800918 · 发表于 2016-7-2 16:33:55

这个好，简单方便，谢谢分享！

vladimirputin · 发表于 2016-10-20 09:01:57

程序非常给力，谢谢楼主分享。

1028882406@qq.c · 发表于 2017-8-27 16:01:19

程序给力。谢谢楼主

vladimirputin · 发表于 2017-10-31 10:46:24

不错的资料，谢谢分享啊。

腾龙 · 发表于 2018-5-8 10:49:00

可以增加自定义块名怎么写？

oistre · 发表于 2018-8-28 11:29:51

好牛逼的lsp

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

求改编快速建块程序

最佳答案