编程申请：指定图元基点与目标点间距移动物体

半听可乐

Andyhon 发表于 2012-8-1 08:54
样本对象导引着思路来建立代码片断....
是以要能涵盖实务所需,用以避免造成状况外 Try again

改程序经过较长时间的使用，发现总有那么些图元移动的时候程序不管用，如本附件中的图，提示       ; 错误: 参数值错误: AcDbCurve 2066526040   请Andyhon进一步完善，这个程序太好用了！

Andyhon

Command: mfdist
Select objects: Specify opposite corner: 1 found
Select objects:

指定移动基点:
选择目标直线:
输入移动基点与目标直线的距离: 500
Xline Specify a point or [Hor/Ver/Ang/Bisect/Offset]: none
Specify through point: none
Specify through point:
Command: Move
Select objects:   1 found

Select objects: Specify base point or displacement: Specify second point of
displacement or <use first point as displacement>: none
Command:
Command: '_dist Specify first point:  Specify second point:
Distance = 659.83,  Angle in XY Plane = 229.27,  Angle from XY Plane = 0.00
Delta X = -430.55,  Delta Y = -500.00,   Delta Z = 0.00
------------------------------------------
请分别 标示 执行中的互动回应
执行后的结果图 与 想要的正确完成图

半听可乐

Andyhon 发表于 2012-8-25 08:54
Command: mfdist
Select objects: Specify opposite corner: 1 found
Select objects:

程序看不懂~~附件已经更新

;;;★VD 定间距移动
;;;by Andyhon  明经社区
;;;---------------------------------------------------------------------------------------------------------------------
(defun C:VD()
   ;; 选择圆 / ...
   (setq ss (ssget))
   ;; 指定移动基点
   (setq pt (GetPoint "\n指定移动基点: "))
   ;; 选择目标直线
   (setq ee (nentsel "\n选择目标直线: ")
         pa (cadr ee)
         pb (osnap pa "mid")
         pa (osnap pb "end")
   )
   ;; 输入移动基点与目标直线的距离1000 / 500 / ...
   (setq dd (getDist "\n输入移动基点与目标直线的距离: "))
   (vl-cmdf "Xline" "none" pa "none" pb "")
   (setq ee (entlast)
         px (vlax-curve-getClosestPointTo ee pt)
         p2 (polar px (angle px pt) dd)
   )
   (vl-cmdf "Move" ss "" pt "none" p2)
   (entdel ee)
   (princ)
)

Andyhon

pb (osnap pa "mid")
改成 ==>                 
pb (osnap pa "near")

半听可乐

Andyhon 发表于 2012-8-25 09:45
pb (osnap pa "mid")
改成 ==>                 
pb (osnap pa "near")

嗯，好了，谢谢！

Andyhon

红色块定间距移动出现错误（已更新）.dwg

这个图在 Zoom --> E ,  完全可见的情况下,原程序也是OK滴