大佬学习了~~~
请教大佬下面这个，复制的时候该如何实现拖动效果呢
、(defun c:tt5(/ oce ss p1 p2)
(setq n1 10)
(defun *error* (msg)
(if ss (sshighlight ss 4)) ;取消亮显
(SSSETFIRST NIL)
(princ "error:")
(princ msg)
)
(setq oce(getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq ss (ssget))
(if (< (sslength ss) n1)(SSSETFIRST NIL SS))
(sshighlight ss 3)
(if (null ss) (exit))
(setq p0(getpoint"\n指定基点:"))
(setq p2 p0)
(if (null p0 )(exit))
(princ "\n指定第二点或位移:")
(while t
(setq p1(getpoint p0))
(setq ent (entlast))
(if (null p1) (mosi11) (mosi12))
(setq tempss ss)
(setq ss (entbackss ent))
(setq p2 (getvar "lastpoint"))
(vl-cmdf ".copy" ss "")
(command)
(command "select" ss "")
(sshighlight ss 3)
)
(princ)
)
(defun mosi12()
(vl-cmdf ".copy" ss "" p2 p1 )
(setq juli (distance p0 p1))
(setqx0 (car p0))
(setqy0 (cadr p0))
(setq p0 p1)
(setqx1 (car p1))
(setqy1 (cadr p1))
(setqx (- x1 x0))
(setqy (- y1 y0))
(setq hudu(atan y x) )
(setqx1 (+ x0 x))
(setqy1 (+ y0 y))
(setqp1 (list x1 y1 0.0))
(princ (strcat "\n指定下一点或继续位移<" (rtos juli ) ">:"))
)
(defun mosi11()
(setq p1 (list (+ (nth 0 p0) (* juli (cos hudu)))
(+ (nth 1 p0) (* juli (sin hudu)))
(nth 2 p0)
)
)
(vl-cmdf ".copy" ss "" p2 p1 )
(setq juli (distance p0 p1))
(setq p0 p1)
(princ (strcat "\n指定下一点或继续位移<" (rtos juli ) ">:"))
)
有一个问题能改进就更好了，就是在正交模式下移动实体时，实体并不沿着坐标轴的方向移动，而是随着光标的位置移动，当然最终的结果还是返回坐标轴上的点，但是移动的过程看着很别扭。
无法加载程序集。错误详细信息: System.IO.FileLoadException: 未能加载文件或程序集“file:///D:\Software\tmp\grread.dll”或它的某一个依赖项。不支持操作。 (异常来自 HRESULT:0x80131515)
文件名:“file:///D:\Software\tmp\grread.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()
命令: loadFromRemoteSources
未知命令“LOADFROMREMOTESOURCES”。按 F1 查看帮助。
Cad2016 加载就这样 楼主看看是什么问题
看着很NB，就是不会用，先标记一下，
半夜茶醒，浏览了下，相当牛逼。给甘蔗点个赞
caoyin 发表于 2021-8-20 13:59
很久没来，一打开网页就看见大神的帖子，膜拜
以前一直用老毛子的ARX程序——DynDraw，跟楼主的功能 ...
c版你好啊。
双CAD同步对图 能否告知下怎么用？谢谢.
厉害厉害 支持大佬！！！
非常感谢！