Few lisps to improve workflow

[Lukasvop1]

Hi guys, can you check this. I need create this few easy lisps separatly. Can you help?

1. LDN - Laydel, Name
2. MPT - Multiple Point
3. ZO - Zoom object
4. LP - Line perpendicular
5. LTA - Line tangent
6. C3T - tan, tan, tan

@komondormrex

[hak_vz]

@ВeekeeCZ I updated the code in post that was accepted and it now works OK. I actually played with different approaches i.e. either to use vectors or simple intersections. Thanks for intervention. Sometime its not bad to have code with error since it then may force use to start learning autolisp.

[Kent1Cooper]

---

@Lukasvop1 wrote:

.... I post video in Message 11. ....

---

[There is no video posted there.]

[Lukasvop1]

Message 13 now.

[hak_vz]

@Lukasvop1 

 Search older post for what you are looking for. I'm sure there must be something already posted on this forum. I'll play with LTA later.

[Kent1Cooper · Accepted solution]

I see a video at Message 9, if that's what you mean.  In that case, I think your LP could be done this way:

(defun c:LP ()
  (command "_.line" "_per")
  (prin1)
)

These requests all seem to be just putting simple command options into custom command definitions.  You can do that yourself, easily enough, following the examples.

The exception seems to be the LAYDEL one.  I tried starting with (initdia) to get the dialog-box list of Layer names to come up, but it still asks for a name at the command line.  And @ВeekeeCZ already suggested preceding the command with (initcommandversion), which you say didn't work.  So I didn't try it with that alone, but I tried both, and this worked for me:

(defun C:LDN ()
  (initdia)
  (initcommandversion)
  (command "_.laydel" "_name")
  (prin1)
)

[Lukasvop1]

Yes, seems work right, thank you.

[paullimapa · Accepted solution]

or go with the vla-sendcommand method:

(defun c:ldn (/ aec_sendkeys)
 (defun aec_sendkeys (cmd-arg)
 (vla-Sendcommand(vla-Get-ActiveDocument(vlax-Get-Acad-Object))cmd-arg)(princ)
 )
 (aec_SendKeys "_.Laydel _Name\n")
)

[komondormrex]

---

@Kent1Cooper wrote:

  (initdia)

---

has no sense since

Currently, the following commands make use of the initdia function: ATTDEF, ATTEXT, BHATCH, BLOCK, COLOR, IMAGE, IMAGEADJUST, INSERT, LAYER, LINETYPE, MTEXT, PLOT, RENAME, STYLE, TOOLBAR, and VIEW.

[komondormrex]

hey there,

regarding item 4. are you in  need to draw a perpendicular from a certain point on a curve in either direction?

[stev98312]

Because LAYDEL is an Express Tool.

Calling it from LISP the way you want may be a challenge.

I believe the OP wants to issue the command and be presented with window containing a list of layers he can then choose for LAYDEL to work on. That would be sweet, but none of my searches comes up with anything like that.

Steve

[Kent1Cooper]

---

@komondormrex wrote:

---

@Kent1Cooper wrote:

  (initdia)

has no sense since

Currently, the following commands make use of the initdia function: ATTDEF, ATTEXT, BHATCH, BLOCK, COLOR, IMAGE, IMAGEADJUST, INSERT, LAYER, LINETYPE, MTEXT, PLOT, RENAME, STYLE, TOOLBAR, and VIEW.

---

You are correct.  I had not tried defining LDN with only (initcommandversion) because the OP said it didn't work.  So I simply tried it with both (initdia) and (initcommandversion) and it worked for me.  But now I've tried it with (initcommandversion) but not (initdia), and that also works for me.  So @Lukasvop1, can you be more specific about in what way that did not work for you?  How did you incorporate it?  I used "_.laydel" instead of the hyphen-prefixed "-laydel", if that is what makes the difference.

[Kent1Cooper]

---

@stev98312 wrote:

Because LAYDEL is an Express Tool. ....

---

It may have been originally, but since at least Acad2020 [maybe earlier] it's been a "real" command that can be called in an AutoLisp (command) function.

[stev98312]

Seems I spoke out of turn and without first reading the entire thread thoroughly.

The solution you provided in message 25 is working perfectly.

Steve

[Sea-Haven]

For the circle inside a triangle needs code. Have a go or Google it may exist, I did not search.

How to Inscribe a Circle in a Triangle | Geometry | Study.com

[Lukasvop1]

I try it with only (initcommandversion) and now works right. I had created alias called LDN and it was probbaly problem.

(defun C:LDN ()
(initcommandversion)
(command "_.laydel" "_n")
(prin1)
)

[Lukasvop1]

Hi, can you check video in this topic, in MESSAGE 1.

I need only last one lisp 5. LTA - Line tangent

thank you

[Lukasvop1]

Like @ВeekeeCZ said it's just a menu macro in ribbon..

Not necessary overcomplicate needed.

(defun c:C3T()
	(command "_.circle" "_3p" "_tan" pause "_tan" pause "_tan" pause)
	(princ)
)

[komondormrex]

LTA option 1

(command "_line" "_tan" pause pause "")

LTA option 2

(command "_line" "_tan" pause "_tan" pause "")

[Lukasvop1]

Thank you, is possible include both options in one lisp?

[komondormrex · Accepted solution]

maybe like this 

(defun c:LTA (/ old_osmode)
	(setq old_osmode (getvar 'osmode))
	(setvar 'osmode 256)
	(command "_line" pause pause "")
	(setvar 'osmode old_osmode)
)