xj6019 发表于 2023-4-9 14:45:35

瞎玩版_移动带缩放

本帖最后由 xj6019 于 2023-4-9 16:23 编辑

需求贴在此:函数重构了
注意错误函数里面两句

(command "erase"SS "")        ;低版本用这句话
(command-s "erase"SS "")       ;高版本用这句话
如果不行分别试一下，看看自己哪句话起作用
不要用飞诗的测试模式加载，关掉飞诗的调试，cad正常状态下拖入加载或者ap加载使用。

http://bbs.mjtd.com/thread-187572-1-1.html




xj6019 发表于 2023-4-9 16:49:42

本帖最后由 xj6019 于 2023-4-10 07:56 编辑

liuhe 发表于 2023-4-9 16:40
哈哈你可以试试怎么不调用command，来实现实时预览move。
如果是自己玩，控制起来要自由方便的多

(defun C:NM (/ p ss)
      (xj-s2 nil)
      (princ "\n请选择原图：")      
      (if(and                        
                         (setq ss (ssget ))
                         (setq p(getpoint   "\n指定基点："))
               )
                (progn
                        (xj-dt-movess p)
                )      
      )      
      (xj-e)
      (princ)
)

xj6019 发表于 2023-4-9 16:13:29

呼呼se 发表于 2023-4-9 15:04
能不能默认缩放倍数
弄了个带默认缩放倍数的，里面最后有注释掉的一句，看看自己的cad适合哪一句话，恢复的时候有高低版本的小区别，分别试试

xj6019 发表于 2023-4-9 16:53:08

本帖最后由 xj6019 于 2023-4-9 16:54 编辑

liuhe 发表于 2023-4-9 16:50
grread精准捕捉是难点。
我能说，我是借用套用的甘总的动态dll不，能套的绝不自己费脑袋 ，精准捕捉不在话下，不是问题的

呼呼se 发表于 2023-4-9 15:01:21

感谢大哥我在重新试试

呼呼se 发表于 2023-4-9 15:04:46

能不能默认缩放倍数

liuhe 发表于 2023-4-9 16:40:26

哈哈你可以试试怎么不调用command，来实现实时预览move。

liuhe 发表于 2023-4-9 16:50:51

xj6019 发表于 2023-4-9 16:49
如果是自己玩，控制起来要自由方便的多




grread精准捕捉是难点。

liwen888888 发表于 2023-4-9 21:16:42

xj6019 发表于 2023-4-9 16:49
如果是自己玩，控制起来要自由方便的多




错误: *error* 函数中出错无函数定义: GL:POINTMONITOR:lol

sandyvs 发表于 2023-4-10 14:48:09

liwen888888 发表于 2023-4-9 21:16
错误: *error* 函数中出错无函数定义: GL:POINTMONITOR

得加载甘总的动态dll
页: [1] 2
查看完整版本: 瞎玩版_移动带缩放