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

发布网友发布时间：2023-09-24 10:05

我来回答

共2个回答

热心网友时间：2024-10-28 18:07

框选对象图层L1

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

(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));得到左上角坐标

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

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

提取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按距离来移动。

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

(setq x1 (car &p2))

(setq y1 (cadr &p1))

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

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

热心网友时间：2024-10-28 18:07

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