Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 09/23/2021 in all areas

  1. Have you tried using the Insertion Osnap when moving text? It should be the same as the node point.
    1 point
  2. Sorry, I just saw this. This might actually be VERY helpful. Very much appreciated. Thanks for the help.
    1 point
  3. As you suggest Cyberangel have a draw pipe, uses a linetype equal for dashed pipes. Ish wants a do auto based on a chainage and say pipe dia and length, then of course is request 2 what about multiple pipes. Sorry can not help.
    1 point
  4. Are you trying to rotate the array around its original build point or around some arbitrary point? In other words, are you trying to redefine the array or to change the angle of the entire array? What type of component is in the array? Which command or property are you using to attempt the rotation?
    1 point
  5. With this lisp you can set text size by selecting any Text, Mtext or Attribute. Or hit enter and it will prompt you with a text size that will print at a height of 0.1" Enter to accept that or enter a different height. ;| Text size - This one you can get text size by picking text, entering a value, picking two points, or it will calculate it from CANNOSCALEVALUE if in Model Space. It doesn't change on Escape. (load "TXTsize.LSP") tas ; by: Tom Beauford Leon County Public Works Engineering ===============================================|; (defun C:tas (/ *error* vars tnt ts txt etp style) (setq vars (mapcar '(lambda (x) (cons x (getvar x))) '("luprec" "modemacro" "cmdecho"))) (defun *error* (msg) ;; Reset variables (mapcar '(lambda (x) (setvar (car x) (cdr x))) vars) (if (not (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")) (princ (strcat "\nError: " msg)) ) (princ) ) (setvar "luprec" 8) (setvar "cmdecho" 0) (grtext -1 "Select Text, Mtext or Attribute. Enter for more Options.") (setq tnt(nentsel "\nSelect Text Entity: ")) (cond ((= 1 (getvar "cvport"))(setq ts "0.1")) ((= 1 (getvar "TILEMODE"))(setq ts (rtos(/ 0.1 (getvar 'cannoscalevalue))2 3))) (T(setq ts (rtos(/(caddr (trans '(0 0 1) 3 2))10)2 3))) ) (if (= "0" (substr ts (strlen ts))) (while (= (atof ts)(atof (substr ts 1 (- (strlen ts)1)))) (setq ts(substr ts 1 (- (strlen ts)1))) );while );if (setq txt (strcat"\nChange Text Size from " (rtos(getvar "textsize")) " to :<" ts "> ")) (if tnt (setq etp (cdr(assoc 0 (entget(car tnt)))))) (if (or(= "TEXT" etp)(= "MTEXT" etp)(= "ATTRIB" etp)) (progn (setq style (getvar "textstyle") style (tblobjname "style" style) xdata (cadr (assoc -3 (entget style '("AcadAnnotative")))) tnt(cdr(assoc 40 (entget (car tnt)))) );setq (if(and xdata (= (cdr (nth 4 xdata)) 1)) (setq tnt(* tnt (getvar "cannoscalevalue"))) );if );progn (progn (grtext -1 "Enter Size, Pick 2 Points or Accept Default.") (setq tnt (getdist txt)) );progn );if (if (or(= tnt nil)(= tnt 0.0)) (setq tnt (atof ts)) );if (setvar "textsize" tnt) (setq tnt (rtos(getvar "textsize"))) (if (= "0" (substr tnt (strlen tnt))) (while (= (atof tnt)(atof (substr tnt 1 (- (strlen tnt)1)))) (setq tnt(substr tnt 1 (- (strlen tnt)1))) );while );if (mapcar '(lambda (x) (setvar (car x) (cdr x))) vars) (grtext -1 "") ;Clear status line (vl-cmdf "redraw") (princ) ) You can change the default text height by replacing 0.1 in these two lines ((= 1 (getvar "cvport"))(setq ts "0.1")) ((= 1 (getvar "TILEMODE"))(setq ts (rtos(/ 0.1 (getvar 'cannoscalevalue))2 3))) with whatever height you wish. Always annotate last, having to modify it after adding/modifying, rotating or rescaling a view is a frustrating waste of time.
    1 point
  6. How do you create and activate a View Group? What is a level and how are they managed? Name the three default level attributes. What is a "seed"? How do you add a title block to a sheet?
    1 point
  7. Briefly describe the use of AccuDraw. Briefly describe the use of AccuSnap. Explain how to control the focus in Microstation. What command is used to place text and a leader? What file format does Microstation write to? What file formats can be imported? What file formats can be exported? Explain what a Microstation cell library is.
    1 point
  8. yes ..same field , i mentioned in my resume that am working in autocad (i know microstation too) , they need a person with knowlage of autocad and microstation... so i just want to know that what kind of questions may they ask.> ..thank you
    1 point
×
×
  • Create New...