Break frame opening - help with change

[mhy3sx]

Hi, I am using a lisp code to trim walls for door and window frames. In autocad everything works fine ,but in Zwcad  "m2p" is not supported. Is any other way to trim the wall?

 

 

 

 ;; Break frame opening
 (command "_trim" "" "m2p" point1 point2 "m2p" point4 point3 "")

 

Thanks

[marko_ribar]

;; Break frame opening

(command "_trim" "" "(mapcar '(lambda ( a b ) (/ (+ a b) 2.0)) point1 point2) (mapcar '(lambda ( a b ) (/ (+ a b) 2.0)) point3 point4) "")

[BIGAL]

A hint breaking 2 or 4 wall lines, you know wall thickness so always pick outside, then you know which way is in, so pick pt1 then pt2, can work out the break points.

[mhy3sx]

Hi marko_ribar.

 

If I replace this

 

(command "_trim" "" "m2p" point1 point2 "m2p" point4 point3 "")

 

with this

 

(command "_trim" "" "(mapcar '(lambda ( a b ) (/ (+ a b) 2.0)) point1 point2) (mapcar '(lambda ( a b ) (/ (+ a b) 2.0)) point3 point4) "") 

 

I have this error

 

Error: malformed list on input

 

 

Thanks

[BIGAL]

Look carefully you have an extra " just remove.

(command "_trim" "" "(

 

[mhy3sx]

It's working 

 

Thanks BIGAL