COGO Points Add Description App Free

[hosneyalaa]

 

COGO Points Add Description

 

 

 

https://apps.autodesk.com/CIV3D/en/Detail/Index?id=1014597409044804687&appLang=en&os=Win64#1974685402810894181

 

[BIGAL]

I have a number of CIV3D enhancements.

 

Rotate point

Label single cogo point

Change point style

Change text style in labels

Create a point

 

Surface control done via a Toolbar rather than Toolspace. On/off, Cont interval, water drop, TIN etc. Something that should be there.

 

Import description keys, you can export Description keys to Excel but in CIV3D there is no import so wrote one. 

 

(vl-load-com)
;; Change ProgID per Target Civil 3D version
;; This code sample is meant for Civil 3D 2013
; BY AlanH 2013

(if (not AH:vercheck)(load "vercheck")) ; opens the aecc database
(AH:vercheck)
(setq *aeccDoc* (vlax-get-property *aeccdoc* "ActiveDocument"))

(defun ptdesc ( / ptnum ptnumm ans)
(while (setq ptnumm (getint "\Enter pt number enter to exit"))
(vlax-for Point (vlax-get-property *aeccDoc* "Points")
(setq ptnum (vlax-get point 'number)) ;a pt number

(if (= ptnum ptnumm)
  (progn
    (setq ans (getstring "\nEnter desciption"))
    (vlax-put point 'descriptionformat ans)
    (if (= (vlax-get point 'rawdescription) "")
    (vlax-put point 'rawdescription "xx")
    )
  ) ; progn
) ;if
)
) ; end while
(princ)
) ; end defun

(ptdesc)

 

One of the other things I did was to make a custom mnu with a lot of the day to day commands from civ3D but used in the Drafting workspace. Saving having to change work spaces.

 

Happy to provide the contour stuff for you to try out. Yes needs a little bit of coding contour names etc. "0.1m" If imperial need some new icons.

 

vercheck.lsp