通过选择clo执行阵列

CadFrank · 发表于 2022-7-6 08:23:27

您好，我想在一个特定对象的区域中创建一个数组“多段线，矩形”

我想知道我需要使用什么函数来实现我想要的。

提前感谢您的帮助！

干杯和啤酒！

BIGAL · 发表于 2022-7-6 08:46:48

选择一个对象并使用lisp创建填充它的数组非常容易，你还需要选择控制数组开始的控制点，但你还需要选择一个覆盖整个对象的窗口，这样你的控制点就可以正确地移动到左下角，然后有两个选择删除外部的所有对象，修剪到对象删除接触的对象。

发布图片等以获取更多帮助。

查找“Cookiecutter.lsp”

CadFrank · 发表于 2022-7-6 08:48:24

[附件]32354

嗨，比格尔，

非常感谢您的帮助。我将链接一张图片来帮助您解决问题，以及随之而来的日常事务

代码如下：

copy

;******************************************************              
;         ce sous program permet de créer un 
;                 cadre d'echafaudage
;******************************************************
(defun cadre()
  (setq pt1(getpoint"\nPointez premier point : "))
  (setq pt2(polar pt1 0 1220))
  (setq pt3(list(car pt2)(+(cadr pt1) 2135)))
  (command"_layer" "_n" "-LU CADRE" "_c" "5" "-LU CADRE" "")
  (command"_donut" "0" "150" pt1 "")
  (setq cir1(entlast))  
  (command"_donut" "0" "150" pt2 "")
  (setq cir2(entlast))
  (command"_pline" pt1 pt2 "")
  (setq lin1(entlast))
  
  (Command"_chprop" cir1 cir2 lin1 "" "la" "-LU CADRE" "")
  (command"_block" "lu blockt" pt1 cir1 cir2 lin1 "")
  (command"_insert" "lu blockt" pt1 "" "" "")
  (setq blockt(entlast))
)defun cadre
;******************************************************
;            début du program : échafaudage
;      ce program permet d'échafauder un projet     
;******************************************************
(defun c:ecf()
  
  (setq Obj-1(entsel "\nChoisir le Contour de la dalle : "))
  
  ;(constantes)
  ;(spécification)
  ;(calcul)
  (cadre)
  (command"_Pline" pt1 pt3 "") 
  (setq lin2(entlast))
  (command"_chprop" lin2 "" "la" "-LU CADRE" "")
  (Command"_array" blockt lin2 "" "r" "2" "2" "2135" "2440")
  
  
(princ)
  
);defun c: