移到指定点
如图，根据原左边图形中的五角星对象移动到右边图示意的结果，虚线只是辅助示意所用(defun c:tt(/ dat dxlx en i lst p0 p1 p2 p3 pt pt1 pt2 ptlst sl ss)
(setq ss(ssget))
(setq i 0 lst nil sl (sslength ss))
(repeat sl
(setq en (ssname ss i));取图元名
(setq dat (entget en))
(setq dxlx (cdr (assoc 0 dat)));获取对象的类型
(if(= dxlx "LWPOLYLINE")(setq coobj en))
(cond
((= dxlx "POINT")
(setq pt (cdr(assoc 10 dat)))
(setq lst (cons pt lst))
);假设是点对象
((= dxlx"LINE")
(setq pt1 (cdr(assoc 10 dat)))
(setq pt2 (cdr(assoc 11 dat)))
(if (not (member pt1 lst))(setq lst (cons pt1 lst)))
(if (not (member pt2 lst))(setq lst (cons pt2 lst)))
);假设是2条直线相交
((= dxlx"DIMENSION")
(setq pt1 (cdr(assoc 13 dat)))
(setq pt2 (cdr(assoc 14 dat)))
(if (not (member pt1 lst))(setq lst (cons pt1 lst)))
(if (not (member pt2 lst))(setq lst (cons pt2 lst)))
);假设是标注
)
(setq i (1+ i))
)
(cond
((= (length lst) 1)
(setq p0 (nth 0 lst))
(setq p1 (getreal "\n向右距离:"))
(setq p2 (getreal "\n向上距离:"))
)
((= (length lst) 3)
(setq
ptlst (vl-sort lst (function (lambda (e1 e2)(< (car e1) (car e2)))))
p2 (nth 0 ptlst) p0 (nth 1 ptlst) p1 (nth 2 ptlst);取得3个点
p1(distance p0 p1);向右距离
p2(distance p0 p2);向上距离
)
)
)
(setq p3 (list(+(car p0)p1)(+(cadr p0)p2)))
(command "copy" coobj "" p0 p3)
(princ)
)
把能想到几种情况都写进去了
1、已有五角星和一个点
2、已有五角星和三个点
3、已有五角星和两条直线
4、已有五角星和2个标注 (defun c:tt (/ dxname obj p0 p1 p2 p3 ss)
(setq dxname (car (entsel "\n选择五角星:")))
(setq p1 (getreal "\n向右距离:"))
(setq p2 (getreal "\n向上距离:"))
(command "explode" dxname )
(setq ss (ssget "p"))
(command ".region" ss "")
(setq dxname (entlast))
(setq obj (vlax-ename->vla-object dxname))
(setq p0 (vlax-safearray->list (vlax-variant-value (vla-get-centroid obj))))
(setq p3 (list (+ (car p0) p1) (+ (cadr p0) p2)))
(command "move" dxname "" p0 p3)
(princ)
) 我简化了 统一网名 网友的代码，你看看行不行。
(defun c:11(/ dxnamep0 p1 p2 p3)
(if (setq dxname (entsel "\n选择五角星:"))
(progn
(setq p1 (getreal "\n向右距离:"))
(setq p2 (getreal "\n向上距离:"))
(setq p0 (osnap (cadr dxname) "nea"))
(setq p3 (list (+ (car p0) p1) (+ (cadr p0) p2)))
(command "copy" dxname "" p0 p3)
)
)
(princ))
计算出方向角和距离，计算出坐标点，再移动就可以了 统一网名 发表于 2024-8-30 08:56
(defun c:tt (/ dxname obj p0 p1 p2 p3 ss)
(setq dxname (car (entsel "\n选择五角星:")))
(setq p1 ...
感谢，但不够完美，有个点选距离的就更完美了，还有分解步骤，没有必要，可以换成是否复制移动 复制移动，把(command "move" dxname "" p0 p3)改为(command "copy" dxname "" p0 p3) F海市蜃楼 发表于 2024-8-30 18:02
感谢，但不够完美，有个点选距离的就更完美了，还有分解步骤，没有必要，可以换成是否复制移动
你说的点选距离是点选标注还是点选其它什么，炸开然后形成面域是求五角形质心，根据你需要自己改一下，我只是根据我自己的理解来写一下，实际上我并不清楚你的具体需求。 统一网名 发表于 2024-8-31 07:40
你说的点选距离是点选标注还是点选其它什么，炸开然后形成面域是求五角形质心，根据你需要自己改一下，我 ...
非常感谢回复，我的意思就是如图不管点选标注所示的距离还是输入距离就是从P0点开始，不用求质心，意思就是第一种是从点P0-P1、点P0-P2然后移动（移动复制）到P1竖向和P2横向交点[这个交点就是(x,y）这样的坐标点]的距离。第二种是输入距离就比如横向输入200、竖向输入500，然后移动的终点就相当于坐标（200，500）这样，不知道是否理解 ssyfeng 发表于 2024-8-30 08:27
计算出方向角和距离，计算出坐标点，再移动就可以了
嗯，大概就是这个意思 qazxswk 发表于 2024-8-31 02:53
复制移动，把(command "move" dxname "" p0 p3)改为(command "copy" dxname "" p0 p3)
嗯，好的，知道了，谢谢 F海市蜃楼 发表于 2024-8-31 12:52
非常感谢回复，我的意思就是如图不管点选标注所示的距离还是输入距离就是从P0点开始，不用求质心，意思就 ...
你这句话，我看了很久，明白大概的意思，你意思，是不是选择对象，然后在命令行直接输入：200，500然后就完成了复制移动？如果是这样，也可以实现的。就是不知道你的要求:lol
页:
[1]
2