另类：带捕捉、正交、极轴的grread函数--.NET测试版V1.0--8月28更新

magicheno

大佬学习了~~~

magicheno

请教大佬下面这个，复制的时候该如何实现拖动效果呢
、(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))
(setq  x0 (car p0))
(setq  y0 (cadr p0))
(setq p0 p1)
(setq  x1 (car p1))
(setq  y1 (cadr p1))
(setq  x (- x1 x0))
(setq  y (- y1 y0))
(setq   hudu(atan y x) )
(setq  x1 (+ x0 x))
(setq  y1 (+ y0 y))
(setq  p1 (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 ) ">:"))
)

liuyj

有一个问题能改进就更好了，就是在正交模式下移动实体时，实体并不沿着坐标轴的方向移动，而是随着光标的位置移动，当然最终的结果还是返回坐标轴上的点，但是移动的过程看着很别扭。

wen1235

无法加载程序集。错误详细信息: 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 加载就这样 楼主看看是什么问题

bbswen

看着很NB，就是不会用，先标记一下，

bonny

半夜茶醒，浏览了下，相当牛逼。给甘蔗点个赞

yanshengjiang

caoyin 发表于 2021-8-20 13:59
很久没来，一打开网页就看见大神的帖子，膜拜
以前一直用老毛子的ARX程序——DynDraw，跟楼主的功能 ...

c版你好啊。

yaooyaoo

双CAD同步对图 能否告知下怎么用？谢谢.

nsh935

厉害厉害   支持大佬！！！

ZYX2129

非常感谢！