I too have been doing the same procedure of droping the Val and creating a new roadjob from time to time myself, pending my project situation. That was way before quantity calculations became just as much, if not more important, than creating a surface for machine control and survey stakeout. 0.Man I miss the good old days of just creating the FG surface. (foreach itm (_remd (mapcar 'caddr data)) (if (and (not (member itm (_layoutlist))) (setq b (cons (_delfinder a 1) b))įile (getfiled "Select Data file" (getvar 'dwgprefix) "csv" 16) (Setq lyt (dictsearch (namedobjdict) "ACAD_LAYOUT")) (defun c:demo (/ _delFinder collect _remd file data) (Prompt "\nTHIS ROUTINE IMPORTS DESIGN DATA FROM CSV FILE (VERSION 0.0) by C.WAKEFIELD.") (ImpDes:res) Restore variables for error handling (cons 7 (if (tblsearch "STYLE" (caddr line)) (caddr line) (getvar "TEXTSTYLE"))) textstyle (cons 40 (getvar "TEXTSIZE")) is textheight needed? LAYOUT,LAYER,TEXTSTYLE,X-CORD,Y-CORD,TEXTSTRING (princ "\nBlockname does not exist in the drawing.") (cons 10 (list (atof (nth 3 line)) (atof (nth 4 line)) 0)) insert point LAYOUT,LAYER,BLOCK,X-CORD,Y-CORD,BLOCKNAME (defun parsestring ( str / res found previous) (setq *error* olderr) restore old *error* handler (setq objad (vla-get-activedocument (vlax-get-acad-object))) The text is MTEXT with a background mask as default. You also didn't say anything about text height, so I currently have it using the value of the current textsize variable. As I said, I don't know if there are any limitations on the application of LISP in Intellicad. This would be my first run based on what you have said you need. I am somewhat proficient at excel so what ever format is best for the csv i could make it happen. That is the goal, to just place the text or a block where specified. The blocks could all be stored in the same folder to simplify it. So, instead of placing text a block named SEPTIC TANK.DWG would be inserted at 31, 1.6 Maybe to draw a block I could replace the text style with the word BLOCK and the text value with the block name.Ģ2X34 LAND,INV BOLD,BLOCK,31,1.6,SEPTIC TANK.DWG, This would place that text in the lower right hand corner of my drawing (my title block). Then, place the text "CATHY ENGEL" ON THE 22X34 LANDSCAPE layout sheet, on the layer INV BOLD, with the text style HAND at the x-cord of 31 and the y-cord of 1.6. Ignore the 1st line of the file.(header info)
Like I said it is a huge time saver for me.Ģ2X34 LAND,INV BOLD,HAND,31,1.6,CATHY ENGEL,Ģ2X34 LAND,INV BOLD,HAND,31,1.4,LOT 3 KEYES ROAD,Ģ2X34 LAND,INV BOLD,HAND,31,1.2,WARREN MA,Ģ2X34 LAND,INV BOLD,HAND,31,1,18 JULY 2012, I would be willing to compensate someone write it for me. So, trying to find a way to do it with AutoLISP. VBA does not run in Carlson with Intellicad engine. I looked at having excel write a dxf file but it looks like there is a lot of stuff in a dxf file.
I can change my template drawing at any time and just have to adjust the x-cord and y-cord in excel to have the text go to the proper place.Īnother nice feature would be to place a block instead of a text value at a specified x y coordinate.ĪutoLISP is a little beyond me capabilities(actually a lot). I run the command it it instantly updates the drawing. I had a TML (terramodel language) routine written to do this task for me 18 years ago and it runs perfect. So, it is time to abandon Terramodel and move on.
#TERRAMODEL VS CARLSON UPDATE#
One update and then they abandoned the Generic CAD users. BTW, I started with Generic CAD 22 years ago and AutoCAD bought them.
However, Trimble aquired them and does not produce any more updates.
It is a great program for civil and surveyors. Being able to place these values any where in the drawing automaticaly is a huge time saver! (beg pipes, end pipes, top of stone, bottom of stone, d-box in and out, septic tank in and out). I can set the bottom of a leach field and have the spread sheet calc all the inverts. I have a nice spread sheet in excel that does all the design calcs. For example, the design flow of 330 gpd might be placed in 3 different places, the invert of the pipe in a nts profile and in a schedule of inverts, the clients name on 3 different sheets. The text goes throughout the whole drawing.
0 kommentar(er)
