Found a lisp from Tharwat (blo

Rain0923 · 发表于 2022-7-5 15:57:21

If I could Iwill but my computer doesn't USB port.:cry:
Thank you!!

Rain0923 · 发表于 2022-7-5 16:00:53

Hello maratovich
I tried your program,it's good for me. thank you very much.
By the way, one more question can it create name base on number?
example the text is 1 then blockname is 1 & the text is 2 then blockname is 2.......

maratovich · 发表于 2022-7-5 16:06:20

I do not understand everything.
Attach an example of how it should be.

Rain0923 · 发表于 2022-7-5 16:09:30

Pls try on file.....thanksexample.dwg

maratovich · 发表于 2022-7-5 16:12:03

I'm very busy right now. I'll check in a week.

Jef! · 发表于 2022-7-5 16:16:13

Try this one

copy

(defun c:QB2 ( / ss idx inspnt number Blockname itmss itm) ;inspired by Quick block from Tharwat (11. May. 2012) ;modified to automatically make block from texts in the current layout ;by Jef! on 2017-11-17  (command "._undo" "_be")  (if (setq ss (ssget "_X" (list '(0 . "TEXT") (cons 410 (getvar 'ctab)))))      (progn        (setq number 1              Blockname (strcat "MyBlock" (itoa number))              itmss (ssadd)        )        (repeat (setq idx (sslength ss))           (while (tblsearch "BLOCK" Blockname)                  (setq Blockname (strcat "MyBlock" (itoa (setq number (1+ number)))))           )                      (setq inspnt (cdr(assoc 10 (entget (setq itm (ssname ss (setq idx (1- idx)))))))                 itmss (ssadd itm)           )           (vl-cmdf "_.-Block" Blockname inspnt itmss "")           (vl-cmdf "_.-insert" Blockname inspnt "" "" "")        )      )  ) (command "._undo" "_e") (princ))

You owe 1 beer to Tharwat and 1 beer to me each time you execute it. Deal?

Cheers!

Rain0923 · 发表于 2022-7-5 16:19:52

Cheers!!It is very good for me,I owe you and Tharwat.Thanks a lot!!

muhsinos · 发表于 2022-7-5 16:23:07

Tharwat script is excelent, but need a little help.. Instead of auto naming, is it possible to select a text or mtext as the block name after specifying the insertion point?

Any help would be appreciated....

Thanks

[编程交流] Found a lisp from Tharwat (blo

发表回复

精选推荐