CAD Forum discussion (EN) : Autolisp File https://www.cadforum.cz/forum_en/ Sat, 16 May 2026 22:46:17 +0000 Tue, 28 Jan 2014 17:02:18 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum_en/RSS_post_feed.asp?TID=9995 <![CDATA[CAD Forum discussion (EN)]]> https://www.cadforum.cz/forum_en/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum_en/ <![CDATA[Autolisp File : Ah, yes, of course.... I at first...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=9995&PID=25834&title=autolisp-file#25834 Author: Kent Cooper
Subject: 9995
Posted: 28.Jan.2014 at 17:02

Ah, yes, of course....  I at first had it doing Matchprop before Pedit, and I reversed that specifically in case of non-zero width, but didn't think about the entity-name change, and obviously didn't test the reversed-order version in that situation.]]> Tue, 28 Jan 2014 17:02:18 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=9995&PID=25834&title=autolisp-file#25834 <![CDATA[Autolisp File : Hello Kent I&#039;ve managed...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=9995&PID=25831&title=autolisp-file#25831 Author: 1616syd
Subject: 9995
Posted: 28.Jan.2014 at 15:58

Hello Kent
I've managed to juggle your code with the addition of entlast in
the matchprop call instead of lin, which holds only the original data
fo the selected line, and not the new polyline.
 
(defun C:MPPL (/ pl lin)
  (setq pea (getvar 'peditaccept))
  (setvar 'peditaccept 1)
  (setq
    pl (car (entsel "\nSelect Polyline to match Line to: "))
    lin (car (entsel "\nSelect Line to convert to Polyline and match selected one: "))
  ); setq
  (command "_.pedit" lin "" "_.matchprop" pl (entlast) "")
  (setvar 'peditaccept pea)
  (princ)
); defun
Kind Regards
Syd
]]> Tue, 28 Jan 2014 15:58:52 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=9995&PID=25831&title=autolisp-file#25831 <![CDATA[Autolisp File : Thank you for that Kent, it works...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=9995&PID=25830&title=autolisp-file#25830 Author: 1616syd
Subject: 9995
Posted: 28.Jan.2014 at 15:18

Thank you for that Kent, it works OK, other than it has to be run a second
time to create the global width of the new polyline to match original if greater than 0.
Kind regards
Syd
]]> Tue, 28 Jan 2014 15:18:15 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=9995&PID=25830&title=autolisp-file#25830 <![CDATA[Autolisp File : Try this, in nearly simplest terms: (defun...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=9995&PID=25829&title=autolisp-file#25829 Author: Kent Cooper
Subject: 9995
Posted: 28.Jan.2014 at 15:09

Try this, in nearly simplest terms:
 
(defun C:MPPL
; = Match Properties of Polyline to Line [including converting Line to Polyline]
  (/ pl lin)
  (setq pea (getvar 'peditaccept))
  (setvar 'peditaccept 1)
  (setq
    pl (car (entsel "\nSelect Polyline to match Line to: "))
    lin (car (entsel "\nSelect Line to convert to Polyline and match selected one: "))
  ); setq
  (command
    "_.pedit" lin ""
    "_.matchprop" pl lin ""
  ); command
  (setvar 'peditaccept pea)
); defun
 
It ought to be enhanced with valid-object-type selection controls, maybe command-echo suppression, error handling, and all the other usual bells and whistles, but as a start it works for me, in limited testing.
]]> Tue, 28 Jan 2014 15:09:40 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=9995&PID=25829&title=autolisp-file#25829 <![CDATA[Autolisp File : Anyone got a lisp file which will...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=9995&PID=25825&title=autolisp-file#25825 Author: 1616syd
Subject: 9995
Posted: 27.Jan.2014 at 22:41

Anyone got a lisp file which will enable the properties of a LWPOLYLINE to be matched to a LINE
and thus converting it into a LWPOLYLINE, in much the same way as the MATCH PROPERTIES
does with other objects.Clap
]]> Mon, 27 Jan 2014 22:41:17 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=9995&PID=25825&title=autolisp-file#25825