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

求改编快速建块程序

以下程序在明经社区找到的，作者忘了备注（向原著致敬！）
已经具备功能：快速建块，块名为时间
诉求：①希望能在块名前加入前缀“BLK-”；
         ②并将刚生成的图块所在图层改为“DIM”层，若“DIM”层不存在则新建DIM层，反正最终结果是让图块位于DIM层
叩谢各位大神！
(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 static/image/common/back.gif


非常感谢！

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
页: [1] 2
查看完整版本: 求改编快速建块程序