AutoCAD - Lisp for Printing Points at Centroid of Polyline

Print Page | Close Window

Lisp for Printing Points at Centroid of Polyline

Printed From: CAD Forum
Category: EN
Forum Name: AutoCAD
Forum Description: Discussion about AutoCAD and AutoCAD LT, viewers, DWG and DWF formats, Design Review, AutoCAD 360, add-ons
URL: https://www.cadforum.cz/forum_en/forum_posts.asp?TID=13169
Printed Date: 22.Apr.2026 at 23:11

Topic: Lisp for Printing Points at Centroid of Polyline

Posted By: nkc_13
Subject: Lisp for Printing Points at Centroid of Polyline
Date Posted: 21.Apr.2019 at 18:22

I have found the relevant lisp by Gruru Lee Mac, however, there is error msg "Region is not on the UCS plane: popped out for some object and I found that can be solved by converting the UCS as the object before creating the point at centroid of the polyline by the Lisp. May I ask is it possible to include the UCS command in the Lisp for each object? Greatly appreciate if any Master can help!

(defun c:pc ( / acdoc acspc acsel reg ) (vl-load-com) ;; ? Lee Mac 2011

(setq acdoc (vla-get-ActiveDocument (vlax-get-acad-object))

acspc (vlax-get-property acdoc (if (= 1 (getvar 'CVPORT)) 'Paperspace 'Modelspace))

)

(if (ssget '((0 . "LWPOLYLINE") (-4 . "&=") (70 . 1)))

(progn

(vlax-for obj (setq acsel (vla-get-ActiveSelectionSet acdoc))

(vlax-invoke acspc 'addpoint

(trans (vlax-get (setq reg (car (vlax-invoke acspc 'addregion (list obj)))) 'Centroid) 1 0)

)

(vla-delete reg)

)

(vla-delete acsel)

)

(princ)

)

Also I find the command for converting the UCS

(defun c:obrotucs ( )

(command "ucs" "ob" pause "plan"

"current")

(princ)

)

Print Page | Close Window