stuck with Boundary command

[thavasi1982]

Dear All,

I need to check whether a boundary can be created or not. I have write the following conventional code and it returns the error.

(if (not (vl-cmdf "-boundary" "a" "O" "P" "" P1 ""))    

              (setq adj-panel-list (list "")) 

              (setq adj-panel-list nil)

);if

Is there any way to use the boundary command?

Thanks

STM

[hmsilva · Accepted solution]

Something like this perhaps

(setq lstobj (entlast))
(vl-cmdf "-boundary" "a" "O" "P" "" P1 "")
(if (not (eq lstobj (entlast)))
  (prompt "\nThe boundary was created!")
  (prompt "\nThe boundary was not created!")
)

HTH

Henrique

[_Tharwat]

Something like this should work .

(setq e    (entlast)
      done nil
)
(vl-cmdf "-boundary" "a" "O" "P" "" P1 "")
(if (and (/= (setq x (entlast)) e) (wcmatch (cdr (assoc 0 (entget x))) "*POLYLINE"))
  (setq done T)
  (setq done nil)
)

[hmsilva]

---

@_Tharwat wrote:

Something like this should work .

(setq e    (entlast)
      done nil
)
(vl-cmdf "-boundary" "a" "O" "P" "" P1 "")
(if (and (/= (setq x (entlast)) e) (wcmatch (cdr (assoc 0 (entget x))) "*POLYLINE"))
  (setq done T)
  (setq done nil)
)

---

Hi Tharwat,

are you sure that the return from (/= (setq x (entlast)) e) is the correct one?

It will return always T, and (= (setq x (entlast)) e) It will return always nil... Perhaps something like (not (eq (setq x (entlast)) e))...

Cheers

Henrique

[_Tharwat]

---

@hmsilva wrote:

Hi Tharwat,

are you sure that the return from (/= (setq x (entlast)) e) is the correct one?

It will return always T, and (= (setq x (entlast)) e) It will return always nil... Perhaps something like (not (eq (setq x (entlast)) e))...

Cheers

Henrique

---

You're right henrique .

I guess yesterday or before yesterday I faced the same issue and was shocked with the wrong return of the operator /= and leave it without being convinced how could that be , but now you did clarify it very well .

Thank you .

[hmsilva]

---

@_Tharwat wrote:

...  I faced the same issue and was shocked with the wrong return of the operator /= ...

---

Have been there before... 🙂

Cheers

Henrique

[thavasi1982]

Thanks a lot "hmsilva" & "Tharwat"

STM

[hmsilva]

You're welcome, thavasi
Glad I could help

Henrique