Simple question about tcircle

[Isaac26a]

Hi everyone, I was trying to do a code where I write some texts and at the end wanted to use the Express tools command tcircle, but tried many times to make it run and couldn't get it to work, so here is my simple question, how can I make this simple code run?

(setq p1 (getpoint "\nPick a point for the text")) 
(vl-cmdf "_.text" p1 "1.0" "0.0" "Test1")
(vl-cmdf "_.tcircle" "_last" "0.35" "_Rectangles" "") ;; Why is this not working?

Thanks in advance for your kind help.

[Scoutr4]

you can check this topic;

https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/how-do-i-automate-the-tcircle-command/td-p/2517693

(setq p1 (getpoint "\nPick a point for the text")) 
(vl-cmdf "text" p1 "1.0" "0.0" "Test1")
(setq ss (ssget "_L"))
(bns_tcircle ss "Variable" "Rectangles" "" 0.35)(princ))

 

[Isaac26a]

32 minutes ago, Scoutr4 said:

(setq p1 (getpoint "\nPick a point for the text")) 
(vl-cmdf "text" p1 "1.0" "0.0" "Test1")
(setq ss (ssget "_L"))
(bns_tcircle ss "Variable" "Rectangles" "" 0.35)(princ))

 

Thanks now it's working, although there is an extra parentheses and just to be on the safe side I used

(load "acettxt.lsp")

 

[BIGAL]

A few of the express tools when used with lisp you have to not use the command name, another is Extrim use (etrim ....

[Isaac26a]

37 minutes ago, BIGAL said:

A few of the express tools when used with lisp you have to not use the command name, another is Extrim use (etrim ....

Thank you BigAl, I didn't know that, do you know of any other commands that have something similar?

[BIGAL]

Need to look into express tools .lsp.

 

Did find this need to look in all lsp if you have a user block selection set you can maybe use this in Bcount.lsp

(defun bns_count ( ss / bna lst na e1 n a mx )

 

 

 

Edited November 15, 2022 by BIGAL

[Isaac26a]

1 hour ago, BIGAL said:

Need to look into express tools .lsp.

 

Did find this need to look in all lsp if you have a user block selection set you can maybe use this in Bcount.lsp

(defun bns_count ( ss / bna lst na e1 n a mx )

 

 

 

Thanks again, is good to know probably have to check the entire lisp file, and maybe tcount has a similar function.