topic Re: Draw arrow in Visual LISP, AutoLISP and General Customization Forum

Draw arrow

Anonymous — Thu, 19 Jul 2018 11:51:45 GMT

There will be a routine so that an arrow is drawn between two selected objects as shown in drawing attached

Re: Draw arrow

CodeDing — Thu, 19 Jul 2018 16:15:16 GMT

@Anonymous,

I remade your block. Use mine. (SEE ATTACHED dwg)

Hope this is what you're looking for.

(defun c:ARW ( / apn dpn dsp ins obj prn o1 o2 p1 p2 g2g)
    ;;Original code by Lee Mac (http://www.theswamp.org/index.php?topic=43789.0) /// Edited by D.D.
    ;; Polar Stretch Dynamic Parameter Property Names:
    (setq dpn "Distance" ;; Distance Name
          apn "Angle"    ;; Angle Name
    )

(setq g2g nil)

(while (not g2g)
(setq o1 (car (entsel "\nSelect First Object: ")))
(if (eq (cdr (assoc 0 (entget o1))) "INSERT")
	(setq g2g t)
	(prompt "\nObject Selected is Not a Block."))
);while

(setq g2g nil
	p1 (list (getpropertyvalue o1 "Position/X") (getpropertyvalue o1 "Position/Y")))

(while (not g2g)
(setq o2 (car (entsel "\nSelect Second Object: ")))
(if (eq (cdr (assoc 0 (entget o2))) "INSERT")
	(setq g2g t)
	(prompt "\nObject Selected is Not a Block."))
);while

(setq p2 (list (getpropertyvalue o2 "Position/X") (getpropertyvalue o2 "Position/Y")))

(command "-INSERT" "TOMA AEREA" p1 "12" "" "")

(setq obj (entlast))

    (if
        (and
            ;(setq obj (car (entsel "\nSelect Dynamic Block with Polar Stretch Parameter: ")))
            (setq obj (vlax-ename->vla-object obj))
            (= "AcDbBlockReference" (vla-get-objectname obj))
            (= :vlax-true (vla-get-isdynamicblock obj))
            (setq ins (trans (vlax-get obj 'insertionpoint) 0 1))
            (setq dsp p2)
            ;(setq dsp (getpoint ins "\nSpecify New Stretch Distance & Angle: "))
        )
        (foreach prop (vlax-invoke obj 'getdynamicblockproperties)
            (setq prn (strcase (vla-get-propertyname prop)))
            (cond
                (   (= prn (strcase dpn))
                    (vla-put-value prop (vlax-make-variant (distance ins dsp)))
                )
                (   (= prn (strcase apn))
                    (vla-put-value prop (vlax-make-variant (angle ins dsp)))
                )
            )
        )
        (princ "\nObject is not a Dynamic Block.")
    )
    (princ)
)
(vl-load-com) (princ)

Best,

~DD

Re: Draw arrow

Anonymous — Thu, 19 Jul 2018 16:57:48 GMT

please see real arrow DWG resize.

Thanks

Re: Draw arrow

CodeDing — Thu, 19 Jul 2018 18:10:17 GMT

@Anonymous,

I do not know what you are asking. Is the arrow too large when inserting? You had it scaled by 12 in your original drawing. If this is the case change...

(command "-INSERT" "TOMA AEREA" p1 "12" "" "")

..to..

(command "-INSERT" "TOMA AEREA" p1 "1" "" "")

Best,

~DD

Re: Draw arrow

Anonymous — Thu, 19 Jul 2018 20:32:19 GMT

PLEASE SEE THIS Last Situations to create a arrow

Re: Draw arrow

CodeDing — Thu, 19 Jul 2018 21:52:51 GMT

@Anonymous,

I have no idea what you want. You have asked 0 questions.

I will not solve all of your work related problems for you. If you are struggling with a solution and do not provide any evidence that you have tried to work out your own solution, then you are not likely to be helped. My original post was a favor and for my own learning experience. I recommend that you show some attempt at your own work if you expect others to assist you in the future.

Best,

~DD