You can make a list of your layers and use a Foreach so it steps through will make code much shorter and easier to add subtract layer names.
(setq lst '("1" "2" "3"))
(foreach lay lst
(Command "-Layer" "Thaw" lay "")
(Command "DELAY" "2000")
(C…
Your not limited to alpha if using lisp defuns as shortcuts can be just 47 which for me is osmode 47, all on 99 etc. zzz is a easy one.
If had say a few text defuns maybe t1 t2.
Make your own pop up menus with the commands you want grouped in on…
I had a deeper look and found this but there must be though a over riding top level setting. It will be part of the table dictionary, I just looked at a table. It is feasible to update all the cells via a lisp.
(vla-getcellformat Obj 2 0)
"%lu2%th…
BlazProsen having used computer Tins for like 40 years ex Civil software rep. I dont have access to TINS in Bricscad, would appreciate your comments about some possible options.
Delete long triangles
Delete triangles using a drag line like ssget "…
It unfortunately may mean looking inside the cadalyst benchmark to see where it errors. I think I have it somewhere. It is probably doing a command not supported directly by Briscad, "REVERSE" comes to mind for a pline in Briscad use Pedit reverse,
…
Have a look at this you need to save the Multi radio buttons2.lsp as well.
; insert dynamic block and repeat along a line
; can choose visibility state on insert
; By AlanH March 2021 info@alanh.com.au
;; Get Dynamic Block Property Allowed Val…
Most GIS software has a turn off at scale function so reduces the amount of data, for city maps we made sure road names heirarchy was top level only main roads, house lots, boundary, st numbers etc were set to off. It sounds like you just have to mu…
This will fail if you miss pick say a line (setq obj (car (entsel "\nSelect Block "))) you can use
(princ "\nSelect Block"))
(setq ss (ssget "_+.:E:S" '((0 . "Insert")))) this forces select a block can add the blockname filter also.
I would check…
The code can look inside the block and use Tagname then set the text value, insert 1st then update else field will appear as the att string.
You removed the format \f
Yeah can do dist but much easier pick line and use Vl-get-length function.
If y…
Dont double post, its confusing
; Pick a line and put its length in a attribute
; By Alan H Feb 2021 info@alanh.com.au
(defun c:llen ( / obj objid str )
(setq obj (vlax-ename->vla-object (car (entsel "\nPick line obj "))))
(setq objid (rtos…
Read the question backwards you want d1 value for dynamic block is easy. An alternative may be use a field that is length of line so avoid parametric, that worked for mtext will make something for block att if can find time.
You should post this in the Lisp section its not hard to have a fence section block and repeatedly place it along a line etc. If they are blocks then count them make a table of how many etc.
If you make the fence block with internal objects on laye…
I did something that was update a attribute in a block based on another blocks attribute, you have to set the field to the attribute ID textvalue.
Trying with simpler text from limited testing . %% can not put a field as value but I am happy to …
A dumb way is open a dcl say with text "Please wait" it will sit there waiting for (term_dialog) will close it, this would be a lisp way to force a user say look at a excel sheet that has been opened and change something then continue.
Look into Osnap and Shift+right button mouse.
You can create your own snaps using lisp.
For you Move, select, m2p it will ask for 2points and use midpoint.
Trying to remember there is a Graphical centre snap for plines. Found it, Move, select-pli…
When you take photos with a mobile phone if you have the location turned on it records lat long, so I was using CIV3D and linking photos to a point on an aerial photo using the info inside the JPG, I can not see any reason why Bricscad can not do i…
You should invest in a old computer and get a copy of Lisp2c which does just that converts lisp to c code. The but it disappeared like 20 years ago, it cam out when Autodesk introduced C as a viable platform.
Like others draw a box pick 2 diagonal …