+ Reply to Thread
Page 2 of 2 FirstFirst 1 2
Results 11 to 12 of 12
  1. #11
    Super Member hanhphuc's Avatar
    Using
    AutoCAD 2007
    Join Date
    Apr 2013
    Location
    Happy Garden
    Posts
    710

    Default

    Registered forum members do not see this ad.

    Quote Originally Posted by Emmanuel Delay View Post
    Attachment 64046

    I wrote something. It doesn't solve everything, but it can be a help to the file that you posted.

    I'll provide my own simplified dwg.
    hi, Thanks your example, now i figure out a bit electrical job


    using previous sub function foo
    This example will increase the space only, based on OP's title 'Increase the space between multiple lines'
    Code:
    (defun c:test ( / s l i d e ) ; Increase the space between multiple vertical lines
    ;hanhphuc 19.06.2018
    (initget 7)
    (and
    (setq d (getdist "\nSpecify space distance : "))
    (setq s (ssget ":L" '((0 . "LWPOLYLINE") (-4 . "=") (70 . 0) (90 . 4)))
          )
    (repeat	(setq i (sslength s))
      (setq	e (ssname s (setq i (1- i)))
    	l  (cons (cons e (mapcar 'cdr (vl-remove-if '(lambda (x) (/= 10 (car x))) (entget e)))) l)
    	)
      )
    (setq l (vl-sort l ''((a b) (< (caaddr a) (caaddr b)))))
    (foreach x (mapcar '(lambda (a b) (foreach x '(2 3) (setq a (subst (list b (cadr (nth x a))) (nth x a) a))) a)
    		   l
    		   (foo (mapcar 'caaddr l) d)
    		   )
      (entmod (append (vl-remove-if '(lambda (x) (= (car x) 10)) (entget (car x)))
    		  (mapcar '(lambda (x) (cons 10 x)) (cdr x))
    		  )
    	  )
      )
    )
    (princ)
    )

    Last edited by hanhphuc; Today at 03:29 pm. Reason: quotes to lambda
    _$ ( apply 'equal "hp" "happy" "hạnh phúc" "ハッピー" "幸福" "행복" )
    ; error: too many arguments

  2. #12
    Full Member
    Using
    AutoCAD 2014
    Join Date
    Dec 2010
    Posts
    81

    Default

    Registered forum members do not see this ad.

    cool, that is useful

Similar Threads

  1. How to increase space between objects?
    By rlcad in forum AutoCAD Beginners' Area
    Replies: 6
    Last Post: 8th Mar 2017, 11:47 am
  2. how can I plot from multiple paper space at once?
    By MikeP in forum AutoCAD Drawing Management & Output
    Replies: 4
    Last Post: 5th Apr 2011, 05:12 pm
  3. Replies: 10
    Last Post: 14th Sep 2010, 10:24 am
  4. Having multiple LTS in paper space
    By chubster41 in forum AutoCAD Drawing Management & Output
    Replies: 2
    Last Post: 19th Sep 2006, 06:16 pm
  5. multiple printing from model space
    By louislbernstein in forum AutoLISP, Visual LISP & DCL
    Replies: 2
    Last Post: 19th Jul 2006, 05:10 am

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts