快速闭塞重复回路
大家好，我是lisp的新手。我正在使用Tharwat的快速阻塞，效果很好，但我正在尝试将其自动化。
粉红色的圆是每个单独块的基点，在块10的某个点，基点之间的距离发生变化（这真的没关系，如果需要的话，我可以使它们的距离都相等）。每行总共有117个块，我有很多行，但一行就可以了，因为我需要更改每行的块名，然后开始创建从1到117的块。
所以我需要选择基点，并且必须在每个块左下角的洋红色坐标上
在给出第一个块指令后，我需要它从块1到117完全自动化，这可能吗？
Quick Block
; Creates a block instantly out of the objects that you select
; Found at http://forums.autodesk.com/t5/Visual-LISP-AutoLISP-and-General/Quick-block/td-p/3454228
(defun c:QB (/ selectionset insertionpoint number Blockname)
;;; Tharwat 11. May. 2012 ;;
(if (and (setq selectionset (ssget "_:L"))
(setq insertionpoint (getpoint "\n Specificare primo punto :"))
)
(progn
(setq number 1
Blockname (strcat "firstrow" (itoa number))
)
(while (tblsearch "BLOCK" Blockname)
(setq Blockname
(strcat "firstrow" (itoa (setq number (1+ number))))
)
)
(command "_.-Block" Blockname insertionpoint selectionset "")
(command "_.-insert" Blockname insertionpoint "" "" "")
)
(princ)
)
(princ)
)
页:
[1]