;;;;选线平行中心点镜像 更新
本帖最后由 T_T 于 2012-4-17 09:57 编辑那位高手能帮我完善一下,现在只能选线,选尺寸会出错和不能选PL线, 能不能增加PL线和尺寸谢谢
有些时间还会出现,不理想的效果.什么原?
谢谢各版主, 更新了一下,现在可以把快捷键MI直接换了
打个件看看这个多人要不,
发了好几次才好, 粗心啊
这次真的好好多了
http://bbs.mjtd.com/forum.php?mod=attachment&aid=NjYxNzV8ZmRkOGIyZjJ8MTMzNDYyNzMyM3wxNjMzNDV8OTMwNDg%3D&noupdate=yes
再改了一下
2012.1.24
更新 和原本的命令更相似。更简洁，
谢谢！ 分享 ;以直线镜像功能
(defun C:KJ_ML( / bl cm e1 ent0 ent1 os p1 p2 ss1)
(SetQ cm (GetVar "cmdecho") bl (GetVar "blipmode") os (GetVar "osmode"))
(SetVar "cmdecho" 0)
(SetVar "blipmode" 0)
(SetVar "osmode" 0)
(PRINC "\n【開金CAD外挂】---以直线镜像功能")
(while(PRINC "\n-->请选取要镜像的对象......")
(setq ent0 (ssget":s"))
(setq ent1 (entsel "\n-->请选择镜像中心直线：")
e1 (car ent1)
ss1 (entget e1))
(setq p1 (Cdr (Assoc 10 ss1))
p2 (Cdr (Assoc 11 ss1)))
(command "mirror" ent0 ""p1 p2 ""))
(SetVar "cmdecho" cm)
(SetVar "blipmode" bl)
(SetVar "osmode" os)
(princ "\n★★★欢迎使用--《開金CAD外挂》--★★★ 以直线镜像完成！")
(PrinC)
)
谢谢 K版 【KAIXIN】 发表于 2012-1-15 13:54 static/image/common/back.gif
while后面改成这样似乎更合理一点
(progn
(PRINC "\n-->请选取要镜像的对象......")
(setq ent0 (ssget":s"))
) 本帖最后由 T_T 于 2012-1-15 15:50 编辑
(defun c:mii (/ ang bl cm dst en endata os pt1 pt2 ptm ptm1
ss)
(SetQ cm (GetVar "cmdecho")
bl
(GetVar "blipmode")
os (GetVar
"osmode")
)
(SetVar "cmdecho"
0)
(SetVar "blipmode" 0)
(SetVar "osmode"
0)
(if (and
(setq ss
(ssget))
(setq en (car (nentsel "\n选择线:
")))
(setq endata (entget en))
(setq pt1 (cdr (assoc 10 endata)))
(setq pt2 (cdr (assoc 11 endata)))
)
(progn
(setq ang (angle pt1 pt2)
dst (distance pt1 pt2)
ptm (polar pt1 ang (/ dst
2))
ptm1 (polar ptm (+ (/
pi 2) ang) dst)
)
(command ".mirror" ss "" ptm ptm1 "n")
)
)
(SetVar "cmdecho" cm)
(SetVar
"blipmode" bl)
(SetVar "osmode" os)
(princ)
)
修改了一下,标注尺寸都可以了,PL线就不行了,谢谢DZ C版 K版 K版那个是垂直的,我那是平行的 楼主有才,支持一下 caoyin 发表于 2012-1-15 15:39 static/image/common/back.gif
while后面改成这样似乎更合理一点
(progn
(PRINC "\n-->请选取要镜像的对象......")
谢曹版的指点，这个是一年前为了工作的需要特意写的！
while 当时是还没接触到，随意加上去的，以为可以用，就没有深入研究....... 呵呵,试了一下, (command ".mirror" ss "" ptm ptm1 "n")这里都没有搞对哦
应该必为(command ".mirror" ss "" pt1 pt2 "")就可以了
页:
[1]
2