4分之1镜像

wowan1314

八分之一镜像，感觉还是不如天正的自由粘贴好用哦！天正这种能用LSP做出来吗？

fawn_lgc

感觉用x轴镜像+y轴镜向还简单,

那个天正的自由粘贴用插入图块去掉在屏幕缩放比例就可以实现了.

fawn_lgc

如果不介意文件大,不喜欢使用图块,可以用复制+旋转完成,
写程序的话几行command指令就可以了.

wowan1314

fawn_lgc 发表于 2012-5-10 16:06
如果不介意文件大,不喜欢使用图块,可以用复制+旋转完成,
写程序的话几行command指令就可以了.

感谢指导。
1.你的思路是否是先复制到指定位置然后旋转，这样没有预览了吧？
2.其实单个的图元实现类似正天这个自由粘贴还是可以实现（GRREAD法）。
3.你说插入图块去掉比例可以实现？怎么做呢？是否是在按A后，程序将图块的插入点改变再继续插入新块？
4.但是正天是从剪切板读取的这些资料，我仅看到有人从剪切板读写文字。像天正这种不知道能否做到？
LSP才入门。了解的太少，望不吝赐教。

fawn_lgc

加暂停可动态显示 例如(command "move"pause)
循环使用加个循环语句就可以了.
其他的问题我就不解释那么多了,看看帮助文件吧.

正天我没有用过,有的问题我不好回答.
我只知道正天是autocad的外挂.
在autocad环境下使用应该充分了解autocad.

xyp1964

2. 
   
3. ;; 四分镜像 伪源码
   
4. (defun c:tt ()
   
5.   (CMDLA0)
   
6.   (if (and (setq ss (ssget))
   
7.     (setq p1 (getpoint "\n基点<退出>: "))
   
8.       )
   
9.     (progn
   
10.       (xyp-Cross p1 1000 0)
    
11.       (setq s0 (entlast))
    
12.       (xyp-Mirror ss p1 (xyp-get-Pt2X p1 10) Nil)
    
13.       (setq ss1 (xyp-SSelEntnext s0)
    
14.      ss (ssunion ss ss1)
    
15.       )
    
16.       (xyp-Mirror ss p1 (xyp-get-Pt2y p1 10) Nil)
    
17.     )
    
18.   )
    
19.   (CMDLA1)
    
20. )
    

<br /> ;; 四分镜像 伪源码<br /> (defun c:tt ()<br />   (CMDLA0)<br />   (if (and (setq ss (ssget))<br />     (setq p1 (getpoint "\n基点<退出>: "))<br />       )<br />     (progn<br />       (xyp-Cross p1 1000 0)<br />       (setq s0 (entlast))<br />       (xyp-Mirror ss p1 (xyp-get-Pt2X p1 10) Nil)<br />       (setq ss1 (xyp-SSelEntnext s0)<br />      ss (ssunion ss ss1)<br />       )<br />       (xyp-Mirror ss p1 (xyp-get-Pt2y p1 10) Nil)<br />     )<br />   )<br />   (CMDLA1)<br /> )<br />

xiongqunan

xyp1964 发表于 2012-5-10 20:54

此程序在先点时能不能选一个矩形自动识别出矩形的中点？

1993063

xiongqunan 发表于 2013-10-3 17:38
此程序在先点时能不能选一个矩形自动识别出矩形的中点？

完全可以做到

xiongqunan

1993063 发表于 2013-11-28 18:49
完全可以做到

兄弟你这个是用那个程序实现的?我的不行也!能否指教一下?

flyfox1047

功夫佬 发表于 2012-5-9 20:16
能不能框选的呢？

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