明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 2367|回复: 10

求改编快速建块程序

  [复制链接]
发表于 2015-5-30 17:29 | 显示全部楼层 |阅读模式
1明经币
[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)
)

发表于 2015-5-30 17:29 | 显示全部楼层
  1. (defun c:KSJK (/ ss1 p x2)
  2.   (prompt "\n请选择加入块的对象: ")
  3.   (setq ss1 (ssget))
  4.   (princ "\n选择基点: ")
  5.   (setq        p  (getpoint)
  6.         x2 (strcat "BLK-" (rtos (* (getvar "cdate") 1000000) 2 0))
  7.   )
  8.   (if (tblsearch "layer" "DIM")
  9.     (if (/= (getvar "clayer")"DIM")
  10.         (setvar "clayer" "DIM")
  11.     )
  12.     (progn
  13.       (command "_layer" "n" "DIM" "")
  14.       (setvar "clayer" "DIM")
  15.     )
  16.   )
  17.   (command "_block" x2 p ss1 "")
  18.   (command "_insert" x2 p "" "" "")
  19.   (princ)
  20. )
回复

使用道具 举报

 楼主| 发表于 2015-6-2 17:18 | 显示全部楼层
danxingpen 发表于 2015-5-30 17:29

非常感谢!
回复

使用道具 举报

发表于 2016-6-12 23:11 | 显示全部楼层
谢谢楼主分享
回复

使用道具 举报

发表于 2016-7-2 16:33 | 显示全部楼层
这个好,简单方便,谢谢分享!
回复

使用道具 举报

发表于 2016-10-20 09:01 | 显示全部楼层
程序非常给力,谢谢楼主分享。
回复

使用道具 举报

发表于 2017-8-27 16:01 | 显示全部楼层
程序给力。谢谢楼主
回复

使用道具 举报

发表于 2017-10-31 10:46 | 显示全部楼层
不错的资料,谢谢分享啊。
回复

使用道具 举报

发表于 2018-5-8 10:49 | 显示全部楼层
可以增加自定义块名怎么写?
回复

使用道具 举报

发表于 2018-8-28 11:29 | 显示全部楼层
好牛逼的lsp
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 02:18 , Processed in 0.228369 second(s), 22 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表