(setq ptnum (vla-get-ActiveDocument (vlax-get-acad-object ))) This will save you from typing PL for polyline and then 'PN for point number (defun c:PLN ( / ptnum) Example with transparent command in Civil 3D:
The CR for CIRCLE will be: (defun c:CR ()Īlso you can write more complex commands. This will assign C for COPY, the CO will continue to exist, but will overwrite the C for CIRCLE (defun c:C () When you load it manually via 'appload' command it will affect only the successor drawing, but you can load it automatically with the program startup - then it will affect all drawing files. You can keep the lisp on your flash drive, hard drive or cloud storage and use it when you need it. In this case there is no need to edit the pgp file, reinit it and all others stuff.
