First of all I am sending my apology to all for misunderstand.
Who will read the lisp, will find that I am adding the copyright to all just proud with my lisp no thing else
I would not and will not ascribe any work for me and proving for that see this post
http://www.cadtutor.net/forum/showthread.php?53532-How-to-Insert-the-Layer-Using-Lisp&p=362865&viewfull=1#post362865 I added
(defun makelay (LName LColor LType)
; CAB
…
I added a part copied from CAB so I added his name
One more thing
For uFlag
This issue had been mentioned before by you
http://www.theswamp.org/index.php?topic=34005.msg393524#msg393524Let's take a look at the post
- The main routine and all subroutine is copyrighted but *error* doesn’t have because it is not mine
- Copyright added to HSN:TL-Line subroutine, who thinking that that subroutine worth to be as a subroutine but I am training myself to do what LEE mentioned before to use subroutine.
This is a new lisp
Any suggestions are welcome
Sorry for native language its explanation of the lisp
(defun c:TanLine (/ p1 p2 p3)
;Copyright © by HasanCAD
(defun *error* (msg)
(and uFlag (vla-EndUndoMark doc))
……
(defun HSN:DDwnMnuSetSysVar ()
;Copyright © by HasanCAD
(defun HSN:ReDDwnMnuSetSysVar ()
;Copyright © by HasanCAD
(defun HSN:TL-Text ()
;Copyright © by HasanCAD
(defun HSN:TL-Line ()
;Copyright © by HasanCAD
(entmake (list
(cons 0 "LINE")
(cons 10 p1)
(cons 11 p2)
))
)
I hope that I clarified the misunderstand