Results 1 to 3 of 3

Thread: AutoLisp (Modification in Area Lisp Needed)

  1. #1
    Member
    Join Date
    2016-04
    Posts
    34
    Login to Give a bone
    0

    Cool AutoLisp (Modification in Area Lisp Needed)

    I have a lisp routine that calculates area of Cut & Fill Areas in Roadway Cross Sections,
    The only modification i want in my lisp routine is
    1) Auto Hatch Cut Area (ANSI31) , Color Cyan , Scale 1 , Angle "0"
    2) Auto Hatch Fill Area (ANSI31) , Color Yellow , Scale 1 , Angle "90"
    3) Auto Creates Each Layer i.e Cut & Fill

    Please check the below lisp routine, Thanks


    Code:
    (defun filling ()
      (setq mom '(+ 0))
    	(setvar "osmode" 0)
      (while (setq imtiaz
    		(getpoint "\n Specify Cutting segment or exit:")
    	 )
        (command "-Boundary" imtiaz	"" "Area" "o" "last")
        (command "erase" "last" "")
        (setq iftikhar (getvar "area"))
        (setq mom (append mom (list iftikhar)))
        (setq fat(princ (Eval mom)))
        (setq abr(rtos fat 2 3))
        (setq awa(strcat "CUT=" abr " Sq.m"))
      )
    (setq sp (getpoint "\n Specify where to write the calculated area :"))
    (command "text" sp 0.20 0 awa)
    (setq awa (strcat "CUT=" "0.000" " Sq.m"))
    )
    
    (defun cutting ()
      (setq mom1 '(+ 0))
      (while (setq imtiaz1
    		(getpoint "\n Specify FILLING segment or exit:")
    	 )
        (command "-Boundary" imtiaz1 "" "Area" "o" "last")
        (command "erase" "last" "")
        (setq iftikhar1 (getvar "area"))
        (setq mom1 (append mom1 (list iftikhar1)))
        (setq fat1(princ (Eval mom1)))
        (setq abr1 (rtos fat1 2 3))
        (setq awa1 (strcat "FILL=" abr1 " Sq.m"))
      )
    (setq sp1 ( list (car sp) (- (cadr sp) 0.40)))
    
    (command "text" sp1 0.20 0 awa1)
    (setq awa1 (strcat "FILL=" "0.000" " Sq.m"))
    )
    
    (defun c:AA ()
    ;;;(command "zoom" "e");;;
    ;;;(command "insert" "xs" pause 1 1 0);;;
    (filling)
    (cutting)
    ;;;(command "zoom" "e");;;
    (command "osmode" 33)
    ;;;(command "insert" "graph" pause 1 1 0);;;
    )
    Last edited by Sameer Ahmed; 2019-09-24 at 02:46 PM.

  2. #2
    Certifiable AUGI Addict
    Join Date
    2001-03
    Location
    Tallahassee, FL
    Posts
    3,374
    Login to Give a bone
    0

    Default Re: AutoLisp (Modification in Area Lisp Needed)

    You need to Wrap Code tags around any code you post.

    Clicking the [Go Advanced] button at the bottom puts a toolbar at the top and the # icon in that toolbar places code tags around selected text for you or simply paste your code inside.

    Getting the most relevant answers to your question
    Tom Beauford P.S.M. - Civil 2020 on Windows 10 Enterprise
    Design Analysis - Leon County Public Works/Engineering Wrap [CODE] tags around selected text
    2280 Miccosukee Rd. Tallahassee, FL 32308-5310
    Ph# (850)606-1516 Home Page

  3. #3
    Member
    Join Date
    2016-04
    Posts
    34
    Login to Give a bone
    0

    Default Re: AutoLisp (Modification in Area Lisp Needed)

    Sir, Please work on this lisp, It's necessary, i'm stucked, i need it urgent.

Similar Threads

  1. Need a help in modification of lisp. Please update the lisp code as required.
    By brahmanandam.thadikonda762224 in forum AutoLISP
    Replies: 0
    Last Post: 2018-09-20, 04:12 AM
  2. Help with autolisp (2 lisp programs in one lisp execution)
    By javier-perez1956746375 in forum AutoLISP
    Replies: 1
    Last Post: 2017-06-15, 07:40 PM
  3. Modification to a lisp (needs to change the lisp code)
    By nanaji130285733687 in forum AutoLISP
    Replies: 3
    Last Post: 2016-11-21, 04:45 AM
  4. Replies: 3
    Last Post: 2015-01-05, 03:05 AM
  5. Text Modification Routine Needed
    By Mitch Mermel in forum AutoLISP
    Replies: 1
    Last Post: 2013-12-17, 02:42 PM

Posting Permissions

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