明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 2264|回复: 20

[源码] 一键新建块,而且自动生成块名,绝对不会重复。省去复杂的建块操作,避免了重复

[复制链接]
发表于 2023-5-22 12:19 | 显示全部楼层 |阅读模式
本帖最后由 yjccwf 于 2023-8-16 12:10 编辑

一键新建块,而且自动生成块名,绝对不会重复。省去复杂的建块操作,避免了重复;免费分享给大家,如果好用 ,希望大家给个支持!

1

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x

点评

图块原点固定在 '(0 0 0)不妥  发表于 2024-1-15 17:33

评分

参与人数 3明经币 +3 收起 理由
菜鸟初来乍到 + 1
Bao_lai + 1 很给力!
bssurvey + 1 赞一个!

查看全部评分

发表于 2024-2-2 09:35 | 显示全部楼层
jkop 发表于 2024-1-15 16:00
可以设置基准点,适合我使用,感谢分享。

(defun C:KSJK (/ TKname ss pt)
  (setvar "cmdecho" 0)
  (setq TKname (menucmd "M=$(edtime,$(getvar,date),YYYYMODDHHMMSS)"))
  (print "
请选择需要建块的对象:")
  (setq ss (ssget))
  (if ss
    (progn
      (setq pt (getpoint "
请输入块基点坐标:"))
      (command "-block" TKname "o" "c" pt ss "")
      (princ (strcat "
已完成块的新建,块名为<" TKname ">"))
    )
    (print "
选择的对象为空,请重新选择。")
  )
  (setvar "cmdecho" 1)
  (princ)
)
——————————————————————————————————————
改了下可以设置基点了
发表于 2023-5-24 16:01 | 显示全部楼层
本帖最后由 李钊伟2012 于 2024-2-12 09:46 编辑

;快速做块,你们可以试试用CAD自带的。不过偶尔会做块失败,原因未知。只能用最基本的键盘操作复制粘贴
(defun c:bb( / pt ss)
(if(/="0"(getvar "clayer")) (PROGN(princ"当前图层: ")(princ (getvar "clayer"))))
(vl-cmdf "copybase" (setq pt(getpoint"\n指定基点")) (setq ss(ssget)) "" "pasteblock" pt)
(command"erase" ss "");(if(/="0"(getvar "clayer"))  (command "layer" "m" "0" "")  (PROGN(princ"当前块图层: ")  (princ (getvar "clayer"))  (command "change" (ssget)"" "p" "la" "0" "" ))
(princ))

发表于 2024-1-15 16:00 | 显示全部楼层
李钊伟2012 发表于 2023-5-24 16:01
;快速做块,你们可以试试用CAD自带的。
(defun c:bb( / pt ss)
(if(/="0"(getvar "clayer")) (PROGN(princ ...

可以设置基准点,适合我使用,感谢分享。
发表于 2023-5-22 12:38 | 显示全部楼层
谢谢您的分享
感觉按时间来建块也不会重名吧
发表于 2023-5-22 12:41 | 显示全部楼层
谢谢楼主分享
发表于 2023-5-22 13:22 | 显示全部楼层
谢谢楼主分享
发表于 2023-5-22 13:28 | 显示全部楼层
谢谢大佬分享成果!!!
 楼主| 发表于 2023-5-22 13:32 来自手机 | 显示全部楼层
ynhh 发表于 2023-5-22 12:38
谢谢您的分享
感觉按时间来建块也不会重名吧

对  按时间也是好方法
发表于 2023-5-22 13:47 | 显示全部楼层
谢谢大神的分享
发表于 2023-5-22 15:25 | 显示全部楼层
个人感觉按照同的图元和图层,设置已给命名原则也很好,比如识别到了给水管线,那么就生成xx号楼给水管系统图。
发表于 2023-5-22 16:17 | 显示全部楼层
感谢分享挺好用的!G版的是用时间来命令的,我一直用的G版的,大家都很棒
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-2-28 14:15 , Processed in 0.159662 second(s), 28 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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