这个和天正拷贝一样的功能，但是天正拷贝只能复制，不能移动，而且正常使用会有轻微卡顿，复制图元多了会很卡，还需要单独使用天正拷贝的命令才行。这个插件就快的多了，直接代替COPY还有MOVE，也不卡，感谢大佬分享
大佬，昨天用没问题，今天用出现了这个问题：
命令: C
选择对象: 指定对角点: 找到 4 个
选择对象:
指定基点：undo 当前设置: 自动 = 开，控制 = 全部，合并 = 是，图层 = 是
输入要放弃的操作数目或 [自动(A)/控制(C)/开始(BE)/结束(E)/标记(M)/后退(B)] <1>: end
命令: no function definition: CJIG
weshell 发表于 2021-6-25 10:16
大佬，昨天用没问题，今天用出现了这个问题：
命令: C
选择对象: 指定对角点: 找到 4 个
我知道了，是dll文件没加载
https://www.bilibili.com/s/video/BV1WE411V7Cc
非常好用
大神的版本 必须一路支持，又一佳作，感谢分享
大佬这个太牛了，感谢分享
如何修改其中的键值？我的Z键被缩放占用了？
(defun c:tt5 (/ ent ss)
(defun *error* (msg)
(if ss (sshighlight ss 4)) ;取消亮显
(princ "error:")
(princ msg)
)
(setq a (cadr (ssgetfirst)))
(if a
(setq ss a)
(setq ss (ssget))
)
(setvar "cmdecho" 0)
(command "undo" "g")
;;预选择函数段必须在这一句之前，否则无效
(setq pt Nil)
(sshighlight ss 3)
(setq p1 (getpoint "指定基点: "))
(princ "\n")
(if p1
(progn
(while (not (equal p1 pt 1e-4))
(setq ent (entlast))
(setq pt p1)
(princ "指定下一点: ")
(vl-cmdf "copy" ss "" "non" pt pause)
(setq tempss ss)
(setq ss (entbackss ent))
(setq p1 (getvar "lastpoint"))
)
(command "._erase" ss)
(command "select" tempss "")
)
(princ "\n未指定基准点，程序结束\n")
)
)
;控制选择集亮显
(defun sshighlight (ss n / slen ient )
(setq slen (sslength ss) i 0 )
(while (ssname ss i)
(setq ent (ssname ss i))
(redraw ent n);亮显
(setq i (1+ i))
)
T
)
大侠请教下，我这个程序按你的修改了下，然后就是想知道选择集超过1000的时候，使用默认的复制命令，该怎么改呢，程序本身是不是也有一些问题，能否帮忙优化优化呢
图片没办法上传上去，win10 2020，加载出错，NETLOAD 无法加载程序集。错误详细信息: System.IO.FileLoadException: 未能加载文件或程序集“file:///C:\Program Files\Autodesk\AutoCAD 2020\Support\CAD小工具\阿甘动态复制V4.0(CAD2007_2022版)\动态复制CAD2013~2022版\DrawJigCopy.dll”或它的某一个依赖项。不支持操作。 (异常来自 HRESULT:0x80131515)
文件名:“file:///C:\Program Files\Autodesk\AutoCAD 2020\Support\CAD小工具\阿甘动态复制V4.0(CAD2007_2022版)\动态复制CAD2013~2022版\DrawJigCopy.dll” ---> System.NotSupportedException: 尝试从一个网络位置加载程序集，在早期版本的 .NET Framework 中，这会导致对该程序集进行沙盒处理。此发行版的 .NET Framework 默认情况下不启用 CAS 策略，因此，此加载可能会很危险。如果此加载不是要对程序集进行沙盒处理，请启用 loadFromRemoteSources 开关。有关详细信息，请参见 http://go.microsoft.com/fwlink/?LinkId=155569。
在 System.Reflection.RuntimeAssembly._nLoad(AssemblyName fileName, String codeBase, Evidence assemblySecurity, RuntimeAssembly locationHint, StackCrawlMark& stackMark, IntPtr pPrivHostBinder, Boolean throwOnFileNotFound, Boolean forIntrospection, Boolean suppressSecurityChecks)
在 System.Reflection.RuntimeAssembly.InternalLoadAssemblyName(AssemblyName assemblyRef, Evidence assemblySecurity, RuntimeAssembly reqAssembly, StackCrawlMark& stackMark, IntPtr pPrivHostBinder, Boolean throwOnFileNotFound, Boolean forIntrospection, Boolean suppressSecurityChecks)
在 System.Reflection.RuntimeAssembly.InternalLoadFrom(String assemblyFile, Evidence securityEvidence, Byte[] hashValue, AssemblyHashAlgorithm hashAlgorithm, Boolean forIntrospection, Boolean suppressSecurityChecks, StackCrawlMark& stackMark)
在 System.Reflection.Assembly.LoadFrom(String assemblyFile)
在 Autodesk.AutoCAD.Runtime.ExtensionLoader.Load(String fileName)
在 loadmgd()