阿甘动态复制V4.0-自动正交版 (动态旋转、镜像、缩放、改基点、对齐)

weshell

这个和天正拷贝一样的功能，但是天正拷贝只能复制，不能移动，而且正常使用会有轻微卡顿，复制图元多了会很卡，还需要单独使用天正拷贝的命令才行。这个插件就快的多了，直接代替COPY还有MOVE，也不卡，感谢大佬分享

weshell

大佬，昨天用没问题，今天用出现了这个问题：
命令: C
选择对象: 指定对角点: 找到 4 个
选择对象:
指定基点：undo 当前设置: 自动 = 开，控制 = 全部，合并 = 是，图层 = 是
输入要放弃的操作数目或 [自动(A)/控制(C)/开始(BE)/结束(E)/标记(M)/后退(B)] <1>: end
命令: no function definition: CJIG

weshell

weshell 发表于 2021-6-25 10:16
大佬，昨天用没问题，今天用出现了这个问题：
命令: C
选择对象: 指定对角点: 找到 4 个

我知道了，是dll文件没加载

myairen

https://www.bilibili.com/s/video/BV1WE411V7Cc

xpzzj

非常好用

l982414603

大神的版本 必须一路支持，又一佳作，感谢分享

magicheno

大佬这个太牛了，感谢分享

小毛草

如何修改其中的键值？我的Z键被缩放占用了？

magicheno

(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 i  ent )
  (setq slen (sslength ss) i 0 )
  (while (ssname ss i)
    (setq ent (ssname ss i))
    (redraw ent n);亮显
    (setq i (1+ i))
  )
  T
)

大侠请教下，我这个程序按你的修改了下，然后就是想知道选择集超过1000的时候，使用默认的复制命令，该怎么改呢，程序本身是不是也有一些问题，能否帮忙优化优化呢

bbswen

图片没办法上传上去，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()