topic Re: About presspull in Visual LISP, AutoLISP and General Customization Forum

About presspull

saitoib — Sat, 31 Jul 2021 07:27:35 GMT

Hi all.

command rectang 0,0 100,100

With the squares drawn, I get

In test1, I can successfully extrude it, but in test2, I get an error.
Why is this?
Please help me.

(defun c:test1 (/ th id vrs cent) (setq th 5) (setq id (car (entsel))) (setq vrs (vl-remove-if '(lambda (x) (/= (car x) 10)) (entget id))) (setq cent (mapcar '/ (list (apply '+ (mapcar 'cadr vrs)) (apply '+ (mapcar 'caddr vrs))) (list (length vrs) (length vrs)))) (setq cent (list (car cent) (cadr cent) 0.0)) (command "_.presspull" cent th "") )

(defun c:test2 ( / th pt1 pt2 ss nn i id vrs cent) (setq th 5) (setq pt1 (getpoint "\nSelect area : ")) (setq pt2 (getcorner pt1 "\nAnother corner :")) (setq ss (ssget "_C" pt1 pt2(list (cons 0 "LWPOLYLINE")))) (setq nn (sslength ss)) (setq i 0) (while (< i nn) (setq id (ssname ss i)) (setq vrs (vl-remove-if '(lambda (x) (/= (car x) 10)) (entget id))) (setq cent (mapcar '/ (list (apply '+ (mapcar 'cadr vrs)) (apply '+ (mapcar 'caddr vrs))) (list (length vrs) (length vrs)))) (setq cent (list (car cent) (cadr cent) 0.0)) (command "_.presspull" cent th "") (setq i ( 1+ i)) ) )

Re: About presspull

hak_vz — Sat, 31 Jul 2021 11:08:32 GMT

@saitoib Replace command PRESSPULL with command EXTRUDE. Create selection set of lwpolylines, and apply command with appropriate extrusion length. You don't need to search for shape center point. Positive extrude length will create 3dsolid in direction of plane normal vector, and negative in opposite.

Re: About presspull

saitoib — Sat, 31 Jul 2021 22:46:02 GMT

@hak_vz

In fact, I want to draw some separate shape inside the square and make this a hole.
This is not easy to do in AutoCAD's extrude, is it?
So I want to use presspull.

Thank you.

Re: About presspull

saitoib — Sun, 01 Aug 2021 00:10:54 GMT

In the case of test2
"Click inside a surface, curve, or bounding area"
message appears.
Does this mean that it can't click inside the boundary correctly?

But if I insert
(command "circle" cent 10)
I can draw a circle.

Why does ?

Re: About presspull

saitoib — Sun, 01 Aug 2021 07:05:39 GMT

I finally understood the cause.

In the case of test1, the effect of entsel was still there, so I was able to select it.

When presspull is in the "Select object or bounding area" state, is it possible to select the object with the command?

On the other hand, the extrude command seems to be able to use entity names, so I guess I have to use exturde even if it requires more steps?