Author Topic: I want lisp to get Elevation label at the polyline starting edge and ending edge  (Read 3657 times)

0 Members and 1 Guest are viewing this topic.

sanju2323

  • Newt
  • Posts: 68
I want lisp to get at the beginning and end of each polyline of the Elevation Label.

ChrisCarlson

  • Guest
Ok, simply contact

http://www.lee-mac.com/contact.html

or

https://www.blackboxcad.com/Contact.html

and I'm sure they will write this for you, for a nominal fee

Kerry

  • Mesozoic relic
  • Seagull
  • Posts: 11654
  • class keyThumper<T>:ILazy<T>
Chris,
There are quite a few people here who pay the bills by doing this stuff into the wee hours of the morning.

:-)

kdub, kdub_nz in other timelines.
Perfection is not optional.
Everything will work just as you expect it to, unless your expectations are incorrect.
Discipline: None at all.

ChrisCarlson

  • Guest
Well those are the only two I know maybe a master list should be created.

tedg

  • Swamp Rat
  • Posts: 811
Chris,
There are quite a few people here who pay the bills by doing this stuff into the wee hours of the morning.

 :)
Good point, maybe someone here who does programming into the wee hours for a nominal fee will respond.  ;)
This post looks familiar
Windows 10 Pro 64bit, AutoCAD 2023, REVIT 2023

Rob...

  • King Gator
  • Posts: 3824
  • Take a little time to stop and smell the roses.
CAD Tech

ronjonp

  • Needs a day job
  • Posts: 7526

Windows 11 x64 - AutoCAD /C3D 2023

Custom Build PC

mjfarrell

  • Seagull
  • Posts: 14444
  • Every Student their own Lesson
Be your Best


Michael Farrell
http://primeservicesglobal.com/

snownut2

  • Swamp Rat
  • Posts: 971
  • Bricscad 22 Ultimate
Well he's consistent & persistent if nothing else....

Kerry

  • Mesozoic relic
  • Seagull
  • Posts: 11654
  • class keyThumper<T>:ILazy<T>
sanju2323,

If I ask you for a more refined description of what you expect from the program could you provide it ?

added:
Quote
Opening an AutoCAD 2000 format file.
Regenerating model.
AutoCAD menu utilities loaded.
Command:
Autodesk DWG.  This file is a TrustedDWG last saved by an Autodesk application or Autodesk licensed application.
Will this be consistent ?

The Text SEEMS to have it's insertion point coincident with the Polyline end/start vertex.
Will this be consistent ?

Do you expect to have the data evaluated in any specific sequence ?

How do you want the resulting date presented. ?






« Last Edit: December 11, 2014, 07:09:36 PM by Kerry »
kdub, kdub_nz in other timelines.
Perfection is not optional.
Everything will work just as you expect it to, unless your expectations are incorrect.
Discipline: None at all.

sanju2323

  • Newt
  • Posts: 68
Just like that
Code - Auto/Visual Lisp: [Select]
  1. (defun C:qq ()
  2.   (setq ss (ssget '((0 . "LWPOLYLINE"))))
  3.   (setq sslngth (sslength ss))
  4.   (setq idx 0)
  5.   (repeat sslngth
  6.     (setq ename (ssname ss (setq sslngth (1- sslngth))))
  7.     (setq edata (entget ename))
  8.     (setq xy (cdr (assoc 38 edata)))
  9.     (setq xy1 (cdr (assoc 10 edata)))
  10.     (setq xx (rtos xy 2 3))
  11.     (command "text" xy1 2 30 xx "")
  12.   )
  13. )
  14.  

edit:kdub-> code formatted and codeTags added code=cadlisp-7
« Last Edit: December 11, 2014, 07:52:42 PM by Kerry »

Kerry

  • Mesozoic relic
  • Seagull
  • Posts: 11654
  • class keyThumper<T>:ILazy<T>
Just like that
< .. >

OK, so you wanted to PUT the text , not GET it.

Happy that you have resolved your problem
kdub, kdub_nz in other timelines.
Perfection is not optional.
Everything will work just as you expect it to, unless your expectations are incorrect.
Discipline: None at all.