Gotthatitch

Gotthatitch We chase dream destinations one minute at a time. Follow along as we explore the world, one reel at a time.

31/10/2019

Where do I go when I am looking for help with a tool or macro?

Lee Mac
JTB World
Terry Dotson / Dotsoft

31/10/2019

Just really tested BLOCKIFY in BricsCAD for the 1st time today. It worked so much better than I hoped or expected. Not only did it create blocks correctly from crazy geometry all over my huge drawing, it created arrays of the blocks. WOW!

29/10/2019

BricsCAD new TINs are great. It is version 1 so there are still quite a few things missing.

I'm no developer but I created this little lisp routine to help me easily add a contour label or 3.

(defun C:TINContourLabel ( / )

(defun *error* (sMessage)

(if (not (member sMessage '("Cancel" "Function cancelled" "quit / exit abort")))
(princ (strcat "\nError encountered: " sMessage))
)

; clean up our session
(setq *error* nil)
(setvar "OSMODE" nOSMODE)
(setvar "DIMZIN" nDIMZIN)

(princ) ;exit quietly

)

(setq nOSMODE (getvar "OSMODE"))
(setq nDIMZIN (getvar "DIMZIN"))

(setvar "OSMODE" 1)
(setvar "DIMZIN" 0)

(while
(setq TinPt (getpoint "\nPick point on tin countour > "))
(setq sElev (rtos (nth 2 TinPt) 2 0))

(setq oText (vla-AddMtext mspace (vlax-3d-point TinPt) 0 sElev))

(setq RotPt (getpoint TinPt "rotation >"))
(setq nAngle (angle TinPt RotPt))
(vla-put-Rotation oText nAngle)

(setq InsPt (polar TinPt nAngle (/ (distance TinPt RotPt) 2)))
(vla-put-InsertionPoint oText (vlax-3d-point InsPt))
(vla-put-AttachmentPoint oText 5)
)

)

ที่อยู่

Chonnabot

เว็บไซต์

แจ้งเตือน

รับทราบข่าวสารและโปรโมชั่นของ Gotthatitchผ่านทางอีเมล์ของคุณ เราจะเก็บข้อมูลของคุณเป็นความลับ คุณสามารถกดยกเลิกการติดตามได้ตลอดเวลา

ทางลัด

แชร์

ประเภท