瞎玩版_移动带缩放

xj6019

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

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

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

xj6019

liuhe 发表于 2023-4-9 16:40
哈哈  你可以试试  怎么不调用command，来实现实时预览move。

如果是自己玩，控制起来要自由方便的多

2. (defun C:NM (/ p ss)
   
3.         (xj-s2 nil)
   
4.         (princ "\n请选择原图：")      
   
5.         (if(and                        
   
6.                          (setq ss (ssget ))
   
7.                          (setq p(getpoint   "\n指定基点："))
   
8.                  )
   
9.                 (progn
   
10.                         (xj-dt-move  ss p)
    
11.                 )      
    
12.         )      
    
13.         (xj-e)
    
14.         (princ)
    
15. )

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

xj6019

呼呼se 发表于 2023-4-9 15:04
能不能默认缩放倍数

弄了个带默认缩放倍数的，里面最后有注释掉的一句，看看自己的cad适合哪一句话，恢复的时候有高低版本的小区别，分别试试

xj6019

liuhe 发表于 2023-4-9 16:50
grread  精准捕捉是难点。

我能说，我是借用套用的甘总的动态dll不，能套的绝不自己费脑袋 ，精准捕捉不在话下，不是问题的

呼呼se

感谢大哥  我在重新试试

呼呼se

能不能默认缩放倍数

liuhe

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

liuhe

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

grread  精准捕捉是难点。

liwen888888

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

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

sandyvs

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

得加载甘总的动态dll