设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 5616|回复: 82

[图块] 修改图块的插入点

  [复制链接]

已领礼包: 583个

财富等级: 财运亨通

发表于 2019-3-14 21:20:27 | 显示全部楼层 |阅读模式
  • 插件名称 : 修改图块的插入点
  • 作  者 : odelywp
  • 运行环境 :不限 
  • 发布时间 :2019-03-14
  • 命令名称 :basc
  • 插件介绍 :有些人做图块时不注意块的插入点,甚至插入点在图块外很远的地方. 本程序用于修改插入点到选定点处
  • 备  注 : (点击图片可以放大)
(点击图片可以放大)

晓东温馨提示 1、运行环境为 晓东工具箱XDRX API 的插件,请下载最新版本的 晓东工具箱XDRX API开发环境 一键安装
2、在ACAD中如何加载插件,请看 论坛插件使用方法
3、如果您有要求需要定制插件,请到 编程申请 论坛发帖求助

插件详细内容

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

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

x
本帖最后由 王鹏_pBZlo 于 2019-7-5 13:57 编辑

命令:BASC;源码回复可见(defun c:basc( / blk pt blk2 blk41 blk42 blk50 blk10 temposm lin sset bnum npt blkpro)
        (defun point(pbase sx sy) (list (+ (car pbase) sx)(+ (cadr pbase) sy)))        (defun ass (num entity / tempvalue)
        (setq tempvalue (cdr (assoc num (entget entity))))
        (if (and (= 62 num) (null tempvalue)) (setq tempvalue 256))
        (if (and (= 6 num) (null tempvalue)) (setq tempvalue "Bylayer"))
        (setq tempvalue tempvalue))        
        (command "undo" "be")
        (setq blk(car (entsel "\n选择需调整插入点的块:")))
        (command "ucs" "")
        (setq pt (getpoint "\n新的插入点:"))
        (setq blkpro (entget blk))
        (setq blk2 (cdr (assoc 2 blkpro)))
        (setq blk41 (cdr (assoc 41 blkpro)))
        (setq blk42 (cdr (assoc 42 blkpro)))
        (setq blk50 (cdr (assoc 50 blkpro)))
        (setq blk10 (cdr (assoc 10 blkpro)))
        (setq temposm (getvar "osmode"))
        (setvar "osmode" 0)
        (command "line" blk10 pt "")
        (setq lin (entlast))
        (if (/= blk50 0.0) (command "rotate" lin "" blk10 (* -180.0 (/ blk50 pi))))
        (setq pt (list (/ (- (nth 0 (ass 11 lin)) (nth 0 blk10)) blk41) (/ (- (nth 1 (ass 11 lin)) (nth 1 blk10)) blk42)))
        (command "erase" lin "")
        (command "bedit" blk2)
        (command "move" "all" "" pt (list 0 0))
        (command "bclose" "")
        (setq sset (ssget "x" (list (cons 0 "INSERT")(cons 2 blk2))))
        (setq bnum 0)
        (while (setq blk (ssname sset bnum))
                (setq blk10 (ass 10 blk))
                (setq npt (point blk10 (* (ass 41 blk) (nth 0 pt)) (* (ass 42 blk) (nth 1 pt))))        
                (command "line" blk10 npt "") (setq lin (entlast))
                (if (/= (setq blk50 (ass 50 blk)) 0.0) (command "rotate" lin "" blk10 (* 180.0 (/ blk50 pi))))
                (command "move" blk "" blk10 (ass 11 lin))
                (command "erase" lin "")
                (setq bnum (1+ bnum))
        )
        (setvar "osmode" temposm)
        (command "undo" "e")
        (princ)
)

basc.gif

basc.zip

1.49 KB, 下载次数: 68, 下载积分: D豆 -1 , 活跃度 1

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 40个

财富等级: 招财进宝

发表于 2019-3-14 21:53:07 | 显示全部楼层
纯LISP的,不错
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 8214个

财富等级: 富甲天下

发表于 2019-3-14 22:02:20 | 显示全部楼层
谢谢分享! 回覆学习!!!!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 5867个

财富等级: 富甲天下

发表于 2019-3-15 06:45:21 | 显示全部楼层
实用的工具,谢谢分享
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 960个

财富等级: 财运亨通

发表于 2019-3-15 07:52:25 | 显示全部楼层
谢谢楼主分享
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 263个

财富等级: 日进斗金

发表于 2019-3-15 08:02:43 | 显示全部楼层
谢谢分享6666
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 2092个

财富等级: 金玉满堂

发表于 2019-3-15 09:57:14 | 显示全部楼层
不错的插件,谢谢楼主分享。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 6054个

财富等级: 富甲天下

发表于 2019-3-15 10:48:38 | 显示全部楼层

实用的工具,谢谢分享
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 401个

财富等级: 日进斗金

发表于 2019-3-15 11:22:39 | 显示全部楼层
感谢分享,,这个功能CAD是不是有自带的1?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 55个

财富等级: 招财进宝

发表于 2019-3-15 11:33:02 | 显示全部楼层
看看学学习以下
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 5063个

财富等级: 富甲天下

发表于 2019-3-15 11:38:51 | 显示全部楼层
直接编辑块也可以的。

点评

那在图上的位置就不是原来的位置了  发表于 2019-3-15 11:46
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 583个

财富等级: 财运亨通

 楼主| 发表于 2019-3-15 11:56:32 来自手机 | 显示全部楼层
tzfcn 发表于 2019-3-15 11:38
直接编辑块也可以的。

如果这个块有多个,直接修改后这些块就会改变他它们的位置,需要一个个的移动会原来的位置
来自: 微社区

点评

这一点确实很好,比系统自带的要好用!  详情 回复 发表于 2019-3-15 13:55
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 583个

财富等级: 财运亨通

 楼主| 发表于 2019-3-15 11:57:46 来自手机 | 显示全部楼层
xudi1234 发表于 2019-3-15 11:22
感谢分享,,这个功能CAD是不是有自带的1?

如果有,请说明一下,谢谢
来自: 微社区
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 6466个

财富等级: 富甲天下

发表于 2019-3-15 13:08:51 | 显示全部楼层
这个功能比较实用。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 8468个

财富等级: 富甲天下

发表于 2019-3-15 13:18:48 | 显示全部楼层
回复看看,学习一下
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

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

本版积分规则

QQ|申请友链|小黑屋|手机版|Archiver|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )  

GMT+8, 2021-9-20 07:23 , Processed in 0.887236 second(s), 62 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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