topic Create COGO POINT from Circle using Lisp in Civil 3D Customization Forum

Create COGO POINT from Circle using Lisp

crepinmoussavou — Fri, 03 Jun 2022 07:48:48 GMT

Hello,

I habe a lot of circles in my Civil drawing that I wonna transform into Cogo Points with defined name using LISP. The name of each Cogo Point should be x/y (the lokal coordinates of the transformed circle).

Can someone help me please? Thanks

Re: Create COGO POINT from Circle using Lisp

hosneyalaa — Fri, 03 Jun 2022 11:13:33 GMT

Use -DATAEXTRACTION (Command)

Extract the coordinates of the center for each circle to a text file

And put it in Civil 3D drawing

It is description Make x/y appear.

Re: Create COGO POINT from Circle using Lisp

hosneyalaa — Sat, 04 Jun 2022 05:21:12 GMT

try

(defun c:TESTCIRCLE (/ C3D C3DDOC ENAME I OCOGO PL PLN PNTNUMS POINTS POIT POITXY POITZ SS) (vl-load-com) (setvar "CMDECHO" 0) (command "-osnap" "off") ;; Jeff_M (defun getC3D () (vl-load-com) (setq C3D (strcat "HKEY_LOCAL_MACHINE\\" (if vlax-user-product-key (vlax-user-product-key) (vlax-product-key) ) ) C3D (vl-registry-read C3D "Release") C3D (substr C3D 1 (vl-string-search "." C3D (+ (vl-string-search "." C3D) 1) ) ) C3D (vla-getinterfaceobject (vlax-get-acad-object) (strcat "AeccXUiLand.AeccApplication." C3D) ) ) (setq C3Ddoc (vla-get-activedocument C3D)) ) (princ "\nSelect CIRCLEs: ") (if(setq ss (ssget '((0 . "CIRCLE")))) (PROGN (setq i -1) (getC3D) (setq points (vlax-get C3Ddoc 'points)) (while (setq ename (ssname ss (setq i (1+ i)))) (PROGN (setq pl (vlax-ename->vla-object ename)) (setq plN(vlax-get pl 'OBJECTNAME)) (IF (= plN "AcDbCircle") (PROGN (setq pOIT(vlax-get pl 'CENTER)) (setq oCogo(vlax-invoke points 'add pOIT)) (setq pntnums (vlax-get oCogo 'number)) (setq pOITXY NIL) (setq pOITZ NIL) (setq pOIT NIL) )) ) );;WW );;;;;;;;;;;;;;;;;;;progn );;;;;;;;;;;;;;;;;;;;;;;;;;;IF (command "_undo" "_end") (setvar "CMDECHO" 1) (princ) );;;;;;;;;;;;;;;;;;;;;;;;MMM

Re: Create COGO POINT from Circle using Lisp

crepinmoussavou — Tue, 07 Jun 2022 09:28:33 GMT

Hi Hosneyalaa,

thank you for the idea. I already work with this command. But out of sheer laziness, I looked for an easier solution 😅.

Re: Create COGO POINT from Circle using Lisp

crepinmoussavou — Tue, 07 Jun 2022 09:33:19 GMT

Thank you very much Honeyalaa.

Ynt: Create COGO POINT from Circle using Lisp

ozgur_ege — Thu, 04 Dec 2025 12:12:15 GMT

Merhaba gayet güzel çalışıyor