Volume calculation

[k005]

Uzunluk : 25x45x989
Uzunluk : 30x45x1160
Uzunluk : 30x45x315

Uzunluk : 325

Uzunluk : 450

...

...

Hello friends

From the data in this section;

a- How can I divide by 100 and multiply the ones with x in them and add the results?

b- How can I add the ones that do not have an x in them? and divide 100

desired result

a... Total Volume: 3.103 m³

b... Total Length : 7.75 m

[k005]

@ronjonp 

Adding:

Can we draw little yellow dots on points P1 and P2?

dot size : textsize

[Kent1Cooper]

---

@k005 wrote:

....

Can we draw little yellow dots on points P1 and P2?

....

---

[Are you in the right topic?  I don't see any P1 and P2 here.  Should you be asking over >here<?]

[k005]

@Kent1Cooper 

Sorry... I posted in the wrong topic.

Yes, the link you gave... I am writing it again in the right part. 😔

[ronjonp]

---

@k005 wrote:

@Kent1Cooper 

Sorry... I posted in the wrong topic.

Yes, the link you gave... I am writing it again in the right part. 😔

---

Maybe you can implement this .. sure we could do this with COMMAND, but where's the fun in that 🙂

(defun _makedot	(p l s c)
  (entmake (list '(0 . "LWPOLYLINE")
		 '(100 . "AcDbEntity")
		 '(67 . 0)
		 (cons 8 l)
		 (cons 62 c)
		 '(100 . "AcDbPolyline")
		 '(90 . 2)
		 '(70 . 1)
		 (cons 43 (/ s 2.))
		 (cons 10 (mapcar '- p (list (/ s 4.) 0)))
		 '(42 . 1)
		 (cons 10 (mapcar '+ p (list (/ s 4.) 0)))
		 '(42 . 1)
	   )
  )
  (princ)
)
;; Point, layer, size, color
(_makedot (getpoint) "DotLayer" 5 2)

[k005]

@ronjonp 

I'm trying right now... 🙂

....................

Now how should I combine this code with the other lisp code?

[Kent1Cooper]

[Take it over to the other topic.  If you get to a good solution here, no one with the same kind of need who finds the other topic will have any way to know it's solved here.]

[k005]

@Kent1Cooper 

OK