Visual LISP, AutoLISP and General Customization

## Visual LISP, AutoLISP and General Customization

Active Contributor
Posts: 32
Registered: ‎10-27-2011
Message 1 of 2 (102 Views)

# How to dimension between two points in a selection set?

102 Views, 1 Replies
11-01-2011 01:36 PM

Looking to make a selection set of points that are on a specific layer, and then create a dimension between, in this case, two points. I feel like it should be very simple, but I can't get it to work for the life of me. Here is the test code I've been playing around with:

(defun c:test (/ sel1 TC)

(setq sel1 (ssget "X" '((8 . "VPOINTS"))))

(setq TC (polar (entget (assoc 10 (ssname sel1 0))) (dtr 180.0) 9))
(command "DIMLINEAR" (entget (assoc 10 (ssname sel1 0))) (entget (assoc 10 (ssname sel1 1))) "V" (polar TC (dtr 180.0) 9) "")

)
(defun dtr (x)

(* pi (/ x 180.0))
;divide the angle by 180 then
;multiply the result by the constant PI

) ;end of function

Any help would be greatly appreciated. Thanks.

*Expert Elite*
Posts: 5,278
Registered: ‎09-13-2004
Message 2 of 2 (96 Views)

# Re: How to dimension between two points in a selection set?

11-01-2011 01:55 PM in reply to: bennywise578

[Posting the same question on two threads isn't a good idea, not least because someone who finds one of them later, looking for an answer to a similar question, will have no way of knowing that it was answered on another thread.]

See my reply to your other thread.  I think you would be well served by spending some time looking over the entries in the AutoLISP Reference for the various functions involved, and becoming more familiar with the kinds of information they want as arguments, and the kinds of information they return.  What you have is trying to apply various functions to various things to which they are not applicable.

Kent Cooper

### You are not logged in.

Announcements
Are you familiar with the Autodesk Expert Elites? The Expert Elite program is made up of customers that help other customers by sharing knowledge and exemplifying an engaging style of collaboration. To learn more, please visit our Expert Elite website.