https://www.cadforum.cz/forum_en/ Mon, 20 Apr 2026 04:39:26 +0000 Tue, 03 Jun 2008 17:36:50 +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=787 https://www.cadforum.cz/forum_en/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum_en/ https://www.cadforum.cz/forum_en/forum_posts.asp?TID=787&PID=2064&title=autolisp-need-help#2064 Author: samlimct
Subject: 787
Posted: 03.Jun.2008 at 17:36

hi

your program only can be separate use for changing to polyline but does'nt work together with my grasket line.
anyway thanks for your help

sam
]]> Tue, 03 Jun 2008 17:36:50 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=787&PID=2064&title=autolisp-need-help#2064 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=787&PID=2063&title=autolisp-need-help#2063 Author: maungthantzinoo
Subject: 787
Posted: 03.Jun.2008 at 11:45

You try below lisp instead of your...

(command "pedit" "m" (ssget) "" "y" "j" "" "")(terpri)
  )



]]> Tue, 03 Jun 2008 11:45:21 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=787&PID=2063&title=autolisp-need-help#2063 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=787&PID=2049&title=autolisp-need-help#2049 Author: samlimct
Subject: 787
Posted: 30.May.2008 at 10:29

(DEFUN C:Gq (/)
  (GRAPHSCR) ; CHANGE TO GRAPHIC SCREEN
  (SETQ L ( GETREAL" ENTER LENGTH OF GASKETS " )) (terpri)

  (setq cog ( getpoint " enter corner of gasket " )) (terpri)
  (setq x1 (car cog )) (terpri)
  (setq y1 (cadr cog )) (terpri)
  (setq x2 (+ x1 L)) (terpri)
  (setq x3 (+ x1 L (/ L 2 ))) (terpri)
  (setq x4 (+ x1 (/ L 2 ))) (terpri)
  (setq ang (sin ( / pi 3 )))(terpri)
  (setq height1 (* L ang )) (terpri)
  (setq y3 ( + y1 height1)) (terpri)
  (setq y4 ( + y1 height1)) (terpri)
  (setq pnt1 ( list x2 y1 )) (terpri)
  (setq pnt2 (list x3 y3 )) (terpri)
  (setq pnt3 (list x4 y4 )) (terpri)
 
  (command "line" cog pnt1 pnt2 pnt3 "c" "" ) (terpri)

     (prompt " change polyline")(terpri)
  (command " pedit"  "m" (ssget) "" "y" "j" cog pnt1 pnt2 pnt3 "")(terpri)
  )

 HI good morning all,

i'm autolisp beginner. i had write the program on  the top but i trying to change the line into polyline. but doest'nt work. anyone can help to have a  check.
thanks very much....
 
sam
]]> Fri, 30 May 2008 10:29:02 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=787&PID=2049&title=autolisp-need-help#2049