请求有能之士开发将图形同时复制到多个选择点的工具

zn1996

设想是这样：1.取已被选中N个要被替换的图形，批量取出这些图形的中心点及图元名,分别存储好.
(这里请直接取执行该命令前已被选中的图形,因为很多情况下,可以使用快速选择功能选取部分图形,
如果执行命令时用户未选中任何图形,直接报错,或者提示去选中图形)
2.提示用户选取需要替换的图形,并提示选取基点.
3.将选取的需要替换的图形,以选中的基点复制到之前选取的那些图形的中心点位置.
4.询问用户是否需要删除之前的图形，需要的话,取出之前存储的图元名,并删除.


作用是换图例，及批量标注某些图形的名称，
其中我还想过是否需要加以偏移坐标的选项,
后面想了下，标注完再快速选择这些图形,一起移动，
可以达到同样效果,就不麻烦开发这个功能了，
谢谢各位坛友，希望有能力的朋友帮忙想想办法,谢谢！







原始状态




插件需要实现的状态



下附样图

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:样图.zip 
下载次数:8  文件大小:29.72 KB 
下载权限: 不限 以上  [免费赚D豆]

谢谢各位

tzfcn

这个看起来很牛的样子。

yangjian001

谢谢楼主分享

王鹏_pBZlo

被替换的图形和替换图形都是图块吗？
来自: 微社区

王鹏_pBZlo

曾经编过一个图块替换图块的，且允许被替换图块有不同的比例和旋转角度
来自: 微社区

yangjian001

谢谢楼主分享

lrd1861

是不是这样

王鹏_pBZlo

按被替换对象为图块
如果按样图,被替换对象是圆,需要把第2句的"INSERT"替换成"CIRCLE"
用于替换的对象的基点是可以选的,但实际上如果用于替换的对象是图块,也可以修改,让图块插入点为默认基点.
如果插入点不理想,请参见修改图块的插入点
http://bbs.xdcad.net/forum.php?m ... &fromuid=783614
(出处: 晓东CAD家园-论坛)

(defun c:tt( / sset nsset pt yn temp i att npt)
        (prompt "\n选择被替换的对象:")
        (setq sset (ssget (list (cons 0 "INSERT"))))
        (prompt "被替换对象的基点为图块的插入点!")
        (prompt "\n选择用于替换的对象:")
        (setq nsset (ssget))
        (setq pt (getpoint "\n输入替换对象基点:"))
        (setq yn (strcase (getstring "\n[删除原对象(Y/N)]<Y>:")))
        (if (= "" yn) (setq yn "Y"))
        (setq temp (getvar "osmode"))
        (command "undo" "be")
        (setvar "osmode" 0)
        (setq i -1)
        (while (setq att (ssname sset (setq i (1+ i))))
                (setq npt (trans (cdr (assoc 10 (entget att))) 0 1))
                (command "copy" nsset "" pt npt)
        )
        (if (= "Y" yn) (command "erase" sset ""))
        (setvar "osmode" temp)
        (command "undo" "e")
        (princ)
)

zn1996

王鹏_pBZlo 发表于 2019-6-15 17:15
按被替换对象为图块
如果按样图,被替换对象是圆,需要把第2句的"INSERT"替换成"CIRCLE"
用于替换的对象的 ...

感谢您的帮忙。

zn1996

lrd1861 发表于 2019-6-15 15:34
是不是这样

是的  请问您能分享下源码参考学习下吗？

zn1996

王鹏_pBZlo 发表于 2019-6-15 17:15
按被替换对象为图块
如果按样图,被替换对象是圆,需要把第2句的"INSERT"替换成"CIRCLE"
用于替换的对象的 ...

谢谢，用上了，  十分感谢。