快速闭塞重复回路

Shimatta · 发表于 2022-7-31 04:46:28

大家好，我是lisp的新手。
我正在使用Tharwat的快速阻塞，效果很好，但我正在尝试将其自动化。
粉红色的圆是每个单独块的基点，在块10的某个点，基点之间的距离发生变化（这真的没关系，如果需要的话，我可以使它们的距离都相等）。每行总共有117个块，我有很多行，但一行就可以了，因为我需要更改每行的块名，然后开始创建从1到117的块。
所以我需要选择基点，并且必须在每个块左下角的洋红色坐标上
在给出第一个块指令后，我需要它从块1到117完全自动化，这可能吗？

copy

 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)
)

[编程交流] 快速闭塞重复回路

发表回复

精选推荐