Question

CAD lsp代码怎么写这个命令,用过，但没代码,求指导

Answer 1

1. 框选对象图层L1
   

2. 分析每个对象的坐标包围框，代码

   (vl-load-com);加载VBA函数
   

   (setq obj (vlax-ename->vla-object ent))                   ;obj对象

   (vla-GetBoundingBox obj '&p1 '&p2)                    ;得到包围框

   (setq &p1 (vlax-safearray->list &p1));得到右下角坐标

   (setq &p2 (vlax-safearray->list &p2));得到左上角坐标

3. 建立右下角点坐标集合ss，元素由点与对象构成(list &p1 &p2 ent)

   (setq ss (vl-sort ss (function (lambda (x y) (< (caar x) (caar y))))));;X从小到大排序

4. 提取SS里面的对象提取多段线坐标

   (setq ss1 (mapcar 'cdr (vl-remove-if '(lambda (X) (/= 10 (car x))) (entget ent))))

   (setq &kw1 (ssget "wp" ss1));提取这个范围的对象，然后移动对象到你需要的地方

   或(setq &kw1 (ssget "w" &p1 &p2));这样选择对象也可以

   移动对象&kw1按距离来移动。

5. 左下角的坐标可以这样得到取得

   (setq x1 (car &p2))

   (setq y1 (cadr &p1))

   (setq &p3 (list x1 y1));左下角坐标

6. 你的代码主要是没有包围框代码有了代码就可以方便的写出你的程序了。
   

追问

辛苦你了，谢谢，我再等等看看还有没有别的大神。真需要额

追答

写了一段autolisp代码。

操作方法：

1. 输入间距

2. 指定基点

3. 选择参考图层L1

4. 选择对象就可以自动移动对象了

5. L1对象不可以有重叠，如果重叠会不正确，命令为【TES】，自己修改命令

移动以前效果

移动以后效果

追问

辛苦了，，谢谢，这个间距怎么不能输入啊，只能用鼠标点距离呢，能帮忙再看下吗

Answer 2

发dwg图纸上来看看，只有图片，不好判别关系

追问

图下面未排版的多种形状，但是完全闭合的图形，外框是图层L1，内框是图层L2，当我输入命令以后，框选只有L1和L2图层对象，确认后在CAD内指定任意一点，设置L1图层外框间距为..0-?.
框选住的对象内L1和L2图层闭合图形 在指定的点开始以图层L1闭合图形外框大小按顺序排版.(L2图层内框会跟每个围住它的L1图层一起动)
整体想表达的就是这样一个命令，不知麻不麻烦啊，然后dwg不知怎么上传